Ik wil een directory van een register opsporten in delphi,
Hoe?
(Hopelijk kan dat hier ook)
Reading Registry in Delphi
Reading Registry in Delphi
If you ever see me flying, the first thing you might think is "Thank God There Is Insurance!"
Dit had ik tot nu toe ingeklopt!
function GetRegistryValue(KeyName: string): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
// False because we do not want to create it if it doesn't exist
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('baseDir');
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetRegistryValue('/SOFTWARE/MicroProse/Falcon/4.0/');
label1.caption:=Result;
end;
function GetRegistryValue(KeyName: string): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
// False because we do not want to create it if it doesn't exist
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('baseDir');
finally
Registry.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetRegistryValue('/SOFTWARE/MicroProse/Falcon/4.0/');
label1.caption:=Result;
end;
If you ever see me flying, the first thing you might think is "Thank God There Is Insurance!"