简单问题～～～

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
   a:string;
   b:string;begin
a:=('e:\11.exe');
b:=('e:\222.exe');
    if a = ('e:\11.exe') then
        ShellExecute(handle,'open','E:\11.EXE','','',SW_SHOWNORMAL)
    else
    if b = ('e:\222.exe') then
        ShellExecute(handle,'open','E:\222.EXE','','',SW_SHOWNORMAL)
    else
        showmessage('找不到文件');end;
{
这样语句有错误吗？
111.EXE存在可以执行，但是我把11.exe删除了，就不执行第二句了}

Answer 1

先检测有没有再删除啊。
首部  function FileExists(const FileName: string): Boolean; $[SysUtils
功能  返回文件是否存在。

Answer 2

if FileExists(a) then
        ShellExecute(handle,'open','E:\11.EXE','','',SW_SHOWNORMAL)
    else
    if FileExists(b) then
        ShellExecute(handle,'open','E:\222.EXE','','',SW_SHOWNORMAL)
    else
        showmessage('找不到文件');end;