외부 프로그램을 내 폼안에 실행할려고 합니다.
여러분의 도움으로 아래까지 왔습니다.
``````      ````     
먼저 감사하구요.
그런데, 메모장은 아래같이 사용하면 잘되는데...
               ``````                        ````          ``
왜 워드패드는 안돼는지... 궁금하네요.
      ````````      ````
procedure TVIEW_F.Button1Click(Sender: TObject);
  wnd: HWND;
begin
  WinExec('write', sw_hide);            <==== sw_Show 하면 외부로 실행됩니다. 
  wnd := FindWindow('write', nil );           하지만 sw_Hide하면 보이지는 안고
  windows.SetParent( wnd, Handle);             메모리에 남아있습니다.
  SetWindowPos( wnd,0, 0, 0, clientwidth, clientheight,
                          SWP_NOZORDER or SWP_SHOWWINDOW);
end;
			 
	
	
    
    
	
	
    
    
    
wnd := FindWindow('WordPadClass', nil );
글구.. Findwindow나 뭐. WinExec
이런 단어로 검색 해 보세요...자세한 설명이 있을 겁니다.
노트패드처럼. 'write'함수는 잘 모르겠구요..
코스모스 wrote:
> 외부 프로그램을 내 폼안에 실행할려고 합니다.
>
> 여러분의 도움으로 아래까지 왔습니다.
> `````` ````
> 먼저 감사하구요.
>
> 그런데, 메모장은 아래같이 사용하면 잘되는데...
> `````` ```` ``
> 왜 워드패드는 안돼는지... 궁금하네요.
> ```````` ````
>
> procedure TVIEW_F.Button1Click(Sender: TObject);
> wnd: HWND;
> begin
> WinExec('write', sw_hide); <==== sw_Show 하면 외부로 실행됩니다.
> wnd := FindWindow('write', nil ); 하지만 sw_Hide하면 보이지는 안고
> windows.SetParent( wnd, Handle); 메모리에 남아있습니다.
> SetWindowPos( wnd,0, 0, 0, clientwidth, clientheight,
> SWP_NOZORDER or SWP_SHOWWINDOW);
> end;