Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by gsh,
10. Jan 2005
a ja ich hab des vergessen des des noch einen zweiten parameter braucht der ist dafür dass der ordner erstellt wird wenn er nicht vorhanden ist aber es müsste funktionieren.
procedure TForm1.Button11Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey:={Rootkey}HKEY_CURRENT_USER;
try
if Reg.OpenKey({ordner in dem root key}'Environment',...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by gsh,
10. Jan 2005
das Problemm ist des man den key erst öffnen muss.
procedure TForm1.Button11Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
try
if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\') = true then
begin