摘要：取得当前用户得delphi代码： procedure TForm1.FormCreate(Sender: TObject);var user: Pchar; l : dword; compuser: string;begin l:=1024; user:=stralloc(succ(l)); if GetUserName(User,l) ... 阅读全文