Forum: Win32/Win64 API (native code)
Delphi
by -Phantom-,
3. Mai 2010
Mit ParamCount und Paramstr machste das so :
Du legst eine Globale Variable an z.B
Aktive : Boolean ;
Das schreibst du dann bei Form.create rein :
procedure TForm1.FormCreate(Sender: TObject);
begin
Forum: Win32/Win64 API (native code)
Delphi
by -Phantom-,
3. Mai 2010
Mir hat das hier schon gereicht
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"');