frm_waitdlg.pas

完全操作delphi webbrowser 用於自動登陸某些網站如 雅虎 百度

unit frm_WaitDlg;

interface

uses
  Windows, SysUtils, jpeg, Classes, Controls, ExtCtrls, Forms;

type
  TfrmWaitDialog = class(TForm)
    Image1: TImage;
    Shape1: TShape;
  private
  public
    procedure ShowDlg;
    procedure CloseWaitDlg;
  end;

var
  frmWaitDialog: TfrmWaitDialog;

implementation

{$R *.DFM}

procedure TfrmWaitDialog.ShowDlg;
begin
     Self.Show;
     SetWindowPos(Self.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
     Self.Update;
     Self.BringToFront;
     Application.ProcessMessages;
end;

procedure TfrmWaitDialog.CloseWaitDlg;
begin
     Self.Hide;
end;

initialization
   frmWaitDialog := TfrmWaitDialog.create( Application );

end.