DELPHi把外界程序嵌到窗体中

var   hSndrec32:   HWND;

begin
    hSndrec32   :=   WIndows.FindWindow(nil,   '无标题 - 记事本');
    if   hSndrec32 <> 0   then
    begin
    Windows.SetParent(hSndrec32,   pnl1.Handle);
    Windows.MoveWindow(hSndrec32,   0,   0,pnl1.Width,pnl1.Height,true);
    end
    else
    showmessage( '未发现该程序！');