|
Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
8. Jan 2003, 20:47
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sUser: String;
ui11: Pointer;
begin
sUser := GetUser();
NetUserGetInfo(nil, PWideChar(WideString(sUser)), 11, ui11);
Label1.Caption := PUserInfo11(ui11)^.usri11_name;
NetApiBufferFree(ui11);
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
|