1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ecrown 2002-02-02
- 打赏
- 举报
先调后用！
duancy 2002-02-02
- 打赏
- 举报
以下是一个调用API获得用户名的例子:
procedure TForm1.Button1Click(Sender: TObject);
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21; // user name can be up to 20 characters
GetMem( pcUser, dwUSize ); // allocate memory for the string
try
if Windows.GetUserName( pcUser, dwUSize ) then
edit1.Text := pcUser
finally
FreeMem( pcUser ); // now free the memory allocated for the string
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21; // user name can be up to 20 characters
GetMem( pcUser, dwUSize ); // allocate memory for the string
try
if Windows.GetUserName( pcUser, dwUSize ) then
edit1.Text := pcUser
finally
FreeMem( pcUser ); // now free the memory allocated for the string
end;
end;
wgjsoft 2001-07-23
- 打赏
- 举报
关注
huangry 2001-07-23
- 打赏
- 举报
当然可以直接用
weizhi 2001-07-23
- 打赏
- 举报
可以直接用。如
setcomputername('asdfasdf')；
设置本机名重启后生效！
setcomputername('asdfasdf')；
设置本机名重启后生效！
