2,496
社区成员
发帖
与我相关
我的任务
分享
function getserialno( var serialno:PAnsiChar; size:longint):boolean; stdcall; external 'Signer.dll' name 'GetSerialNo';
function GetSN: string;
var
sn:array [0..256] of AnsiChar;
begin
ZeroMemory(@sn,SizeOf(sn));
getserialno(@sn,256);
result :=sn;
end;
function getserialno( var serialno:PChar; size:longint):boolean; stdcall; external 'Signer.dll' name 'GetSerialNo';
procedure TForm1.getserialnobtnClick(Sender: TObject);
var sn:array[0..256] of AnsiChar;
begin
getserialno(@sn,256);
end;