José Luiz Postado Abril 14, 2008 Denunciar Share Postado Abril 14, 2008 Necessito pegar o nome do computador onde o programa está sendo executado.estou utilizando a função abaixo, ( colocando Registry no Uses ) 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; mas está retornando uma string em branco.Obrigado,José Luiz Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Abril 14, 2008 Denunciar Share Postado Abril 14, 2008 Necessito pegar o nome do computador onde o programa está sendo executado.Vai um exemplo:unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Uses Registry; function GetComputerNameFunc : string; var ipbuffer : string; nsize : dword; begin nsize := 255; SetLength(ipbuffer,nsize); if GetComputerName(pchar(ipbuffer),nsize) then result := ipbuffer; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.caption := GetComputerNameFunc; end; end.abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 José Luiz Postado Abril 15, 2008 Autor Denunciar Share Postado Abril 15, 2008 Obrigado Jhonas, Já resolveu o meu problema. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
José Luiz
Necessito pegar o nome do computador onde o programa está sendo executado.
estou utilizando a função abaixo, ( colocando Registry no Uses )
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;
mas está retornando uma string em branco.
Obrigado,
José Luiz
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.