RES: [firebase-br] Função ou Variável de Ambiente.

[Cristiano Joaquim - CPD]

Pegue ai as ditas...

Uses BDE;

function TForm1.dgGetUserName : String;
Var UserNameBuff : array[0..255] of char;
pUserName : Pchar;
begin
Result := '';
pUserName := @UserNameBuff;
Check(DbiGetNetUserName(pUserName));
Result := StrPas(pUserName);
end;

----------------------------------------------------------------------------
----

Função que retorna o nome do Computador

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;

FALOU,

Cristiano Joaquim
Depto: CPD
AURORA ALIMENTOS
SAC: 0800-113500
FONE: 6423-2241
E-mail: cristiano-joaquim em auroraalimentos.com.br
<mailto:cristiano-joaquim em auroraalimentos.com.br>


-----Mensagem original-----
De: lista-bounces em firebase.com.br
[mailto:lista-bounces em firebase.com.br]Em nome de Tiago Sartori Costa -
YAHOO
Enviada em: sexta-feira, 15 de abril de 2005 17:06
Para: FireBase
Assunto: [firebase-br] Função ou Variável de Ambiente.


Boa tarde,

Sei que aqui é forum de Banco de Dados, mais estou necessitando de ajuda em
Delphi 2005 e acredito que exista programadores neste grupo. Gostaria de
saber se alguém conhece uma função o variável de ambiente que retornem o
Nome do Usuário e o Nome do Computador da máquina que está sendo utilizada?

Certo de vossa ajuda agradeço antecipadamente.

Sartori.




______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=firebase