回答我一个小问题二十分相赠

Question

一个对话框加一个shellexecute命令行。
buttonclick首次执行时对话框选了是才执行，第二次运行时首选执行了shellexecute
我的代码是：
if ShellExecute(Handle, 'open', PChar(folderURL), nil, nil, SW_SHOWMAXIMIZED)<=32 then
    Application.MessageBox('路径错误!请重新指定','警告',MB_Ok+MB_ICONWarning);
  else   if Application.MessageBox('改变资源目录应整体移动并重新指定路径,请勿删改系统目录!','提示',MB_OkCANCEL+MB_ICONquestion)=ID_OK then
      ShellExecute(Handle, 'open', PChar(folderURL), nil, nil,SW_SHOWMAXIMIZED);

Answer 1

执行过程中的小问题，代码放在button双击事件中。folderurl是目标文件夹。问题就是在对话框还没有选择就先执行了后面的语句，就是shellexecute

Answer 2

各位尽快帮我想想，完成任务呢：)嘿嘿
共享一个小技巧,DrawColumnCell事件：
if DBGrid1.SelectIndex<>0 then DBGrid1.SelectIndex:=0

Answer 3

shellexecute命令并发执行，可以先判断文件夹是否存在再执行。