?? 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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -