COMO PEGAR USUARIO LOGADO NO WINDOWS, WIN98,2000
Preciso pegar o usuario logado no windows, eu tenho até uma função mais ela só funciona se o Objeto database(TdataBase) estiver conectado.
Esta é ela, alguém tem outra?
function Usuario : String;
var
szNetName: Array[0..48] of Char;
iResult: DBIResult;
begin
iResult:= DBIGetNetUserName(szNetName);
if iResult <> DBIErr_None then
DBIError( iResult )
else
Result:= StrPas(szNetName);
end;
Esta é ela, alguém tem outra?
function Usuario : String;
var
szNetName: Array[0..48] of Char;
iResult: DBIResult;
begin
iResult:= DBIGetNetUserName(szNetName);
if iResult <> DBIErr_None then
DBIError( iResult )
else
Result:= StrPas(szNetName);
end;
Anonymous
Curtidas 0
Respostas
Anonymous
20/02/2003
[color=red:dd00ad02ec]function UserName: String;
var
I: DWord;
sUser: array of char;
begin
I := 255;
SetLength(sUser,I);
GetUserName(PCHAR(sUser),I);
Result := PCHAR(sUser);
end;[/color:dd00ad02ec]
var
I: DWord;
sUser: array of char;
begin
I := 255;
SetLength(sUser,I);
GetUserName(PCHAR(sUser),I);
Result := PCHAR(sUser);
end;[/color:dd00ad02ec]
GOSTEI 0