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 :)
