一个应用程序对另一个应用程序做这些操作有什么办法吗

[jett]

1，返回另一应用程序是否已运行
2，对另一应用程序的窗口做一些操作（比如最大化，用SetWindowPos置于最顶部）
3，关闭正在运行中的另一应用程序
1，估计不难，2和3是否可行呢

[wqb]

http://www.csdn.net/expert/Topic/477/477918.shtm

[jett]

看了
但有时候我并不一定能得到hwnd

[jett]

我的意思是说不一定能让另一应用程序返回hwnd，必须要由原来的那个应用程序想办法去取

[jett]

只要回答出问题，分数还会加

[Bardo]

这类操作操作虽不是很难，但也要对系统编程熟悉。
我这里有一个类似于SpyXX的例子，是源于《VB6编程高手》
如需要可以发给你！

[lx_king]

HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);


Parameters

lpClassName

Points to a null-terminated string that specifies the class name or is an atom that identifies the class-name string. If this parameter is an atom, it must be a global atom created by a previous call to the GlobalAddAtom function. The atom, a 16-bit value, must be placed in the low-order word of lpClassName; the high-order word must be zero.

lpWindowName

Points to a null-terminated string that specifies the window name (the window's title). If this parameter is NULL, all window names match.



Return Values

If the function succeeds, the return value is the handle to the window that has the specified class name and window name.
If the function fails, the return value is NULL. To get extended error information, call GetLastError
.

See Also

EnumWindows, FindWindowEx, GetClassName, GlobalAddAtom


这样找

dim hnd as long
hnd=findwindow(0,"另一个程序的窗体标题")
这就可以了

[lx_king]

不好 意思 错了

应该是

Dim hnd As Long
hnd=findwindow(vbNullString,"另一个程序的窗体标题")

[jett]

to Bardo(巴顿)
谢谢，最好是有例子了
[e-mail]

[jett]

to lx_king(天剑)　
因为我不一定知道另一个应用程序的类是什么，所以光有findwindow不行
不过还是谢谢你

[lx_king]

标题都不知道？？

那你就 用EnumWindows列出所有的窗体名称判断吧

给你个例子 看看吧

[jett]

to lx_king(天剑)
例子已收到，等我先调试，过回再结贴