D7myYunxiang/云翔基础资料(BaseInfoYX.dll)/U_DKExe.pas

unit U_DKExe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TfrmDKExe = class(TForm)
    pnlApp: TPanel;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    ODPat: TOpenDialog;

    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDKExe: TfrmDKExe;
  hWin:HWND = 0;

implementation
type
  //<2F>洢<EFBFBD><E6B4A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
  PProcessWindow= ^TProcessWindow;
  TProcessWindow= record
  ProcessID: Cardinal;
  FoundWindow:hWnd;
end;
//<2F><><EFBFBD><EFBFBD>ö<EFBFBD>ٺ<EFBFBD><D9BA><EFBFBD>
function EnumWindowsProc(Wnd:
 HWND; ProcWndInfo: PProcessWindow): BOOL; stdcall;
var
  WndProcessID: Cardinal;
begin
  GetWindowThreadProcessId(Wnd,
 @WndProcessID);
  if WndProcessID= ProcWndInfo^.ProcessID then
  begin
    ProcWndInfo^.FoundWindow:= Wnd;
    Result:= False;
    //<2F><><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>ֹͣ EnumWindows
  end
  else
    Result:= True;
   //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
end;
 
// <20><> ProcessID <20><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD> Handle

 
function GetProcessWindow(ProcessID: Cardinal):
 HWND;
var
  ProcWndInfo:
 TProcessWindow;
begin
  ProcWndInfo.ProcessID:= ProcessID;
  ProcWndInfo.FoundWindow:= 0;
  EnumWindows(@EnumWindowsProc, Integer(@ProcWndInfo));
   //<2F><><EFBFBD>Ҵ<EFBFBD><D2B4><EFBFBD>
  Result:= ProcWndInfo.FoundWindow;
end;
 
//<2F><> Panel <20><><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD>г<EFBFBD><D0B3><EFBFBD>
 
function RunAppInPanel(const AppFileName: string;ParentHandle: HWND; var WinHandle:HWND): Boolean;
var
  si: STARTUPINFO;
  pi:TProcessInformation;
begin
  Result:= False;
 
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  FillChar(si,SizeOf(si), 0);
  si.cb:= SizeOf(si);
  si.wShowWindow:= SW_SHOW;
  if not CreateProcess(nil, PChar(AppFileName), nil, nil, true,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil,si, pi)then Exit;
 
  //<2F>ȴ<EFBFBD><C8B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
  WaitForInputIdle(pi.hProcess, 10000);
 
  // ȡ<>ý<EFBFBD><C3BD>̵<EFBFBD> Handle
  WinHandle:= GetProcessWindow(pi.dwProcessID);
  if WinHandle> 0 then
  begin
    //<2F>趨<EFBFBD><E8B6A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    Windows.SetParent(WinHandle,ParentHandle);
 
    //<2F>趨<EFBFBD><E8B6A8><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>
    SetWindowPos(WinHandle, 0, 0, 0, 0, 0,SWP_NOSIZE or SWP_NOZORDER);
 
    //ȥ<><C8A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    //SetWindowLong(WinHandle,GWL_STYLE, GetWindowLong(WinHandle, GWL_STYLE)and (not WS_CAPTION) and (not WS_BORDER) and (not WS_THICKFRAME));
 
    Result:= True;
  end;
 
  //<2F>ͷ<EFBFBD> Handle
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;


{$R *.dfm}

procedure TfrmDKExe.FormDestroy(Sender: TObject);
begin
  frmDKExe:=nil;
end;

procedure TfrmDKExe.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  //<2F>˳<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD>򷢹ر<F2B7A2B9><D8B1><EFBFBD>Ϣ
  if hWin> 0 then PostMessage(hWin,WM_CLOSE, 0, 0);
end;

procedure TfrmDKExe.FormCreate(Sender: TObject);
//const
  //App= 'C:\Windows\Notepad.exe';
  //App='C:\Windows\System32\notepad.exe';
begin
  //pnlApp.Align:= alClient;
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD><EFBFBD>
  //if not RunAppInPanel(App,pnlApp.Handle,hWin) then ShowMessage('Appnot found');
end;

procedure TfrmDKExe.FormResize(Sender: TObject);
begin
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> pnlApp
  if hWin<> 0 then MoveWindow(hWin, 0, 0,pnlApp.ClientWidth,pnlApp.ClientHeight, True);
end;

procedure TfrmDKExe.Button1Click(Sender: TObject);
const
  //App= 'C:\Windows\Notepad.exe';
  App='C:\Windows\System32\Notepad.exe';
begin
 // pnlApp.Align:= alClient;
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD><EFBFBD>
  if not RunAppInPanel(App,pnlApp.Handle,hWin) then ShowMessage('Appnot found');
end;

procedure TfrmDKExe.Button2Click(Sender: TObject);
const
  //App= 'C:\Windows\Notepad.exe';
  App='C:\Windows\System32\mspaint.exe';
begin
 // pnlApp.Align:= alClient;
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD><EFBFBD>
  if not RunAppInPanel(App,pnlApp.Handle,hWin) then ShowMessage('Appnot found');
end;


procedure TfrmDKExe.Button3Click(Sender: TObject);
const
  //App= 'C:\Windows\Notepad.exe';
  App='C:\Windows\System32\calc.exe';
begin
 // pnlApp.Align:= alClient;
  //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD><EFBFBD>
  if not RunAppInPanel(App,pnlApp.Handle,hWin) then ShowMessage('Appnot found');
end;

end.