Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Открытие файла справки при клике 
:(
    Опции темы
Кит
Дата 25.12.2005, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет
Имеется кнопка вызовы "Справки" (Help.hlp)
Что на нее нужно повесить чтобы этот файл справки открывался
PM MAIL   Вверх
iddqd
Дата 25.12.2005, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: 0
Всего: 2
Просто открыть какой-то файл?
ShellExecute?


--------------------
PM MAIL   Вверх
Кит
Дата 25.12.2005, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет
Цитата
Просто открыть какой-то файл?

нужно открыть Help.hlp
PM MAIL   Вверх
iddqd
Дата 25.12.2005, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

Репутация: 0
Всего: 2
Кит, какая разница. Хоть autoexec.bat ShellExecute используй.


--------------------
PM MAIL   Вверх
FRAGNATIC
Дата 25.12.2005, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
причём тут базы данных?
PM MAIL   Вверх
Кит
Дата 25.12.2005, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет
так и ничего не понял с этим ShellExecute
А дальше что с ним делать? Где указывать файл, который я хочу открыть
Код

procedure TMainForm.HelpClick(Sender: TObject);
begin

end;
PM MAIL   Вверх
Albinos_x
Дата 25.12.2005, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
к примеру так:
Код

var fs:string;
    H:HWND;
begin
fs:=ExtractFilePath(Application.ExeName)+'Help\Help.chm';
if (FileExists(fs)) then
   ShellExecute(h,'open',pChar(fs),NIL,NIL,SW_SHOWNORMAL)
   else
   MessageDlg('Файл справки не найден',mtInformation,[mbOK],0);



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Кит
Дата 26.12.2005, 00:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет
В чем проблема??? Пишу
Код

procedure TMainForm.N4Click(Sender: TObject);
var fs:string;
H:HWND;
begin
fs:=ExtractFilePath(Application.ExeName)+'Help\Help.chm';
if (FileExists(fs)) then
ShellExecute(h,'open',pChar(fs),NIL,NIL,SW_SHOWNORMAL)
else
MessageDlg('Файл справки не найден',mtInformation,[mbOK],0);
end;


Выдает ошибку : Undeclared identifier:'ShellExecute'

А вообще мне нужно открать файл *.doc
PM MAIL   Вверх
FRAGNATIC
Дата 26.12.2005, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Кит
Цитата
А вообще мне нужно открать файл *.doc

РАЗНИЦЫ НЕТУ тебе уже сказали ты просто указываешь какой файл и всё )
Цитата
Выдает ошибку : Undeclared identifier:'ShellExecute'

подключи в USES модуль ShellAPI smile
PM MAIL   Вверх
Кит
Дата 26.12.2005, 01:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 21.5.2005

Репутация: нет
Всего: нет
Mechanic, ура все работает. Спасибо Всем
PM MAIL   Вверх
Guedda
Дата 27.12.2005, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
А можно проще...

Код

Applcation.HelpFile := 'Help.hlp';
Application.HelpCommand(HELP_OPEN, 0);



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Гость_Waterman
Дата 29.12.2005, 00:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Можно так, тоже работает.

Код

procedure TForm1.Button6Click(Sender: TObject);
begin
Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help.hlp';

Application.HelpCommand(HELP_CONTENTS, 0);  

end;


Это сообщение отредактировал(а) Girder - 29.12.2005, 10:02
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1152 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.