Function TForm1.GetLocalName():String;
Var UserName : PChar;
Size : Dword;
Begin
Getmem(UserName ,255);
Size:=255;
if Windows.GetUserName(UserName,Size) = False then
begin
Freemem(UserName);
GetLocalName := '';
Exit;
end;
GetLocalName := UserName ;
Freemem(UserName);
end;
Var UserName : PChar;
Size : Dword;
Begin
Getmem(UserName ,255);
Size:=255;
if Windows.GetUserName(UserName,Size) = False then
begin
Freemem(UserName);
GetLocalName := '';
Exit;
end;
GetLocalName := UserName ;
Freemem(UserName);
end;