Delphi-Quellcode:
function CurrentUserName: String;
var
u: array[0..127] of Char;
sz: DWord;
begin
sz:=SizeOf(u);
GetUserName(u,sz);
Result:=u;
label1.caption := CurrentUserName;
end;
Warum zeigt er mir den Namen nicht automatisch an, ohne das ich etwas
klicken muss.
sui