Get ShellExecute Error in Delphi

ExecuteResult:=ShellExecute(Handle, 'open', PChar(filename), nil, nil, SW_HIDE);

case ExecuteResult of
 0 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The operating system is out of memory or resources.');
 2 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The specified file was not found.');
 3 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The specified path was not found.');
 5 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Windows 95 only: The operating system denied access to the specified file.');
 8 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Windows 95 only: There was not enough memory to complete the operation.');
 10 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Wrong Windows version.');
 11 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).');
 12 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Application was designed for a different operating system.');
 13 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Application was designed for MS-DOS 4.0.');
 15 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Attempt to load a real-mode program.');
 16 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Attempt to load a second instance of an application with non-readonly data segments.');
 19 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Attempt to load a compressed application file.');
 20 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Dynamic-link library (DLL) file failure.');
 26 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': A sharing violation occurred.');
 27 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The filename association is incomplete or invalid.');
 28 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The DDE transaction could not be completed because the request timed out.');
 29 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The DDE transaction failed.');
 30 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': The DDE transaction could not be completed because other DDE transactions were being processed.');
 31 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': There is no application associated with the given filename extension.');
 32 : ShowMessage('Error ' + IntToStr(ExecuteResult) + ': Windows 95 only: The specified dynamic-link library was not found.');
 end;
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s