小问题???? 遇到奇怪问题,delphui程序在2000下编译可以运行的,在98下就会蓝屏,??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 编译了,还是没有用if exeFileType='EXE' then begin cmdLine:=exeFile+' '+exePara; cmdPath:=''; sFile:=cmdLine; showwindow(application.handle,sw_hide); if CreateProcess(nil, PChar(sFile), nil, nil, false, normal_priority_class, nil, PChar(ExtractFileDir(cWJLJ)),//application.ExeName)), Startupinfo, ProcessInfo) then begin MainForm.Visible:=False; WaitforSingleObject(Processinfo.hProcess, infinite); CloseHandle(ProcessInfo.hProcess); showwindow(application.handle,sw_show); screen.cursor:=crDefault; end; end; webbrowse网页里的文件加载前如何取得其消息 关于send用法的问题 超级难提 delphi与RTTI [Borland 年终礼品派送三部曲] TImage里面绘图后如何将图清空后再重新绘制。 大家来看一下,今天居然不能结贴!! 为什么我的dbgrid不能显示负值? 是不是SQL server不支持table1.filter语句? 我要几个报表在一张纸上输出,该怎么办? 如何快速对一组maskedit进行条件判断??? 初学者的问题,给你送分!—线程传递参数的问题
if exeFileType='EXE' then
begin
cmdLine:=exeFile+' '+exePara;
cmdPath:='';
sFile:=cmdLine;
showwindow(application.handle,sw_hide);
if CreateProcess(nil,
PChar(sFile),
nil,
nil,
false,
normal_priority_class,
nil,
PChar(ExtractFileDir(cWJLJ)),//application.ExeName)),
Startupinfo,
ProcessInfo) then
begin
MainForm.Visible:=False;
WaitforSingleObject(Processinfo.hProcess, infinite);
CloseHandle(ProcessInfo.hProcess); showwindow(application.handle,sw_show);
screen.cursor:=crDefault;
end; end;