提个不好的思路
用findwindow来判断窗体是不是还存在
用截获消息的方法来判断用户是点了确定,还是取消
用findwindow来判断窗体是不是还存在
用截获消息的方法来判断用户是点了确定,还是取消
解决方案 »
- Delphi程序在XP中出错
- 前輩請賜教:如何返回當前tdbgrid.Columns(i)中的 i (列)數
- 使用Delphi整合各软件模块的问题
- 如何取得当前数据库的大小啊???
- 版主留情:問下 .ram格式的文件用甚麼播放?(在線等結貼)
- 怎么移动框架,满分求助
- 如何使联接到同一个数据表上的两张ADOtable实现同步?
- 请问这个图中用的是什么控件?
- 怎么搞的?Borland Database 问题---我的机器上可以运行,在别的机器上出错(error $2180) 如何解决?给分。
- 在delphi中怎样读出已经保存的图像?急,急,急!
- 数据库的连接(BDE 怎样连接到 ACCESS)?
- 拿分啊
var
nRetWait: Integer;
stInfo: STARTUPINFO;
prInfo: PROCESS_INFORMATION;
begin
ZeroMemory(@stInfo, SizeOf(stInfo));
stInfo.cb := SizeOf(stInfo);
stInfo.dwFlags := STARTF_USESHOWWINDOW;
stInfo.wShowWindow := wShowWindow; Result := CreateProcess(nil,
PChar(sCmdLine),
nil,
nil,
TRUE,
CREATE_NEW_CONSOLE
or NORMAL_PRIORITY_CLASS,
nil,
PChar(sRunningDir),
stInfo,
prInfo); if Result then
begin
nRetWait := WaitForSingleObject(prInfo.hProcess, INFINITE);
CloseHandle(prInfo.hThread);
CloseHandle(prInfo.hProcess);
Result := not (nRetWait = WAIT_TIMEOUT);
end;
end;
关健就是这句WaitForSingleObject(prInfo.hProcess, INFINITE);让它一直处于发信号状态,
至于细节方面,你还是自己看书,看帮助吧,网上讲不清楚