📄 sample - external function.pas
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -