sample - external function.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

unit UserName;

function main: string;
var
  S: string;
  Sz: Integer;
begin
  S := '';
  Sz := 255;
  SetLength(S, Sz);
  if not GetUserName(S, Sz) then
    RaiseLastWin32Error;
  SetLength(S, Sz);
  Result := S;
end;

function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL;
  external 'advapi32.dll' name 'GetUserNameA';

end.