|
Тема |
Re: Програма за създаване на Help [re: Дokтopa] |
|
Автор | Ивaнчo (Нерегистриран) | |
Публикувано | 26.07.05 12:15 |
|
|
отдавна съм забравил за тези неща, откакто Майкрософт анонсира
Правиш си един най-обикновен виртуален веб сайт на компютъра, харесва ти, пускаш програмката, тя си компилира един chm файл, който после само викаш от делфи. Слагаш си картинки, линкове, таблици - какво ти душа иска....
function HtmlHelp(hwndCaller: HWND;
pszFile: PChar; uCommand: UINT;
dwData: DWORD): HWND; stdcall;
external 'HHCTRL.OCX' name 'HtmlHelpA';
function TfrmMAIN.HH(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
begin
if (Command = 0) and (Data = 0) then
HtmlHelp(Application.Handle,
PChar(Application.HelpFile),
HH_DISPLAY_TOC, 0);
CallHelp := False;
end;
procedure TfrmMAIN.Help1Click(Sender: TObject);
var
dummy:Boolean;
begin
HH(0, 0, dummy);
end;
те това е...
|
| |
|
|
|