Contributor: KEITH ANDERSON
{
> I need run a MS-DOS program at my program, and wait until MS-DOS program
> finish its work.
Here is probably the most original way to do this, but works the best.
It creates a .PIF file and uses that to execute the DOS program.
Note that the first function "exec" runs a windows program and waits, etc.
(This is for Delphi 2.x only)
Function Exec(Path,Params,WorkPath:string; Wait:Boolean; Runmode:integer):boolean;
{Path Full path to the executable
Params Parameters
WorkPath Default directory, '' if same path as executable
Wait TRUE if execution of current program waits until new program finishes
RUNMODE How the application is executed (0 for default SHOWNORMAL):
Value Meaning
SW_HIDE Hides the window and activates another window.
SW_MAXIMIZE Maximizes the specified window.
SW_MINIMIZE Minimizes the specified window and activates the
next top-level window in the Z order.
SW_RESTORE Activates and displays the window. If the window
is minimized or maximized, Windows restores it to
its original size and position. An application
should specify this flag when restoring a minimized
window.
SW_SHOW Activates the window and displays it in its current
size and position.
SW_SHOWDEFAULT Sets the show state based on the SW_ flag specified
in the STARTUPINFO structure passed to the CreateProcess
function by the program that started the application. An
application should call ShowWindow with this flag to set
the initial show state of its main window.
SW_SHOWMAXIMIZED Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE Displays the window as a minimized window. The active
window remains active.
SW_SHOWNA Displays the window in its current state. The active
window remains active.
SW_SHOWNOACTIVATE Displays a window in its most recent size and position.
The active window remains active.
SW_SHOWNORMAL Activates and displays a window. If the window is minimized
or maximized, Windows restores it to its original size and
position. An application should specify this flag when
displaying the window for the first time.}
var name:string;
handle:integer;
startUpInfo : TStartupInfo;
processInfo : TProcessInformation;
exeCmd : string;
begin
if Runmode=0 then Runmode:=SW_SHOWNORMAL;
if WorkPath='' then WorkPath:=extractfilepath(path);
if wait
then begin // wait for the process to end...
// Check to make{ If the execution file does not exist, then try
// adding the path, if that fails then you're stuffed }
if not FileExists(path) then begin
result := false;
exit;
end;
// Concat in the parameters
exeCmd := path + ' ' + params;
// Initialise the StartUpInfo record, which handles the creation of
// a new main window for a process
FillChar(startUpInfo, SizeOf(startUpInfo), Chr(0));
StartUpInfo.cb := SizeOf( StartUpInfo );
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := runmode;
// Spawn the process out.
if not CreateProcess(
nil, PChar(exeCmd), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(path)), startUpInfo, processInfo
) then begin
result := false;
end;
// Wait for ze old process to finish.
WaitForSingleObject(processInfo.hProcess, INFINITE);
end
else begin
handle:=ShellExecute(Application.Handle,'open',pchar(path),pchar(params),
pchar(WorkPath),RunMode);
end;
end;
Function ExecDOS(Path,Params,WorkPath,Title:String; Wait:Boolean; Minimized:Boolean):Boolean;
{Just for DOS programs, creates a PIF file then executes it, deleting it afterward.
Path Full path to the executable
Params Parameters
WorkPath Default directory, '' if same path as executable
Title Title to display at top of window
Wait TRUE if execution of current program waits until new program finishes
Minimized TRUE if program is to run minimized.}
var f:file;
pifpath:string;
a:string;
ierr:integer;
begin
if WorkPath='' then WorkPath:=extractfilepath(path);
// this is a generic PIF image that we've hacked to pieces...settings:
// Idle sensitivity set lowest
// Default window
// Exit on terminate
// All memory resources used if needed
// Allow screen saver
// Not dynamic allocation
a:=#0#120#84#69#83#84#68#79#126#49#32#32#32#32#32#32#32#32#32#32+
#32#32#32#32#32#32#32#32#32#32#32#32#128#2#0#0#68#58#92#116#101+
#115#116#100#111#115#112#114#111#103#114#97#109#116#104#105#110+
#103#46#101#120#101#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#16#0#101#58#92#116#101#109#112+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#45#101#120+
#32#100#58#92#116#101#115#116#32#100#58#92#42#46#42#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#1#0#255#25#80#0#0#7#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#77#73+
#67#82#79#83#79#70#84#32#80#73#70#69#88#0#135#1#0#0#113#1#87#73+
#78#68#79#87#83#32#51#56#54#32#51#46#48#0#5#2#157#1#104#0#128+
#2#0#0#100#0#50#0#255#255#0#0#255#255#0#0#2#0#2#0#159#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#45#101#120#32#100#58#92#116#101+
#115#116#32#100#58#92#42#46#42#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#87+
#73#78#68#79#87#83#32#86#77#77#32#52#46#48#0#255#255#27#2#172+
#1#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#80#73#70+
#77#71#82#46#68#76#76#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#2#0#0#0#0#0#0#0#0#0+
#0#0#0#0#129#0#0#0#0#0#0#0#0#0#0#0#1#0#0#0#5#0#25#0#3#0#200#0+
#232#3#2#0#10#0#1#0#0#0#0#0#0#0#28#0#0#0#0#0#0#0#8#0#12#0#84#101+
#114#109#105#110#97#108#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#76#117#99#105#100#97#32#67#111#110#115#111#108#101+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#3#0#0#0#80#0#25#0#128+
#2#44#1#0#0#0#0#22#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0+
#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#0;
title:=spaces(title,30);
move(title[1],a[$02+1],30);
if length(path)>63 then path:=copy(path,1,63);
path:=path+#0;
move(path[1],a[$24+1],length(path));
if length(params)>63 then params:=copy(params,1,63);
params:=params+#0;
move(params[1],a[$a5+1],length(params));
move(params[1],a[$1c5+1],length(params));
if length(workpath)>63 then workpath:=copy(workpath,1,63);
workpath:=workpath+#0;
move(workpath[1],a[$65+1],length(workpath));
if minimized
then a[$1af+1]:=#$12
else a[$1af+1]:=#$2;
result:=false; // default unsuccessful
pifpath:=newfilename(temppath+'00000000.pif',false);
assignfile(f,pifpath);
rewrite(f,1);
ierr:=ioresult;
blockwrite(f,a[1],length(a),ierr);
closefile(f);
if ierr<>length(a) then exit;
result:=exec(pifpath,'','',wait,0);
application.processmessages;
if not wait then delay(1000); // we must wait one second for Windows to read file
deletefile(pifpath);
end;