REVELAR

Fórum Tenho um problema!!! mas só pra quem manja de delphi #135652

11/02/2003

0

E ai galera, é o seguinte...
Alguem me ajude por favor... Alguem sabe como definir os parametros
para ser pegos do registro do windows?
exemplo eu quero saber que programa eu tenho instalado no meu computador...
um exemplo disto é
Reg := TRegIniFile.Create(´SOFTWARE\MICROSOFT\MS SETUP (ACME)\´);
try
[color=red:863330c479]S := Reg.ReadString(´USER INFO´,´DefName´,´´);[/color:863330c479]
RES.Text :=S;
finally
Reg.free;
end;

esse é um esquema para saber no nome de quem esta registrado o windows...
mas para pegar o nome do programa instalado no meu compu eu nao sei o parametro a ser colocado igual como esta la em cima
[color=red:863330c479](´User Info´,´DefName´,´´)[/color:863330c479]
se alguem souber um esquema help-me


Anonymous

Anonymous

Responder

Posts

11/02/2003

Carnette

Vá na página do LloydSoft...

www.lloydsoft.hpg.ig.com.br

e pegue o programa 750 dicas e truques em delphi....lá tem uma explicação bem clara para o que voce deseja fazer


Responder

Gostei + 0

12/02/2003

Anonymous

Cara eu ja tenho esse programinha de dicas, mas nao explica especificamente o que eu quero, eu fiz ums do jeito que tava la mas nao da certo cara...
Ta muito embassado... Eu to louco atras dessa solucao mas nao encontro
porq depois que eu encontrar isso o delphi pra jamais sera o mesmo
hehehehe
Mas valeu pela dica Carnette


Responder

Gostei + 0

12/02/2003

Okama

Olá, Alan Jones

Primeiro você deve gravar o código do seu programa em algum lugar do registro (quando enviar a licença, registro, instalação ou coisa parecida):

procedure TForm1.Button2Click(Sender: TObject);
Var p: TRegIniFile;

begin
p:= TRegIniFile.Create(´\SISTEMA\´);

p.EraseSection(´\SISTEMA\´);
p.WriteString(´\SISTEMA\´, ´SerialNumber´, ´123456-000-123456´);
P.Free;
end;


Agora leia o registro:

procedure TForm1.Button3Click(Sender: TObject);
Var p: TRegIniFile;
s:String;
begin
p:= TRegIniFile.Create(´\SISTEMA\´);
s:=p.Readstring(´\SISTEMA\´, ´SerialNumber´, ´0´);
p.Free;
ShowMessage(s);

end;


Responder

Gostei + 0

12/02/2003

Anonymous

Okama é o seguinte, acho que eu expliquei errado tipo eu nao quero pegar o regsitro do meu programa em delphi eu quero listar os programs instalados no meu micro exemplo
eu tenho um campo memo no meu form dai o memo recebe Exemplo:

Proramas instalados:
-----------------------------
|Outlook |
|Winzip |
|Half Life |
|Winrar |
|Delphi6 |
-----------------------------|

Valeu!! fui...
Esse é um tema que intriga os programadores..hehehe


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar