~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
var RegPath : string;
begin
with TRegistry.Create do
try
RegPath:='MyApp';
RootKey := HKEY_CURRENT_USER;
If OpenKey(RegPath, False) then
// do stuff here
finally
Free
end
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Delphi Enum to String
« Get Associated application by Extension
