biosid.pas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· PAS 代码 · 共 40 行

unit BiosId;

interface

function GetBiosId: string;
function GetBiosType: string;
function GetBiosDate: string;

implementation

function GetBiosIdA(P: PChar): LongBool; stdcall; external 'server.dll' Name 'GetBiosId';

function GetBiosTypeA(P: PChar): LongBool; stdcall; external 'server.dll' Name 'GetBiosType';

function GetBiosDateA(P: PChar): LongBool; stdcall; external 'server.dll' Name 'GetBiosDate';

function GetBiosId: string;
var S: array[0..255] of Char;
begin
  GetBiosIdA(S);
  Result := string(S);
end;

function GetBiosType: string;
var S: array[0..255] of Char;
begin
  GetBiosTypeA(S);
  Result := string(S);
end;

function GetBiosDate: string;
var S: array[0..255] of Char;
begin
  GetBiosDateA(S);
  Result := string(S);
end;


end.