用ShellExecute開啟檔案時

該如何判斷檔案是否順利開啟呢???

因為有時可能檔名錯誤或是路徑錯誤或是檔案已經不存在了..

謝謝~~~

1.判斷檔案是否存在

procedure TForm1.Button1Click(Sender: TObject);
var
FileName : string;
begin
FileName := 'C:\Temp\Test.xls';
IF FileExists(FileName) THEN
ShellExecute(Application.Handle,'open',PChar(FileName),nil,nil,SW_SHOW)
else
ShowMessage(FileName ' File not exist!I');
end;

2.讀取 ShellExecute 的結果

procedure TForm1.Button1Click(Sender: TObject);
var
FileName : string;
RE : Integer;
begin
FileName := 'C:\Temp\Test.xls';
RE := ShellExecute(Application.Handle,'open',PChar(FileName),nil,nil,SW_SHOW);
if RE = ERROR_FILE_NOT_FOUND then
showmessage('File Not found !');
end;

Fishman

int hProg;
hProg=ShellExecute(NULL,NULL,a1.c_str(),NULL,NULL,SW_NORMAL);
if (hProg == ERROR_FILE_NOT_FOUND)
ShowMessage("File Not found !");

[C Error] Unit1.cpp(121): E2034 Cannot convert 'void *' to 'int'

請問該何解決問題呢?? 謝謝

if (ShellExecute(this->Handle, "open", a1.c_str(), NULL,NULL,SW_NORMAL) == (void *)ERROR_FILE_NOT_FOUND)
{
ShowMessage("File Not found !");
}

if (ShellExecute(this->Handle, "open", a1.c_str(), NULL,NULL,SW_NORMAL) == (void *)ERROR_FILE_NOT_FOUND)
{
ShowMessage("File Not found !");
}