API問題

Question

HWND HtmlHelp(
              HWND    hwndCaller,
              LPCSTR  pszFile,
              UINT    uCommand,
              DWORD   dwData) ;Delphi定義怎樣寫?謝謝參与者.

Answer 1

function HtmlHelp(hwndCaller: THandle;pszFile: PChar;uCommand: Cardinal;dwData:LongInt): THandle;

Answer 2

var
  HHControlInstance:THandle = 0;
  dwCookie :DWORD = 0;
  HtmlHelpA:function ( hwndCaller:HWND;
                       pszFile:PChar ;
                       uCommand:UINT;
                       dwData:DWORD_PTR ):HWND;stdcall;(* function implementatoins *)
function HtmlHelp(  hwndCaller:HWND; strFile:String; uCommand:UINT; dwData:DWORD_PTR ):HWND;
var
  OcxFileName:String;
  p:PChar;
begin
  if HHControlInstance=0 then
  begin
    OcxFileName := StringOfChar( ' ', 256);
    p := PChar( OcxFilename );
    GetSystemDirectory(p,255);
    StrCat(p,'\HHCTRL.OCX');
    HHControlInstance := LoadLibrary( P );
    if HHControlInstance = 0 then
      raise exception.Create('System目录中，HHCtrl.OCX 不存在!');
    @HtmlHelpA := GetProcAddress( HHControlInstance, 'HtmlHelpA');
    if @HtmlHelpA = nil then
      raise exception.Create('Function HTMLHELP cannot loaded!');
    HtmlHelpA( 0, nil, HH_INITIALIZE, (@dwCookie));
  end;
  result := HtmlHelpA( hwndCaller, PChar( strFile ), uCommand,dwData);
end;