You can also read the environment variable USER or USERNAME.
This is what I have done:
------------------------------------------
{$IFDEF MSWINDOWS}
function tiGetUserName : string;
var userNameBuffer : array[0..255] of char;
sizeBuffer : DWord;
begin
SizeBuffer := 256;
getUserName(userNameBuffer, sizeBuffer);
result := string(userNameBuffer);
end;
{$ENDIF MSWINDOWS}
{$IFDEF LINUX}
function tiGetUserName : string;
begin
Result := GetEnvironmentVariable('USERNAME');
if Result = '' then
Result := GetEnvironmentVariable('USER');
end;
{$ENDIF LINUX}
------------------------------------------
Regards,
- Graeme -
On 25/04/06, johnf <[EMAIL PROTECTED]> wrote:
> Hi,
> How do I find the username? Getusername does not exist. On Linux.
>
> John
>
--
There's no place like 127.0.0.1
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
