@Cyberbob: Aber könnte ich nicht praktisch die Dateien mit dem Programm öffnen und sie dann z.B. in eine Listbox fügen und diese dann als Datei abspeichern ?
@SnuffMaster23: So z.B. ?
Delphi-Quellcode:
procedure TfrmMain.AddOpenEntry(filetype, registryname, popupname, OpenWith: String);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey(filetype + '\shell\' + registryname + '\', True);
Reg.WriteString('', popupname);
Reg.CloseKey;
finally
Reg.Free;
end;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey(filetype + '\shell\' + registryname + '\command\', True);
Reg.WriteString('', '"' + OpenWith + '" "%1"');
Reg.CloseKey;
finally
Reg.Free;
end;
end;