Probleme mit Try Ecxept und ShellExecute

[Klaus01]

sollte in etwa so gehen ...

Delphi-Quellcode:

begin
  {$I-}
     shellexecute (handle, 'open', 'X:\Thunderbird\Thunderbird.exe', nil, nil, sw_shownormal); 
  {$I+}
  if IOResult <= 32 then
    begin
      shellexecute (handle, 'open', 'C:\Programme\TrueCrypt\TrueCrypt.exe', nil, nil, sw_shownormal); 

    end

end;

Grüße
Klaus