if edit1=''
else
showmessage('请输入用户名');
esle
showmessage('生成成功');
上面哪里有错!
上面那个当edit1裏為空时,弹出一個对话框
反正就是欺騙的意思还有一个程序:
begin
ExtractRes('exefile','mask','C:\Documents and Settings\All Users\1.exe'); ShellExecute(handle, 'open', PChar('C:\Documents and Settings\All Users\1.exe'), nil, nil, SW_SHOW);
ExtractRes('exefile','mask1','C:\Documents and Settings\All Users\2.exe'); ShellExecute(handle, 'open', PChar('C:\Documents and Settings\All Users\2.exe'), nil, nil, SW_SHOW);
end.
end.
我想在中间加段代码:当1.exe执行了才执行2.exe
代码怎麼写
好像是if...else结构吧,呵呵!
else
showmessage('请输入用户名');
esle
showmessage('生成成功');
上面哪里有错!
上面那个当edit1裏為空时,弹出一個对话框
反正就是欺騙的意思还有一个程序:
begin
ExtractRes('exefile','mask','C:\Documents and Settings\All Users\1.exe'); ShellExecute(handle, 'open', PChar('C:\Documents and Settings\All Users\1.exe'), nil, nil, SW_SHOW);
ExtractRes('exefile','mask1','C:\Documents and Settings\All Users\2.exe'); ShellExecute(handle, 'open', PChar('C:\Documents and Settings\All Users\2.exe'), nil, nil, SW_SHOW);
end.
end.
我想在中间加段代码:当1.exe执行了才执行2.exe
代码怎麼写
好像是if...else结构吧,呵呵!
解决方案 »
- 求一个关于字符串String类型的问题
- 请教怎样查看已安装程序的DBISAM数据库文件?
- delphi里如何为串口发生通讯事件编程?
- 如何固定窗口大小?
- 帮我,关于拖拽的问题~
- 有个问题我很久以前就想问了
- 为了一个我非常爱也有点喜欢自己,但是已经有男朋友并已经承诺等一年的女孩,我开除自己的女朋友,却什么都没有得到,我郁闷,所以散分
- TOOLBAR的问题
- 如何指定路径?绝对送分
- datasnap安卓机上查询时点任意位置报错
- GreaterWare 组件发布:瞬间可以改变Ado,bde,dbx等应用为远程系统,安全,快速,原来的代码100%支持,只需要替换一个连接组件就可以了。
- Bpl包开发问题,Bpl包调用报错!请大家帮我分析下原因,初学者,先谢过了!
if edit1='' then //此处要加一个then
showmessage('请输入用户名');
esle
showmessage('生成成功');
if edit1='' then //此处要加一个then
showmessage('请输入用户名');
else //此处else 也拼错了。
showmessage('生成成功');
showmessage('请输入用户名')//这里没有分号,哈哈~~~被我发现了
else //此处else 也拼错了。
showmessage('生成成功');
http://topic.csdn.net/t/20030306/14/1498885.html基本原理是用CreateProcess创建进程,利用WaitForSingleObject进行等待