unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
//timer1.interval:=1000
begin
//启动浏览器
WinExec('C:\Program Files\Maxthon2\Maxthon.exe',SW_MAXIMIZE);
Timer1.Enabled:=False;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
//timer2.interval:=5000
var h:HWND;
begin
//取浏览器句柄
h:=FindWindow(nil,'企业信息门户 - 傲游(Maxthon) 2.5.16');
if h<>0 then
//发送热键
SendMessage(h, WM_HOTKEY, 0, MakeLParam(0, Ord('U')));
Timer2.enabled:=False;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//启动窗口最小化
Form1.WindowState:=wsMinimized;
end;
end.
//发送热键
SendMessage(Handle, WM_HOTKEY, 0, MakeLParam(0, Ord('U')));
下边这个也可以:
-
Delphi(Pascal) code
-
keybd_event(VK_CONTROL, 0 , 0 , 0 ); // ctrl keybd_event(VkKeyScan( ' v ' ), 0 , 0 , 0 ); keybd_event(VK_CONTROL, 0 ,KEYEVENTF_KEYUP, 0 ); keybd_event(VkKeyScan( ' v ' ), 0 ,KEYEVENTF_KEYUP, 0 );