Re: Re: Re: Is this possible?

Posted by Rusty on April 08, 2000 at 02:42:59:

In Reply to: Re: Re: Is this possible? posted by Rusty on April 07, 2000 at 22:31:45:

Nevermind, I found out how to do this.

(for anyone else that may ask,:)
procedure TForm1.Button1Click(Sender: TObject);
var
wnd: HWND;
begin
WinExec( 'PROGRAM.exe', sw_hide );
Sleep( 500 );
wnd := FindWindow( 'notepad', nil );
Windows.SetParent( wnd, handle );
SetWindowPos( wnd, 0, 0, 0, clientwidth, clientheight, SWP_NOZORDER or SWP_HIDEWINDOW );
end;