控制另一进程，为什么我的代码不行较难，有兴趣的高手进来搞定了请吃饭 ( 积分: 200 )

ivyzeng · 2005-02-03

以下代码是控制 Acrobat Reader 全屏，  在 Acrobat reader 中按 CTRL+L 会全屏，  我用Spy++ 跟踪出消息为 4条 , 发到 caption 为 'AVPageView' 的窗口上， 我在程序中发送同样的消息，为什么达不到全屏的效果。 (用Spy++ 发送的消息与按“CTRL+L”是一致的) procedure TForm1.SpeedButton5Click(Sender: TObject); var  wK,wK2 :WORD;  bC  :Byte;  dwK : DWORD;  dwK2 : DWORD;  hWnd,hWnd1 : ULONG;  function GetWnd(name : string) : ULONG;  var    alist : TList;    strCap : pchar;    b : boolean;    s : string;  begin     result := 0;     alist := TList.Create;     hWnd := GetDeskTopWindow();      GetMem(strCap,255);      alist.Clear;     alist.Add(Pointer(hWnd));     while (alist.Count &gt; 0)  do     begin       hWnd :=  ULONG(alist.Items[0]);       alist.Delete(0);         GetWindowText(hWnd,strCap,255);         s := strpas(strCap);         if s = name then         begin           result :=  hWnd;           exit;         end;         hWnd1 := GetWindow(hWnd,GW_Child);         if (hWnd1 &gt; 0) then         begin           alist.Add(Pointer(hWnd1));         end;         hWnd1 := GetWindow(hWnd,GW_HWNDNEXT);         if (hWnd1 &gt; 0) then         begin           alist.Add(Pointer(hWnd1));         end;     end;     FreeMem(strCap,255);     alist.Free;  end; begin     hWnd := GetWnd('AVPageView');  if (hWnd &gt; 0) then  begin    //SendMessage(hWnd,WM_KEYDOWN,13 ,1);   bC := 29;  wK := MAKEWORD(29,0);  wK2 := MAKEWORD(38,0);  dwK := MAKELONG(1,wK);  dwK2 := MAKELONG(1,wK2);    PostMessage(hWnd,WM_KEYDOWN,VK_CONTROL ,dwK);    PostMessage(hWnd,WM_KEYDOWN,Ord('L') ,dwK2);    PostMessage(hWnd,WM_KEYUP,Ord('L') ,dwK2);    PostMessage(hWnd,WM_KEYUP,VK_CONTROL ,dwK);  end; end;

ivyzeng · 2005-02-03

以下代码是控制 Acrobat Reader 全屏，  在 Acrobat reader 中按 CTRL+L 会全屏，  我用Spy++ 跟踪出消息为 4条 , 发到 caption 为 'AVPageView' 的窗口上， 我在程序中发送同样的消息，为什么达不到全屏的效果。 (用Spy++ 发送的消息与按“CTRL+L”是一致的) procedure TForm1.SpeedButton5Click(Sender: TObject); var  wK,wK2 :WORD;  bC  :Byte;  dwK : DWORD;  dwK2 : DWORD;  hWnd,hWnd1 : ULONG;  function GetWnd(name : string) : ULONG;  var    alist : TList;    strCap : pchar;    b : boolean;    s : string;  begin     result := 0;     alist := TList.Create;     hWnd := GetDeskTopWindow();      GetMem(strCap,255);      alist.Clear;     alist.Add(Pointer(hWnd));     while (alist.Count &gt; 0)  do     begin       hWnd :=  ULONG(alist.Items[0]);       alist.Delete(0);         GetWindowText(hWnd,strCap,255);         s := strpas(strCap);         if s = name then         begin           result :=  hWnd;           exit;         end;         hWnd1 := GetWindow(hWnd,GW_Child);         if (hWnd1 &gt; 0) then         begin           alist.Add(Pointer(hWnd1));         end;         hWnd1 := GetWindow(hWnd,GW_HWNDNEXT);         if (hWnd1 &gt; 0) then         begin           alist.Add(Pointer(hWnd1));         end;     end;     FreeMem(strCap,255);     alist.Free;  end; begin     hWnd := GetWnd('AVPageView');  if (hWnd &gt; 0) then  begin    //SendMessage(hWnd,WM_KEYDOWN,13 ,1);   bC := 29;  wK := MAKEWORD(29,0);  wK2 := MAKEWORD(38,0);  dwK := MAKELONG(1,wK);  dwK2 := MAKELONG(1,wK2);    PostMessage(hWnd,WM_KEYDOWN,VK_CONTROL ,dwK);    PostMessage(hWnd,WM_KEYDOWN,Ord('L') ,dwK2);    PostMessage(hWnd,WM_KEYUP,Ord('L') ,dwK2);    PostMessage(hWnd,WM_KEYUP,VK_CONTROL ,dwK);  end; end;

jianguobu · 2005-02-03

看这个方式对你有没有用 http://www.delphibbs.com/keylife/iblog_show.asp?xid=7541

wk_knife · 2005-02-03

