Wie ktoś, jak uzyskać pełną nazwę użytkownika (WinXP)? Szukałem i nic nie znalazłem, więc napisałem własną, prowizoryczną funkcję:
function LongUserName:String;
var H:Integer;
P:array[0..144]of char;
begin
H:=FindWindow('DV2ControlHost', nil);
H:=FindWindowEX( H , 0, 'Desktop User Pane', nil);
H:=FindWindowEX( H , 0, 'Static', nil);
GetWindowText(H, P, 144);
Result:=StrPas(P);
end;
Szkoda tylko, że nie działa gdy ktoś ma włączone "Klasyczne Menu start" ... [stuk]
Może zna ktoś bardziej fachowy sposób ?
Dzieki z gory
Pozdrawia cimak