PDA

Ver la Versión Completa : Registry


acertij022
19-02-2007, 23:13:27
Hola delphiano necesito comprobar dentro de la Regestry si existe una direccion para identifcar si tiene el framewok 2.0 instalado para eso realice lo siguiente sin tener suerte

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, registry, Psock, NMHttp;

type
TForm1 = class(TForm)
Button1: TButton;
NMHTTP: TNMHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

with TRegistry.Create do
try
RootKey:= HKEY_CURRENT_USER; // <-- La clave root
if OpenKey('SOFTWARE\Microsoft\Windows\.NETFramework\v2.0',FALSE) then
begin
ShowMessage('existe');
CloseKey;
end;
finally
Free;
end;
end;

end.

¿QUE ES LO QUE HICE MAL? :confused:

egostar
19-02-2007, 23:26:14
Checa este Link (http://www.bobswart.nl/Weblog/Blog.aspx?RootId=5:52) ahi viene como hacer lo que requieres.

Saludos.

acertij022
20-02-2007, 00:24:18
gracias es lo que necesito :p