parameter!!

[maximi]

Ich habe die Dateiendung '.aba' in der Registry registriert und möchte, wenn ich eine '.aba' Datei aufrufe, den kompletten Filenamen der '.aba' Datei in mein Programm.
Geht das vielleicht mit Parametern. Ich hab es probiert, aber ich bekomme bei paramstr(1) nur eine null.

Max

[Christian Seehase]

Moin Max,

das Du in Paramstr(1) nicht den gewünschten Pfad zu der Datei hast, deutet darauf hin, dass Du den Dateityp nicht korrekt registriert hast.
Wie hast Du es denn gemacht?

BTW:
Hast Du Dir schon mal Threads zu dem Thema [dp]Dateityp* registrieren[/dp] angesehen?

[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;

[scp]

Werwende statt
WriteString('', '"' + 'c:\Entschluessel\Project1.exe' + '" "' + '0'+ '"'); mal
WriteString('', '"' + 'c:\Entschluessel\Project1.exe' + '" "' + '%1'+ '"'); dann müsste es gehen.

[RomanK]

Hoi, deine Parameter stimmen nicht!
Schau dir mal den Code-Library Beitrag von mir an!
http://www.delphipraxis.net/internal...ect.php?t=8202

Du musst bei deinem Parameter noch das %1 übergeben.

[maximi]

Danke