Показать сообщение отдельно
  #2  
Старый 11.05.2009, 19:21
Nyctos Kasignete Nyctos Kasignete вне форума
Активный
 
Регистрация: 29.03.2009
Сообщения: 300
Репутация: 94
По умолчанию

Воспользуйтесь функцией ShellExecute, например.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  hlpFilePath: string;
begin
  hlpFilePath := ExtractFilePath(Application.ExeName) + 'Manual.html';
  if FileExists(hlpFilePath) then
    ShellExecute(Handle, PChar('Open'), PChar(hlpFilePath), nil,
                 PChar(ExtractFileDir(hlpFilePath)), SW_SHOWNORMAL);
end;
Ответить с цитированием