---

Hej

virker getusername i alle Windows versioner?
Hvordan bruger man getusername, jeg kan ikke få den til at virke.
helst med et lille eksempel


--
Calle

---

Hej Calle !

Calle. wrote:
> virker getusername i alle Windows versioner?

function GetUser: string;
var
UName: PChar;
USize: Cardinal;
begin
USize := 100;
UName := StrAlloc(USize);
GetUserName(UName, USize);
Result := string(UName);
StrDispose(UName);
end;

-Kurt

---

Kurt Bilde wrote:
> Hej Calle !
>
> Calle. wrote:
>> virker getusername i alle Windows versioner?
>
> function GetUser: string;
> var
> UName: PChar;
> USize: Cardinal;
> begin
> USize := 100;
> UName := StrAlloc(USize);
> GetUserName(UName, USize);
> Result := string(UName);
> StrDispose(UName);
> end;
>
takker

--
Calle