Delphi Mit Programm öffnen... per doppelklick

Thema durchsuchen

Ansicht

Themen-Optionen

Mit Programm öffnen... per doppelklick

Ein Thema von SimonRap · begonnen am 2. Mai 2010 · letzter Beitrag vom 3. Mai 2010

Vorheriger Beitrag

Nächster Beitrag

-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge

Delphi 7 Enterprise

Re: Mit Programm öffnen... per doppelklick

3. Mai 2010, 18:40

Mir hat das hier schon gereicht

zusammenfalten · markieren

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.