В общем у меня в цикле много раз запускается консольное приложение (конвертор), но не много окон, а прога ждет пока оно завершится потом продолжает цыкл, мне надо чтоб его окно запускалось внутри моей формы!
Иначе по рабочему столу начинают прыгать окшки консольного приложения, то там то тут  ))
Нашел пример http://forum.vingrad.ru/topic-32298.html. Исходник примера http://forum.vingrad.ru/act-Attach/type/post/id-239269.html.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ProcessInfo:TProcessInformation;
CMD:Cardinal;
OldParent:HWND; //если захочет вернуть :)
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var StartUpInfo:TStartupInfo;
PrConsole:String;
pID:Cardinal;
begin
FillChar(StartUpInfo,SizeOf(TStartUpInfo),0);
StartUpInfo.cb:=SizeOf(TStartUpInfo);
StartUpInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow:=SW_SHOW;
PrConsole:=ExtractFilePath(ParamStr(0))+'Console\PrConsole.exe';
if CreateProcess(nil,{'cmd.exe'}PChar(PrConsole),nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo) then
begin
repeat
CMD:=findwindow('ConsoleWindowClass', nil);
pID:=0;
if CMD<>0 then
begin
GetWindowThreadProcessId(CMD,@pID);
if pID<>ProcessInfo.dwProcessId then CMD:=0; //Ждем пока именно наша консоль не окажется на самом верху
end;
until (CMD<>0);
OldParent:=Windows.SetParent(CMD,GroupBox1.Handle);
SetWindowPos(CMD,0,5,20,GroupBox1.ClientWidth-15,GroupBox1.ClientHeight-20,0);
end else
begin
ShowMessage({'cmd.exe - не найден!'}'PrConsole.exe - не найден!');
Application.Terminate;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
TerminateProcess(ProcessInfo.hProcess,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end.
|
Что я пока не понял в примере, это то как окно появляется на форме и как оно таскается мышью... :(
Вообще мне нажна процедура которая будет в своих параметрах иметь еще и GroupBox в котором будет работать окно консольного приложения.
Сейчас я пользуюсь функцией которая запускает и ждет выполнения приложения:
| Код |
function SwitchToProg(const Path: string): Boolean;
var
SI: TStartupInfo;
PI: TProcessInformation;
ExitCode: Cardinal;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
Result := CreateProcess(nil, PChar(Path), nil, nil, False, 0, nil, nil,
SI, PI);
if Result then
begin
Application.MainForm.Hide;
while GetExitCodeProcess(PI.hProcess, ExitCode) and
(ExitCode = STILL_ACTIVE) do
; // ждем завершения, пустой цикл
Application.MainForm.Show;
end;
end;
|
Подскажите как ее переделать что было примерно так
| Код |
function SwitchToProg(const Path: string,GroupBox1:TGroupBox): Boolean;
|
Может ктонибудь предложит вариант проще???
|