ActiveHandle: THandle;  //当前活动窗体ThreadID CurHandle: THandle; AHwnd:Hwnd; CurHandle := GetCurrentThreadID; AHwnd:=GetWnd('AVPageView'）; ActiveHandle := GetWindowThreadProcessID(AHwnd, nil); AttachThreadInput(CurHandle, ActiveHandle, True); try     PostMessage(AHwnd,WM_KEYDOWN,VK_CONTROL ,dwK);     PostMessage(AHwnd,WM_KEYDOWN,Ord('L') ,dwK2);     PostMessage(AHwnd,WM_KEYUP,Ord('L') ,dwK2);     PostMessage(AHwnd,WM_KEYUP,VK_CONTROL ,dwK); finally    AttachThreadInput(CurHandle, ActiveHandle, False); end;

ivyzeng · 2005-02-04

to wk_knife: 我按照你给的代码，还是不行，是不是还有什么玄机

uc · 2005-02-04

procedure TForm1.Button1Click(Sender: TObject); begin  //让目标窗口最大化 $10262是用其它工具发现的Acrobat Reader主窗口Handle  //我的Acrobat Reader的版本与你不一样.没看到AVPageView  ShowWindow($10262,SW_SHOWMAXIMIZED);  //对着最大化的Acrobat Reader窗口按键  keybd_event(VK_CONTROL , MapVirtualKey(VK_CONTROL , 0 ), 0 , 0 );  keybd_event(Ord('L'), MapVirtualKey(Ord('L'), 0 ), 0 , 0 );  keybd_event(VK_CONTROL , MapVirtualKey(VK_CONTROL ,0),KEYEVENTF_KEYUP, 0);  keybd_event(Ord('L'), MapVirtualKey(Ord('L'),0),KEYEVENTF_KEYUP, 0); end;

ivyzeng · 2005-02-04

to uc 请问$10262  是用什么找出来的，我用spy++找到主窗，按你所说的不行

jianguobu · 2005-02-04

总算试成功了。 var  hCurrentWindow,hWnd1:HWnd;  szText:array[0..254]of char;  Wind : String; begin  hCurrentWindow:=GetWindow(Handle,GW_HWNDFIRST);  While hCurrentWindow&lt;&gt;0 Do  Begin    If GetWindowText(hCurrentWindow,@szText,255)&gt;0 then      if pos('Adobe Reader',Strpas(@szText))&gt;0 then begin        hWnd1 := GetWindow(hCurrentWindow,GW_Child);;        SetForegroundWindow(hWnd1);        sleep(100);        keybd_event(VK_CONTROL , MapVirtualKey(VK_CONTROL , 0 ), 0 , 0 );        sleep(100);        keybd_event(Ord('L'), MapVirtualKey(Ord('L'), 0 ), 0 , 0 );        sleep(100);        keybd_event(VK_CONTROL , MapVirtualKey(VK_CONTROL ,0),KEYEVENTF_KEYUP, 0);        sleep(100);        keybd_event(Ord('L'), MapVirtualKey(Ord('L'),0),KEYEVENTF_KEYUP, 0);        sleep(100);        exit;      end;      hCurrentWindow:=GetWindow(hCurrentWindow,GW_HWNDNEXT);  end;

uc · 2005-02-04

spy++显示的主要有窗口、进程、线程。 在窗口页，每一条的内容就是--窗口句柄+文本+类名。 如果你确定知道窗口的文本+类名，可以用findwindow得到窗口句柄。 用ShowWindow(h,SW_SHOWMAXIMIZED);可使该窗口成为当前窗口。对着当前窗口模拟ctrl+L,当然跟按...的效果是一样的。

luckhacker · 2005-02-04

楼上的方法不错。

jianguobu · 2005-02-04

楼上，应该是说我的吧。 呵呵，臭美一下

ivyzeng · 2005-02-04

呵呵，OK了， 不过还有一个继续研究一下， 为什么在用ActiveX  控件又不行了 jianguobu, uc, 高手请再关注一下，马上给分

jianguobu · 2005-02-04

不明白你的意思 你的说把我写的类似代码做成ActiveX就不行了？

ivyzeng · 2005-02-04

将 pdf.ocx 放在Form上，运行 ,  这时我按CTRL_L 可以 但程序不可以， 你们提供的方法，如果在Desktop上启动 Reader 可以达到效果

jianguobu · 2005-02-04

晕，这部份又得划不少时间来试了。 应该与窗口有关系的。

ivyzeng · 2005-02-04

我试了一下午，  分析了窗口结构  从下到上是 AVPageView -&gt; AVScrollView -&gt; AVSplitterView -&gt;AVSplitationPageView-&gt;AVSplitterView-&gt;E:/EBook/Ice-1.3.0-C.pdf (打开文件)-&gt; ATL 的窗口 -&gt; Form 我每个都试过了可不行，如果单独启动 Reader 都可以

jianguobu · 2005-02-04

不是，现在的窗口是你的Form窗口

jianguobu · 2005-02-04

把你做好的代码给我，我来试。 呵呵，你这个问题需要另外加分才行，我今天上午试了好长时间。

ivyzeng · 2005-02-04

没问题

jianguobu · 2005-02-04

做个demo给我呀

控制另一进程， 为什么我的代码不行 较难，有兴趣的高手进来 搞定了请吃饭 ( 积分: 200 )

ivyzeng

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

uc

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

uc

Unregistered / Unconfirmed

luckhacker

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

ivyzeng

Unregistered / Unconfirmed

jianguobu

Unregistered / Unconfirmed

Similar threads

控制另一进程，为什么我的代码不行较难，有兴趣的高手进来搞定了请吃饭 ( 积分: 200 )