parameter!!

[maximi]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey('.aba', True);
      WriteString('', 'max');
      OpenKey('\' + 'max', True);
      WriteString('', 'prog');
      OpenKey('DefaultIcon', True);
      WriteString('', 'c:\Entschluessel\Project1.exe' + ','+IntToStr(0));
      OpenKey('\' + 'max' + '\Shell\Open\Command', True);
      WriteString('', '"' + 'c:\Entschluessel\Project1.exe' + '" "' + '0'+ '"');
     end;
  Reg.Free;
end;