Category

Development Platform
Home > SourceCode/Document > Network Security > View Code
main.pas
Package: Desktop.rar　[view]
Upload User: hlshsb
Upload Date: 2007-04-04
Package Size: 193k
Code Size: 3k
Category:

Network Security

Development Platform:

Delphi

main.pas：Code Content
  1. {********************************************************
  2. ***                                                   ***
  3. ***                        破天惊工作室
  4. ***  名称:嵌入窗体之桌面嵌入
  5. ***  日期:12.9.2004
  6. ***  环境:Delphi6+WinXP
  7. ***  作者:破天惊
  8. ***  E-Mail:Tresss@sohu.com
  9. ***  HomePage:http://tresss.com
  10. ***
  11. ***  说明:
  12. ***                                                   ***
  13. *********************************************************}
  14. unit main;
  16. interface
  18. uses
  19.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  20.   Dialogs, StdCtrls, ExtCtrls;
  22. type
  23.   TFrmMain = class(TForm)
  24.     Btn1: TButton;
  25.     Timer1: TTimer;
  26.     Edt1: TEdit;
  27.     BtnOwner: TButton;
  28.     Label1: TLabel;
  29.     Btn2: TButton;
  30.     Edt2: TEdit;
  31.     Label2: TLabel;
  32.     Btn3: TButton;
  33.     Edt3: TEdit;
  34.     Label3: TLabel;
  35.     BtnRnd: TButton;
  36.     procedure Timer1Timer(Sender: TObject);
  37.     procedure BtnOwnerClick(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.     procedure Btn1Click(Sender: TObject);
  40.     procedure Btn2Click(Sender: TObject);
  41.     procedure Btn3Click(Sender: TObject);
  42.     procedure BtnRndClick(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  49. var
  50.   FrmMain: TFrmMain;
  51.   TmpHandle:THandle;
  53. implementation
  55. {$R *.dfm}
  57. procedure TFrmMain.Timer1Timer(Sender: TObject);
  58. begin
  59.   FrmMain.ParentWindow:=0;
  60. end;
  62. procedure TFrmMain.BtnOwnerClick(Sender: TObject);
  63. begin
  64.   FrmMain.ParentWindow:=0;
  65. end;
  67. procedure TFrmMain.FormCreate(Sender: TObject);
  68. begin
  69.   TmpHandle:=FindWindow('Progman',Nil);
  70.   If TmpHandle<>0 Then
  71.   Begin
  72.     Edt3.Text:=IntToStr(TmpHandle);
  73.     TmpHandle:=GetWindow(TmpHandle,GW_CHILD);
  74.     Edt2.Text:=IntToStr(TmpHandle);
  75.     TmpHandle:=GetWindow(TmpHandle,GW_CHILD);
  76.     Edt1.Text:=IntToStr(TmpHandle);
  77.   End
  78.   Else
  79.     ShowMessage('找不到桌面,可能是Explorer已结束!');
  80. end;
  82. procedure TFrmMain.Btn1Click(Sender: TObject);
  83. begin
  84.   If Edt1.Text<>'' Then
  85.   Begin
  86.     FrmMain.ParentWindow:=StrToInt(Edt1.Text);
  87.     BringWindowToTop(FrmMain.Handle);
  88.   End;
  89. end;
  91. procedure TFrmMain.Btn2Click(Sender: TObject);
  92. begin
  93.   If Edt2.Text<>'' Then
  94.   Begin
  95.     FrmMain.ParentWindow:=StrToInt(Edt2.Text);
  96.     BringWindowToTop(FrmMain.Handle);
  97.   End;
  98. end;
  100. procedure TFrmMain.Btn3Click(Sender: TObject);
  101. begin
  102.   If Edt3.Text<>'' Then
  103.   Begin
  104.     FrmMain.ParentWindow:=StrToInt(Edt3.Text);
  105.     BringWindowToTop(FrmMain.Handle);
  106.   End;
  107. end;
  109. procedure TFrmMain.BtnRndClick(Sender: TObject);
  110. begin
  111.   If (Edt3.Text<>'') and (Edt2.Text<>'') Then
  112.   Begin
  113.     FrmMain.ParentWindow:=StrToInt(Edt3.Text);
  114.     BringWindowToTop(FrmMain.Handle);
  115.     FrmMain.Left:=0;
  116.     MoveWindow(StrToInt(Edt2.Text),170,0,screen.Width-170,screen.Height,False);
  117.   End; 
  118. end;
  120. end.