Tenta ai :
// Nome do Usuario e da Empresa
Uses Registry;
Procedure GetUserCompany;
var
reg: TRegIniFile;
begin
reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\');
Edit1.Text := reg.ReadString('USER INFO','DefName','');
Edit2.Text := reg.ReadString('USER INFO','DefCompany','');
reg.free;
end;
// Nome da Máquina
Uses Registry;
function TForm1.Getcomputer : string;
var
registro : tregistry;
begin
registro:=tregistry.create;
registro.RootKey:=HKEY_LOCAL_MACHINE;
registro.openkey('System\CurrentControlSet\Services\VXD\VNETSUP',false);
result:=registro.readstring('ComputerName');
end;
// Pegar nome do usuário na rede
function TForm1.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;
Colocar na chamada de Uses de sua Unit as seguintes DCUs : DBITYPES, DBIPROCS,
DBIERRS, DBTables e DB.
fonte : 800 Dicas de Programação Delphi by Lloyd Dickinson
----- Original Message -----
From: "Maicon Buttignon Botega" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, January 11, 2005 2:22 PM
Subject: [delphi-br] Re: Windows API
ok!
irei verificar...
caso encontre algo mais prático, sem necessidade da Jedi-VCL,
informarei a todos!
[]s
Maicon
--- Em delphi-br@yahoogrupos.com.br, "Marcelo Silva" <[EMAIL PROTECTED]>
escreveu
> Nos componentes JEDI-VCL tem um componente chamado JvComputerInfo
este te dá muitas informações a respeito do sistema... talvez tenha
o que precisa.
>
>
> Marcelo Silva
> Cel. 11 9693-4251
> ICQ - 49224093
> MSN [EMAIL PROTECTED]
> ----- Original Message -----
> From: Maicon Buttignon Botega
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, January 11, 2005 2:53 PM
> Subject: [delphi-br] Windows API
>
>
>
> Amigos,
>
> Alguém saberia me dizer como consigo pegar o nome do usuário
logado
> na máquina e o nome da máquina através das APIs do Windows com o
> Delphi?
> Caso alguém saiba fazer isto de outro modo, eu aceito!
>
> Grato,
>
> Maicon
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
