Как закрыть файл при закрытии программы

[r_yevgeniy]

Здравствуйте! У меня вопрос. Как закрыть файл открытый через программу при ее закрытии. Т.е. у меня есть справка о программе файл help.chm, в программе я ее открываю следующим мтодом

{Открытие файла справки}
procedure TMainForm.HelpMenuItemClick(Sender: TObject);
begin
  ShellExecute(Application.Handle,'open','help.chm',nil,nil,1);
end;

При закрытии программы справка все равно остается. Есть какая нибудь функция, чтобы она тоже закрывалась? Подскажите, может я что не так делаю...

[Kotofff]

В событии OnClose пишем что-то типа этого :

if FindWindow(nil, 'Твой заголовок окна справки') <> 0 then postmessage(FindWindow(nil, 'Твой заголовок окна справки'),wm_quit,0,0);

[Stilet]

хм...
Думаю нужно юзать ShellExecuteEx
Она запоминает параметры запускаемой программы, такие как хендл процесса. Потом его можно закрыть функцией TerminateProcess

[r_yevgeniy]

Сообщение от Kotofff

В событии OnClose пишем что-то типа этого :

if FindWindow(nil, 'Твой заголовок окна справки') <> 0 then postmessage(FindWindow(nil, 'Твой заголовок окна справки'),wm_quit,0,0);

Спасибо!!! Все работает!