Solved

Running programs

Posted on 2000-02-26
8
172 Views
Last Modified: 2010-04-04
Hi!

Maybe it's an easy question, but anyway... how can i run a program when my application starts?

That program could be a com, exe or a batch (.bat) file.

Thank you
0
Comment
Question by:janez
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
  • +2
8 Comments
 
LVL 1

Expert Comment

by:cobramania
ID: 2561825
Use  WinExec for simple execution:

procedure TForm1.Button1Click(Sender: TObject);
begin
     if (WinExec('C:\Progra~1\GrIP\GripInit.exe', SW_SHOWNORMAL)<32) then
        MessageDlg('You dont have GripInit.exe',mtError,[mbOK],0);
end;

Change to Form Show event if you want the program executed when your program run.

Hope this helps :)
0
 

Author Comment

by:janez
ID: 2562252
For cobramania:

Hi! Your answer is excellent and i'll evaluate it, but i'd like to ask you something else. How can I run a program with patameters, for example: "arj.exe x archive.arj" ?

Thank you
0
 

Expert Comment

by:yingkit
ID: 2562322
Hi, try the following:

uses shellapi;
.......
procedure TForm1.Button1Click(Sender: TObject);
begin
     ShellExecute(0, 'open', PChar(arj.exe), pchar('x archive.arj'), nil, SW_NORMAL);
end;
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:janez
ID: 2562393
Sorry yingkit, i have to reject your answer, because i promised to cobramania to evaluate his answer. Really sorry again!

0
 
LVL 1

Accepted Solution

by:
cobramania earned 30 total points
ID: 2562548
Hi, since i thought you don't need any paramater so i pasted the previous code....
Here's the complete code of mine with the parameter:

procedure TForm1.Button1Click(Sender: TObject);
begin
     if (WinExec('C:\Progra~1\GrIP\GripInit.exe -ge -ke', SW_SHOWNORMAL)<32) then
        MessageDlg('You dont have GripInit.exe',mtError,[mbOK],0);
end;

take a look at the "-ge" and "-ke" parameters

Hope this helps :)
0
 
LVL 1

Expert Comment

by:titz
ID: 2573778
hi,
you can do the same with CREATEPROCESS.
if wanted i can give you an example.

cheers
titz
0
 

Expert Comment

by:zeno_rummler
ID: 2596587
I don't know what operating system you are programming for.
The WinExec function is available just for compatibility to the 16-bit systems!!
To start a program, use - like mentiones before - ShellExecute oder
CrateProcess.
I found out, that ShellExecute is more stabel, when you change the OS.
Running at win9x, Win NT 4.0 won't start the programm and creates an ACCESS_DENIED ERROR
0
 

Expert Comment

by:zeno_rummler
ID: 2596595
Sorry, I forgot:
The parameters for these function are described in
win32.hlp of delhi3

:)

Zeno
0

Featured Post

[Webinar] Code, Load, and Grow

Managing multiple websites, servers, applications, and security on a daily basis? Join us for a webinar on May 25th to learn how to simplify administration and management of virtual hosts for IT admins, create a secure environment, and deploy code more effectively and frequently.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question