以解决,不过有问题,谁能带一下,看看如何恢复。<br><br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, jpeg, ExtCtrls, StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> img1: TImage;<br> btn1: TButton;<br> btn2: TButton;<br> procedure FormCreate(Sender: TObject);<br> procedure btn1Click(Sender: TObject);<br> procedure btn2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br> var had,had1:THandle;<br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.FormCreate(Sender: TObject);<br><br>begin<br> had:=FindWindow('Progman', 'Program Manager');<br> //had1:=FindWindow('Progman', 'Program Manager');<br><br>end;<br><br>procedure TForm1.btn1Click(Sender: TObject);<br>begin<br> Windows.SetParent(had,Form1.Handle);<br>end;<br><br>procedure TForm1.btn2Click(Sender: TObject);<br>begin<br>Close;<br>end;<br><br>end.