functionunit.pas

来自「闭路电视收费系统」· PAS 代码 · 共 36 行

unit FunctionUnit;

interface

uses
  Windows,Messages, SysUtils, Classes;

type
  RefClass = Class
  public
    IntegrateRate,StockRate,EduationRate,VideoRate:Integer;
  end;
    

function myComputerName:String;

implementation


function myComputerName: String;
var
   pcComputer : PChar;
   dwCSize    : DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem( pcComputer, dwCSize ); // allocate memory for the string
  try
    if Windows.GetComputerName( pcComputer, dwCSize ) then
      Result := pcComputer;
  finally
    FreeMem( pcComputer ); // now free the memory allocated for the string
  end;
end;

end.