unit1.pas

很久以前用delphi写的一个SQLServer外部的企业管理器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ActiveX,ComObj,UrlMon;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

 function ShowHTMLDialog(hwndParent: Cardinal;UrlMnk: IMoniker;
                        PvarArgIn: PVariantArg;PWCHOptions: PWChar;
                        PvarArgOut: PVariantArg): HRESULT; stdcall;external'MSHTML.DLL';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  URLMoniker:IMoniker;
  VarArgs,VarReturn:TVariantArg;
  ArugStr,UrlStr,Return:String;
  POptions:PWChar;

begin
     Return := '';
     ArugStr := '';
      VarArgs.vt := VT_BSTR;
      VarArgs.bstrVal := StringToOleStr(ArugStr);
      POptions := 'dialogHeight:23;dialogWidth:25;resizable:no;help:no;center:yes';;

      UrlStr := 'file://'+ExtractFilePath(application.exename)+'HtmlDlg1.htm';
      OLECheck(CreateURLMoniker(nil, StringToOleStr(UrlStr),URLMoniker));
      VariantInit(OleVariant(VarReturn));
       ShowHTMLDialog(Handle,URLMoniker,@VarArgs,POptions,@VarReturn);
 //showmessage(inttostr());// = 0 then

end;

end.