Also mit dem
DDE ist das ziemlich einfach.
Als erstes in dein Formular eine TDDEServerConv rein, bei dieser den Namen auf "System" un das Event OnexecuteMacro etwa so:
Delphi-Quellcode:
procedure TForm1.SystemExecuteMacro(Sender: TObject; Msg: TStrings);
begin
ListBox1.Items.AddStrings(Msg);
end;
Nun noch die Registry.
Zitat:
[HKEY_CLASSES_ROOT\.step]
@="stepfile"
[HKEY_CLASSES_ROOT\stepfile]
[HKEY_CLASSES_ROOT\stepfile\shell]
@=""
[HKEY_CLASSES_ROOT\stepfile\shell\open]
[HKEY_CLASSES_ROOT\stepfile\shell\open\command]
@="d:\\borland\\delphi5\\projects\\project11.exe "
[HKEY_CLASSES_ROOT\stepfile\shell\open\ddeexec]
@="%1"
[HKEY_CLASSES_ROOT\stepfile\shell\open\ddeexec\Appl ication]
@="project11"
[HKEY_CLASSES_ROOT\stepfile\shell\open\ddeexec\Topi c]
@="System"
D.h. alle Dateien mit Extension *.step werden durch die Anwendung "d:\borland\delphi5\projects\project11.exe" geöffnet. Dabei wird der TDDEServerConv mit Namen "System" das Makro gesendet das bei "\open\ddeexec" steht. Hier besteht das Makro nur aus dem Dateinamen der zu öffnenden Datei. Das war alles.
Über'n Explorer im Menu\Extras\Ordneroptionen...\Dateitypen kann man dies auch komfortabel editieren.
Ich schätze mal das wars dann
Gruß Hagen