Tenho um problema!!! mas só pra quem manja de delphi

Delphi

11/02/2003

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

Curtidas 0

Respostas

Carnette

Carnette

11/02/2003

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


GOSTEI 0
Anonymous

Anonymous

11/02/2003

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


GOSTEI 0
Okama

Okama

11/02/2003

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;


GOSTEI 0
Anonymous

Anonymous

11/02/2003

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


GOSTEI 0
POSTAR