摘要： 创建进程后得到该进程的主窗口句柄var StartUpInfo: TStartUpInfoA; ProcessInfo: TProcessInformation; gui: tagGUITHREADINFO; hAcount: HWND;begin FillChar(StartUpInfo, Sizeof(TStartUpInfo), #0); FillChar(ProcessInfo, Sizeof(TProcessInformation), #0); StartUpInfo.cb := Sizeof(TstartUpInfo); try CreateProcessA(PAnsiChar(F 阅读全文