Capturar o nome do computador em uso
03/01/2006
0
Pessoal alguém possui alguma rotina onde eu possa capturar o nome do computador que esta em uso naquele momento, ou no momento de login?
Abraço
Wagner
Wagnermarrane
Post mais votado
03/01/2006
Eniosb
Mais Posts
03/01/2006
Marcio.theis
procedure TForm1.BitBtn1Click(Sender: TObject); var Computer: PChar; CSize: DWORD; begin Computer:=#0; CSize:=MAX_COMPUTERNAME_LENGTH + 1; try GetMem(Computer,CSize); if Windows.GetComputerName(Computer,CSize ) then ShowMessage(Computer); finally FreeMem(Computer); end; end;
03/01/2006
Wagnermarrane
procedure TForm1.BitBtn1Click(Sender: TObject); var Computer: PChar; CSize: DWORD; begin Computer:=#0; CSize:=MAX_COMPUTERNAME_LENGTH + 1; try GetMem(Computer,CSize); if Windows.GetComputerName(Computer,CSize ) then ShowMessage(Computer); finally FreeMem(Computer); end; end;
Esta apresentando o seguinte erro
[Error] Unit1.pas(29): E2410 Unsafe pointer variables, parameters or consts only allowed in unsafe procedure
03/01/2006
Wagnermarrane
Delphi 2005
03/01/2006
Wagnermarrane
na declaração da variavel
var
Computer: PChar;
03/01/2006
Marcio.theis
procedure TForm1.BitBtn1Click(Sender: TObject); var buffer: array[0..255] of char; size: dword; begin size:=256; if GetComputerName(buffer, size) then ShowMessage(buffer); end;
03/01/2006
Wagnermarrane
03/01/2006
Wagnermarrane
desculpe me enganei ... na verdade a imcompatibilidade ocorre com StringBuilder e Array
em relação ao componente IDIPWatch, no delphi 2005 não encontrei a função LOCALNAME, até que existe a LOCAL IP mas a LOCALNAME não....
Clique aqui para fazer login e interagir na Comunidade :)