很简单的问题,关于API。(100分)

HookBoy · 2002-10-24

我在程序中用 WinExec 执行了一个由用户选择的应用程序，我要把它的窗口提到桌面前来， 用SetForegroundWindow 但是我不知道用户选择了什么程序，因而不知道窗口的标题。 也就无法靠findwindow(nil,你程序的名称)来找这个程序的Handl。 所以如何执行了一个由用户选择的应用程序后，把它的窗口提到桌面前来。或是取得该句柄？

HookBoy · 2002-10-25

我采用了别人写的一个函数,得到THandle,可是发现并不如我所愿，实事上并没有找到这个 句柄。 function MyWinExec(const CmdLine: string; CmdShow: DWord): THandle; var   SI :TStartupInfo;   PI :TProcessInformation; begin   FillChar(si,SizeOf(si),0);   si.cb:=SizeOf(si);   si.dwFlags:=STARTF_USESHOWWINDOW;   si.wShowWindow:=CmdShow;   if CreateProcess(nil,PChar(CmdLine),nil,nil,false,0,nil,nil,si,pi) then     Result:=pi.hProcess   else     Result:=0; end; 我的调用 var   s:string; begin   ppp := MyWinExec('C:/WINNT/system32/notepad.exe', SW_Show );   GetWindowText( ppp, PChar(s), Length (s));   ShowMessage( s ) end; 结果没能得到notepad的窗口标题。 怎么回事？

HookBoy · 2002-10-28

为什么这些天了没人睬？

yanghai0437 · 2002-10-28

换一个参数，用SW_MAXIMIZE看看 要不就用ShellExecute这个函数，返回值如下 If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.

HookBoy · 2002-10-28

yanghai0437 对ShellExecute，我试了一下，不行的。还是找不到这个Handle；返回的值不知道是什么了。 SW_MAXIMIZE,是一点没用的。还是老样子。

beta · 2002-10-28

pi.hProcess 只是一个进程句柄，和窗口句柄是两码事，当然不能混为一谈了。 通过进程句柄获得主窗口句柄我暂时没有好的办法，只能枚举所有窗口，然后 判断每个窗口对应的进程是否为指定进程号。 你前面的 MyWinExec 应略作修改： function MyWinExec(const CmdLine: string; CmdShow: DWord): THandle; var   SI :TStartupInfo;   PI :TProcessInformation; begin   FillChar(si,SizeOf(si),0);   si.cb:=SizeOf(si);   si.dwFlags:=STARTF_USESHOWWINDOW;   si.wShowWindow:=CmdShow;   if CreateProcess(nil,PChar(CmdLine),nil,nil,false,0,nil,nil,si,pi) then     Result:=pi.dwProcessId  // 这里改成进程号！！！！！   else     Result:=0; end; // 通过进程号查找主窗口句柄 function GetApplicationWnd(const ProcessID: DWORD): HWND; type   PTopLevelWnd = ^TTopLevelWnd;   TTopLevelWnd = record     ProcessID: DWORD;     Wnd: HWND;   end; var   TopLevelWnd: TTopLevelWnd;   function EnumWinProc(Wnd: HWND; Param: PTopLevelWnd): BOOL; stdcall;   var     PID: DWORD;     C: array [0..Length(ClassNameOfTApplication) + 1] of Char;   begin     GetWindowThreadProcessId(Wnd, @PID);     if (PID = Param^.ProcessID) and (GetClassName(Wnd, C, SizeOf(C)) > 0) and       (C = ClassNameOfTApplication) then     begin       Result := False;       Param^.Wnd := Wnd;     end     else       Result := True;   end; begin   TopLevelWnd.ProcessID := ProcessID;   TopLevelWnd.Wnd := 0;   EnumWindows(@EnumWinProc, LPARAM(@TopLevelWnd));   Result := TopLevelWnd.Wnd; end; 然后就像这样使用： var   s: string;   pid: DWord;   h: THandle; begin   pid := MyWinExec('C:/WINNT/system32/notepad.exe', SW_Show);   h := GetApplicationWnd(pid);   SetLength(s, 255);   GetWindowText(h, PChar(s), Length(s));   ShowMessage(s); end;

newnob · 2002-11-03

我想要在Sendkeys中，先选中文本，后发送字符串，但总是不行， 大家看看。 procedure Sendkeys(focushld: HWND; sSend: string); var   i:integer;   ch: byte; begin   i := 1;   SendMessage(focushld, WM_IME_SELECT, WPARAM(true), 255);    // 要选中文本,但这处没有选中。   while i <= Length(sSend) do   begin     ch := byte(sSend);     if Windows.IsDBCSLeadByte(ch) then     begin       Inc(i);       SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend), ch), 0);     end     else     SendMessage(focushld, WM_IME_CHAR, word(ch), 0);   Inc(i);   end; end;

alextsui · 2002-11-05

這裡也有討論的, 你去看看 http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1395209

yanlei · 2002-11-05

winexec('c:/rr.exe',1)

fssky · 2002-11-08

HookBoy · 2002-11-20

接受答案了.

很简单的问题,关于API。(100分)

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

newnob

Unregistered / Unconfirmed

alextsui

Unregistered / Unconfirmed

yanlei

Unregistered / Unconfirmed

fssky

Unregistered / Unconfirmed

HookBoy

Unregistered / Unconfirmed

Similar threads