1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
|
program ShellExecute1;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
uses
ShellAPI, Windows;
function ShellExecuteErrorMessage(const err: integer): string;
begin
case err of
0:
result := 'The operating system is out of memory or resources.';
ERROR_FILE_NOT_FOUND:
result := 'The specified file was not found.';
ERROR_PATH_NOT_FOUND:
result := 'The specified path was not found.';
ERROR_BAD_FORMAT:
result := 'The .exe file is invalid (non-Win32 .exe or error in .exe image).';
SE_ERR_ACCESSDENIED:
result := 'The operating system denied access to the specified file.';
SE_ERR_ASSOCINCOMPLETE:
result := 'The file name association is incomplete or invalid.';
SE_ERR_DDEBUSY:
result := 'The DDE transaction could not be completed because other DDE transactions were being processed.';
SE_ERR_DDEFAIL:
result := 'The DDE transaction failed.';
SE_ERR_DDETIMEOUT:
result := 'The DDE transaction could not be completed because the request timed out.';
SE_ERR_DLLNOTFOUND:
result := 'The specified DLL was not found.';
{SE_ERR_FNF:
result := 'The specified file was not found.';}
SE_ERR_NOASSOC:
result := 'There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.';
SE_ERR_OOM:
result := 'There was not enough memory to complete the operation.';
{SE_ERR_PNF:
result := 'The specified path was not found.';}
SE_ERR_SHARE:
result := 'A sharing violation occurred.';
else
Str(err, result);
end;
end;
var
i: integer;
begin
i := ShellExecute(0, 'print', 'C:\document.odt', nil, nil, SW_HIDE) ;
WriteLn(ShellExecuteErrorMessage(i));
Write('Appuyez sur la touche Entrée... ');
ReadLn;
end. |
Partager