untshow.pas

实现了：自动锁屏

unit untShow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, untGlobal, ShellAPI;

type
  TfrmShow = class(TForm)
    wbShow: TWebBrowser;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure wbShowBeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
  private
    { Private declarations }
  public
    { Public declarations }
    Url: string;
  end;


implementation

{$R *.dfm}

procedure TfrmShow.FormShow(Sender: TObject);
begin
  wbShow.Navigate(Url);
end;

procedure TfrmShow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmShow.wbShowBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  s: string;
  h, w: integer;
begin
  if Pos('action2', URL) > 0 then   //URL中有action2关键字的，表示需要应用程序处理
  begin
    Cancel := True;
    s := GetStr(URL, 'action2=');
    if s = 'edit' then
    begin
      Self.Click;
      exit;
    end;
  end
  else
    exit;

end;

end.