Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 150
  • Last Modified:

Running app.

How do you run another app. that is within your current app. exe folder and error check if it is?
Or how do you runn it if it is in a folder within your current app.exe folder?
0
Enej
Asked:
Enej
  • 3
1 Solution
 
Mohammed NasmanSoftware DeveloperCommented:
Hello

  use shellapi to run the application, it will use the folder u r running ur program from as current folder and check about the file using FileExists

I hope that what are you looking for

Uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FileExists('test.exe') then
    ShellExecute(handle,'open','test.exe',nil,nil,SW_ShowNormal)
  else
    ShowMessage('This file is not exist in the current folder');
end;

Mohammed
0
 
Mohammed NasmanSoftware DeveloperCommented:
Hello

  for better coding, use ExtractFilePath funcation tp get the folder for ur application that running.

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path : String;
begin
  Path := ExtractFilePath(Application.ExeName);
  if FileExists(Path + 'test.exe') then
    ShellExecute(handle,'open',Pchar(Path + 'test.exe'),nil,nil,SW_ShowNormal)
  else
    ShowMessage('This file is not exist in the current folder');
end;

if you want to run a program within ur current folder just add this folder to the path string like :

  Path := ExtractFilePath(Application.ExeName) + 'test folder\';

Best regards
Mohammed Nasman


0
 
EnejAuthor Commented:
SellamAlleikum Mohammed,
It works OK .Thanks!
0
 
Mohammed NasmanSoftware DeveloperCommented:
wa alikum alsalam
I'm happy that's work with you :)
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now