如题
解决方案 »
- 求助:intraweb5.0播放视频的问题
- delphi与SQL2000的图片读取
- {$H+}...........{H-}什么意思,高人指教小弟这个菜鸟
- 由于D区的一猛、二猛、三猛诞生了,散分。
- Delphi 中使用图标
- 有什么办法也让.dll文件运行时不在任务栏上提示任何信息。
- 用delphi操作excel文件时怎样得到excel文件的工作薄名称?
- 为什么模式窗口没用呀
- 如何调试delphi串口通讯的结果
- 如何改变ListView中每条记录中各列的值?
- 使用shockwaveflash1.SetVariable();设置变量为何不能在Flash中显示出来?
- 请教大虾:如何通过程序P1来控制B/S模式的应用程序P2,比如,P1可以填写P2的文本框等?
{
HWND hMainWnd;
DWORD dwProcessID;
};
BOOL CALLBACK EnumWinProc(HWND hwnd, LPARAM lParam)
{
DWORD dwID;
EnumParam* pep = (EnumParam*)lParam;
GetWindowThreadProcessId(hwnd, &dwID);
if (dwID == pep->dwProcessID) {
pep->hMainWnd = hwnd; return 0;
}
return TRUE;
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
EnumParam ep;
STARTUPINFO si;
PROCESS_INFORMATION pi;
ep.hMainWnd = NULL;
memset(&si, 0, sizeof(si));
si.cb = sizeof(STARTUPINFO);
if (CreateProcess(NULL,"notepad.exe c:\\1.txt",
NULL,NULL,FALSE,0,NULL,NULL,&si,&pi))
{
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
ep.dwProcessID = pi.dwProcessId;
EnumWindows((WNDENUMPROC)EnumWinProc,
(long)&ep);
}
//此时的 ep.hMainWnd 就是你要的NodePad.exe窗口的句柄
}
恳请赐教。