PostHeaderIconDelphi. Как закрыть окно подсказки, если пользователь закончил приложение?

В следующем примере показано как закрыть окно помощи, если пользователь закончил приложение.

procedure TMainForm.FormClose(Sender: TObject; 
          var Action: TCloseAction);

begin
  Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);
  Action := caFree;
end;
 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.