function NomeDoComputador: String;
var
CName: array [0..MAX_COMPUTERNAME_LENGTH+1] of char;
MaxLength: integer; // no Delphi5 em vez de integer, colocar DWord
begin
MaxLength := SizeOf(CName);
GetComputerName(CName, MaxLength);
Result := StrPas(CName);
end;
****************************************
function RetornaUsuarioLogado:string;
var buffer:pchar;
nsize:integer;//cardinal;
begin
nsize:=25;
buffer:=StrAlloc(nsize);
if GetUserName(buffer, nsize) then
Result:=string(buffer);
StrDispose(buffer);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := RetornaUsuarioLogado;
end;
Espero ter ajudado.
----- Original Message -----
From: "Maicon Buttignon Botega" <[EMAIL PROTECTED]>
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
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.5 - Release Date: 26/12/2004
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.5 - Release Date: 26/12/2004
--
<<<<< 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
