как прикрепитить прогу к текстовому файлу?

[BLACK_KOT]

как прикрепитить прогу к текстовому файлу, чтоб при запуске ,к примеру ворда/блокнота, запускалась основная программа?

в инете нашёл тока это:

Для этого Вам понадобится переопределить процедуру CreateParams у желаемой формы. А в ней установить params.WndParent в дескриптор окна, к которому Вы хотите прикрепить форму.

... = class(TForm)
...
protected</SPAN>
procedure</SPAN> CreateParams( var</SPAN> params: TCreateParams ); override</SPAN>;
...

procedure</SPAN> TForm2.Createparams(var</SPAN> params: TCreateParams);
var</SPAN>
aHWnd : HWND;
begin</SPAN>
inherited</SPAN>;
{как-нибудь получаем существующий дескриптор}</SPAN>
ahWnd := GetForegroundWindow;
{а теперь:}</SPAN>
params.WndParent := ahWnd;
end</SPAN>;


..но нихрена не понял.
если кто нить покажет ПРИМЕР, как прикрепить, а потом и запустить прогу, при запуске текстового файла буду ооооооооооооооч благодарен

[JTG]

никааааааааааааааааааааааак!!!
(иначе это бы было огромнейшая дыра в защите, всомнить хотя бы wmf-експлойт)

Можно прилепить иконку текстового файла к программе, а программа пусть запускает блокнот и выводит в него текст, таким образом очччччень глупый юзер может ничего и не заметить, будет думать, что открыл обычный текстовый файл.