Текущий архив: 2007.09.09;
Скачать: CL | DM;

Вниз

chm   Найти похожие ветки 

← →
shtam   (2007-08-09 13:36) [0]

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

---

← →
Сергей М. ©   (2007-08-09 16:01) [1]

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

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

---

← →
Lacmus ©   (2007-08-09 18:34) [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;



---

← →
alshtam   (2007-08-14 07:41) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.051 c