我用ShellExecute打开了一个Word文件 操作后最小化 如何再次将其自动最大化??
解决方案 »
- 关于 类属性(properity)的读函数参数问题
- DBGrid中如何选定指定的那一行?
- 用API函数编的串口通信程序接收的怪问题
- TIdTCPClient的联接问题
- 发分
- 怎样才能使 窗体(Form)暂时不能被拖动??
- 一套delphi6+sqlserver的医院信息管理系统源码换lotus的B/S模式的OA系统源码,请尽快联系。email:[email protected]
- tdxTreeList v4.0 for D7的哪里下载...
- 简单问题,高分求救
- 高分求教:有关DBGrid的两个问题~!
- (急!)实时查询
- 怎样让某一个fsMDIChild型的Form在创建后,不在fsMDIForm的windows菜单中自动添加TMenuitem,而其他的fsChildForm可以?
如果没有句柄,用 FindWindow(类名, 窗口标题);来查找此窗口。
你先查一查showwindow和findwindow这两个api函数,就知道咋用了!!
用的时候先使用findwindow找到这个word窗体,函数的返回值就是句柄,
然后在showwindow中使用.
BOOL ShowWindow( HWND hWnd, int nCmdShow); 就可!CreateProcess 用法參考如下:
var sInfo : TStartupInfo;
pInfo : TProcessInformation;
cmdLine : String;
exitCode : Cardinal;
// 下面是调用过程
cmdLine := 'c:\winnt\notepad.exe';
FillChar(sInfo,sizeof(sInfo),#0);
sInfo.cb := SizeOf(sInfo);
sInfo.dwFlags := STARTF_USESHOWWINDOW;
sInfo.wShowWindow := SW_NORMAL;if not CreateProcess(nil,pchar(cmdLine),nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, sInfo, pInfo) then
MessageBox(Application.handle,'指定程序启动失败!','错误',MB_OK or MB_ICONSTOP)
else
begin
WaitForSingleObject(pInfo.hProcess,INFINITE);
GetExitCodeProcess(pInfo.hProcess,exitCode);
end;