ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽ 2010/07/28(ｿｽｿｽ) 20:55:23

ｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽB
ｿｽﾐとつ皆ｿｽｿｽｿｽｿｽﾌ案ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽpｿｽﾓゑｿｽｿｽAｿｽｿｽｿｽﾌ擾ｿｽﾉペｿｽ[ｿｽWｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽzｿｽu
DockSite=True ｿｽﾆゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ対ゑｿｽｿｽﾄ別ゑｿｽexeｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈどゑｿｽﾊに作成ｿｽｿｽｿｽｿｽexeｿｽjｿｽｿｽ
ｿｽhｿｽbｿｽLｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽﾈ擾ｿｽﾌようｿｽﾈゑｿｽｿｽﾆは出ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽﾈみに難ｿｽｿｽｿｽExeｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾌドｿｽbｿｽLｿｽｿｽｿｽOｿｽｿｽ manualDockｿｽﾅ難ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ艪ｭｿｽｿｽｿｽがｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

D 2010/07/29(ｿｽｿｽ) 00:32:39

SetParent APIｿｽｿｽgｿｽｿｽｿｽﾎでゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈどのタｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽsｿｽvｿｽﾈゑｿｽSetWindowLong APIｿｽｿｽgｿｽｿｽｿｽﾄタｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽ無ゑｿｽｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽTｿｽCｿｽYｿｽﾌ抵ｿｽｿｽｿｽｿｽｿｽSetWindowPos APIｿｽｿｽSWP_NOACTIVATEｿｽIｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄ使ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ。

  private
    { Private ｿｽ骭ｾ }
    F_hWindow: HWND;


procedure TForm1.Button1Click(Sender: TObject);
var
  li_Style: Longint;
begin
  F_hWindow := FindWindow('Notepad', nil);
  if (F_hWindow <> 0) then begin
    Windows.SetParent(F_hWindow, TabSheet1.Handle);

    //ｿｽ^ｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽ無ゑｿｽｿｽｿｽ
    li_Style := GetWindowLong(F_hWindow, GWL_STYLE);
    if ((li_Style and WS_CAPTION)    <> 0) then Dec(li_Style, WS_CAPTION);
    if ((li_Style and WS_THICKFRAME) <> 0) then Dec(li_Style, WS_THICKFRAME);
    SetWindowLong(F_hWindow, GWL_STYLE, li_Style);

    PageControl1Resize(nil);
  end;
end;

procedure TForm1.PageControl1Resize(Sender: TObject);
begin
  if (F_hWindow <> 0) then begin
    //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽｿｽ^ｿｽuｿｽVｿｽ[ｿｽgｿｽﾉ搾ｿｽｿｽせｿｽｿｽ
    SetWindowPos(F_hWindow, 0, 0, 0, TabSheet1.ClientWidth, TabSheet1.ClientHeight, SWP_NOACTIVATE);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  li_Style: Longint;
begin
  //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ戻ゑｿｽ
  if (F_hWindow <> 0) then begin
    //ｿｽ^ｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽﾉ戻ゑｿｽ
    li_Style := GetWindowLong(F_hWindow, GWL_STYLE);
    li_Style := li_Style or WS_CAPTION or WS_THICKFRAME;
    SetWindowLong(F_hWindow, GWL_STYLE, li_Style);

    Windows.SetParent(F_hWindow, GetDesktopWindow);
  end;

  F_hWindow := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (F_hWindow <> 0) then begin
    Button2Click(nil);
  end;
end;

ｿｽｿｽ 2010/07/29(ｿｽｿｽ) 10:45:31

ｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾍ出ｿｽｿｽﾅ環具ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽﾓゑｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾟり次ｿｽ謔ｽｿｽﾟゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽEｿｽｿｽｿｽｿｽｿｽｿｽﾆ広ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽ 2010/07/29(ｿｽｿｽ) 18:01:11

ｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽﾎゑｿｽｿｽｿｽｿｽｿｽhｿｽbｿｽLｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾋ、ｿｽﾈんだゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾍ抵ｿｽｿｽﾚ親ｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽyｿｽ[ｿｽWｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ ｿｽﾌ擾ｿｽｿｽﾅドｿｽbｿｽLｿｽｿｽｿｽOｿｽｿｽﾚ指ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.