Home Task Execution from Delphi using ShellExecute
Reply: 0

Task Execution from Delphi using ShellExecute

user7111
1#
user7111 Published in May 21, 2018, 9:16 am

For days now, I am trying to figure out how to execute an ExeFile with Specified Task in Delphi using ShellExecute. Below is my latest code giving my the error "The specified file was not found":

    procedure TfrmGTX.btnQuickBooksSyncClick(Sender: TObject);
    var
      ExecuteResult : integer;
      Path : string;
     begin
      Path := IncludeTrailingPathDelimiter(ExtractFilePath('MyApp.exe'));
      ExecuteResult := ShellExecute(0, nil, PChar(Path + 'cd C:\Program Files                                              
       (x86)\Folder1\Folder2\MyApp.exe a_Sales /Connect'), nil, nil, 
       SW_SHOWNORMAL);
      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.');
        else ShowMessage('Unknown Error.');
      end;

     end;

I am sure a small glitch I am missing here. Any help please...

Many thanks!


Update: Deleted this portion.


Solution: I removed the IncludeTrailingPathDelimiter andExtractFilePath, used ShellExecuteEx, and correct Parameters. And that's it, able to solve the problem.

    procedure TfrmGTX.btnQBSyncClick(Sender: TObject);
     var
      FileName, Parameters, Folder, Directory: string;
      sei: TShellExecuteInfo;
      Error: DWORD;
      OK: boolean;
     begin
      Folder := 'C:\Program Files (x86)\Folder1\Folder2\';
      FileName := Folder + 'MyApp';
      Parameters := 'MyTask';
      ZeroMemory(@sei, SizeOf(sei));
      sei.cbSize := SizeOf(sei);
      sei.lpFile := PChar(FileName);
      sei.lpParameters := PChar(Parameters);
      sei.lpDirectory := PChar(Folder);
      sei.nShow := SW_SHOWNORMAL;
      OK := ShellExecuteEx(@sei);
      if not OK then
        begin
          Error := GetLastError;
          case Error of
              0 : ShowMessage('Error ' + IntToStr(Error) + ': The operating system is out of memory or resources.');
              2 : ShowMessage('Error ' + IntToStr(Error) + ': The specified file was not found.');
              3 : ShowMessage('Error ' + IntToStr(Error) + ': The specified path was not found.');
              5 : ShowMessage('Error ' + IntToStr(Error) + ': Windows 95 only: The operating system denied access to the specified file.');
              8 : ShowMessage('Error ' + IntToStr(Error) + ': Windows 95 only: There was not enough memory to complete the operation.');
              10 : ShowMessage('Error ' + IntToStr(Error) + ': Wrong Windows version.');
              11 : ShowMessage('Error ' + IntToStr(Error) + ': The .EXE file is invalid (non-Win32 .EXE or error in .EXE image).');
              12 : ShowMessage('Error ' + IntToStr(Error) + ': Application was designed for a different operating system.');
              13 : ShowMessage('Error ' + IntToStr(Error) + ': Application was designed for MS-DOS 4.0.');
              15 : ShowMessage('Error ' + IntToStr(Error) + ': Attempt to load a real-mode program.');
              16 : ShowMessage('Error ' + IntToStr(Error) + ': Attempt to load a second instance of an application with non-readonly data segments.');
              19 : ShowMessage('Error ' + IntToStr(Error) + ': Attempt to load a compressed application file.');
              20 : ShowMessage('Error ' + IntToStr(Error) + ': Dynamic-link library (DLL) file failure.');
              26 : ShowMessage('Error ' + IntToStr(Error) + ': A sharing violation occurred.');
              27 : ShowMessage('Error ' + IntToStr(Error) + ': The filename association is incomplete or invalid.');
              28 : ShowMessage('Error ' + IntToStr(Error) + ': The DDE transaction could not be completed because the request timed out.');
              29 : ShowMessage('Error ' + IntToStr(Error) + ': The DDE transaction failed.');
              30 : ShowMessage('Error ' + IntToStr(Error) + ': The DDE transaction could not be completed because other DDE transactions were being processed.');
              31 : ShowMessage('Error ' + IntToStr(Error) + ': There is no application associated with the given filename extension.');
              32 : ShowMessage('Error ' + IntToStr(Error) + ': Windows 95 only: The specified dynamic-link library was not found.');
            else ShowMessage('Unknown Error.');
          end;
        end;
     end;
You need to login account before you can post.

About| Privacy statement| Terms of Service| Advertising| Contact us| Help| Sitemap|
Processed in 0.41313 second(s) , Gzip On .

© 2016 Powered by mzan.com design MATCHINFO