Mit Programm öffnen... per doppelklick

[-Phantom-]

Mir hat das hier schon gereicht

Delphi-Quellcode:

k := Application.ExeName;  
reg := Tregistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('Ultimate Zip\Shell\open\',True);
reg.WriteString('','Öffnen mit UZip');
reg.OpenKey('command',True);
reg.WriteString('',k+'"%1"');
reg.CloseKey;
reg.OpenKey('.zip',True);
reg.WriteString('','Ultimate Zip');
finally
reg.Free;
end;

Ist für mein Entpacker.