| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

chm

shtam ©   (2007-08-09 13:36:00) 

помогите ктознает как открыть файл справки(CHM) в моей форме а не как самостаятельную форму

---

alshtam   (2007-08-14 07:41:00) [1]

спасибо огромное все получилось

---

Lacmus   (2007-08-09 18:34:00) [2]

>shtam   (09.08.07 13:36)


type
 HH_WinType = record
   cbStruct: Integer;
   fUniCodeStrings: bool;
   pszType: PChar;
   fsValidMembers: Longint;
   fsWinProperties: Longint;
   pszCaption: PChar;
   dwStyles: Longint;
   dwExStyles: Longint;
   rcWindowPos: TRect;
   nShowState: Integer;
   hwndHelp: THandle;
   hwndCaller: THandle;
   paInfoTypes: ^HH_InfoType;
   hwndToolbar: THandle;
   hwndNavigation: THandle;
   hwndHTML: THandle;
   iNavWidth: Integer;
   rcHTML: TRect;
   pszToc: PChar;
   pszIndex: PChar;
   pszFile: PChar;
   pszHome: PChar;
   fsToolbarFlags: Longint;
   fNotExpanded: bool;
   curNavType: Integer;
   tabPos: Integer;
   idNotify: Integer;
 end;
 PHH_WinType = ^HH_WinType;

procedure TForm27.Button1Click(Sender: TObject);
var
 pWinType: PHH_WINTYPE;
begin
 pWinType := nil;
 if HtmlHelp(Handle, 'test.chm>main', HH_GET_WIN_TYPE, LongInt(@pWinType)) = 0 then begin
   pWinType.dwStyles := pWinType.dwStyles or WS_CHILD;
   if HtmlHelp(Handle, 'test.chm', HH_SET_WIN_TYPE, LongInt(pWinType)) = 0 then
     ShowMessage('HH_SET_WIN_TYPE - OK')
 end else
   ShowMessage('HH_GET_WIN_TYPE - Fail');
 HtmlHelp(Handle, 'test.chm', HH_DISPLAY_TOPIC, 0);
end;



---

Сергей М.   (2007-08-09 16:01:00) [3]

Гуглить-то умеем ?

http://www.google.ru/search?q=Delphi+%D1%81%D0%BF%D1%80%D0%B0%D0%B2%D0%BA%D0%B0+CHM&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefox-a

---

Наверх