Как закрыть help при закрытии приложения?

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.FormDestroy(Sender: TObject);

begin

Application.HelpCommand(HELP_QUIT, 0);

end;

 

©Drkb::04545

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php


Code:

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

begin

Winhelp(Handle, 'WINHELP.HLP', HELP_QUIT, 0);

Action := caFree;

end;

 

©Drkb::04546