[Webinar] Streamline your web hosting managementRegister Today

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

open and close an application

may i know what is the command (and how to used it) in Delphi 3 that can run(open) and exit(close) an application?
0
smile_tbw
Asked:
smile_tbw
1 Solution
 
MatveyCommented:
post your email and a cool component is on it's way...

bosism@netvision.net.il
0
 
erajojCommented:
Use CreateProcess... and ExitProcess...
You can also use the simpler WinExec to start apps.

/// John
0
 
sakyaCommented:
Hi.
examples

var
S: TStartupInfo;
P: TProcessInformation;
const
EXE = 'c:\windows\explore.exe';

begin
GetStartupInfo(S);
CreateProcess(nil,EXE,nil,nil,false,0,nil,nil,S,P);

end;

Now you can start another program.

sakya

0
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
MatveyCommented:
The component has lot's of other functions...
0
 
smile_tbwAuthor Commented:
i need the answer online and not to mail to you. sorry.
0
 
MatveyCommented:
OK, sorry too. You can also download some components for executing apps:

  http://torry.rimini.com/vcl/system/appexec.zip
"A component that allows you to execute applications easily"

  http://torry.rimini.com/vcl/system/aapexec.zip
"This component provides easy way to run and close another applications from your. Allow to wait results of application job"

  http://torry.rimini.com/vcl/system/texec.zip
"Component to run another Windows application."

  http://torry.rimini.com/vcl/system/sfexec.zip
"This is a component for calling other applications in your application. You can get application's Exit Code if you wait for application exit before continuing. It's very important if you run some MSDOS application."

  http://torry.rimini.com/vcl/system/execproc.zip
"TExecuteProcess allows you to launch a process from your Delphi application and wait or not for its completion. Those applications can be launched and followed by the component either synchronously or asynchronously: Synchronous wait is achieved by blocking your application as long as the launched application hasn’t finished. It means your program won’t receive any message from the system (it won’t repaint). Asynchronous wait is achieved by starting a thread from the component, that thread waiting for completion. Once the process has terminated the thread warns the component giving back all information normally available in synchronous mode. In asynchronous wait your application can still process messages and won’t be blocked at all (the window will be repainted).The component can launch either a EXE or COM file as well as a BAT file thus allowing to synchronize execution of external programs."

  http://torry.rimini.com/vcl/system/runapp.zip
"TRunApp component helps to run applications and also it can hooks standard input, output and error streams of running (DOS) application."

Tell me if you find any of them useful. Sorry for posting a silly answere in the beginning... c u, Matvey
0
 
smile_tbwAuthor Commented:
Matvey,

thanks to your suggestion. i will find out later.
0
 
Mariner080498Commented:
You can open applicatiion with OLE object.
  Create OLE object and then use his functions like 'Open' and
'Quit' .  

For example :

 ExcelApp:= CreateOleObject('Excel.Application');
and
    ExcelApp.Quit;
 
You also may use 'WinExec()' procedure to start an Applications.
  Different way to do this is to use Process Handling like that :

var
S: TStartupInfo;
P: TProcessInformation;
const
EXE = 'c:\windows\explore.exe';

begin
GetStartupInfo(S);
CreateProcess(nil,EXE,nil,nil,false,0,nil,nil,S,P);
//DestroyProcess( nil,EXE,nil,nil,false,0,nil,nil,S,P) ;
end;
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

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