登陆名可以,但登陆口令似乎很难!
function GUserName: String;
var
; pcUser ; : PChar;
; dwUSize : DWORD;
begin
; dwUSize := 21;
; result:='';
; GetMem( pcUser, dwUSize );
; try
; ; if Windows.GetUserName( pcUser, dwUSize ) then
; ; ; Result := pcUser
; finally
; ; ;FreeMem( pcUser );
; end;
end;