안녕하셔요..


procedure TForm1.FormCreate(Sender: TObject);
begin
H := FindWindow('Progman', nil);
H := FindWindowEx(H, 0, 'SHELLDLL_DefView', nil);
oh := Windows.GetParent(H);
Windows.SetParent(H, self.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Windows.SetParent(H, oh);
end;


다음과 같이 하시면 됩니다.

안되는데요....
에러만 뜨고.......
어디에 이미지를 넣는거에요?
초ㄹ보라.......
그리고 H는 변수 인가여?
선언해야되는거에여
어디에서 해야되여.......
통 몰겠어요.........
--;

전체소스입니다.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
H: HWND;
oh: HWND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
H := FindWindow('Progman', nil);
H := FindWindowEx(H, 0, 'SHELLDLL_DefView', nil);
oh := Windows.GetParent(H);
Windows.SetParent(H, self.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Windows.SetParent(H, oh);
end;

end.