Stealth Client Forum

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DwmApi, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    Panel1: TPanel;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Procedure EnumWindowsProc;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EnumWindowsProc;
var
 Wnd : hWnd;
 buff : array [0..127] of Char;
 wclass : string;
begin
 Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do
  begin
   setLength(wclass,12);
   GetClassName(wnd,@wclass[1],Length(wclass)+1);
    if (Wnd <> Application.Handle) and IsWindowVisible(Wnd) and
       (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) and (wclass<>'TApplication')
    then
      begin
        GetWindowText(Wnd, buff, sizeof(buff));
        //str :=StrPas(buff);
        ComboBox1.Items.Add(StrPas(buff));
      // form1.wndBox.Items.Add(StrPas(buff));
      end;
         Wnd := GetWindow(Wnd, gw_hWndNext);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  EnumWindowsProc;
end;

procedure TForm1.Button1Click(Sender: TObject);
var PH: PHTHUMBNAIL;
    Props: DWM_THUMBNAIL_PROPERTIES;
    ProgmanHandle: THandle;
begin
  ProgmanHandle := 0;
  if ComboBox1.Text > '' then
    ProgmanHandle := FindWindow(nil, PChar(ComboBox1.Text))
  else
    ShowMessage('Nothing checked!');
  if ProgmanHandle > 0 then
    begin
      if Succeeded(DwmRegisterThumbnail(Handle,ProgmanHandle,PH))then
         begin
           Props.dwFlags:=DWM_TNP_SOURCECLIENTAREAONLY or DWM_TNP_VISIBLE or
                          DWM_TNP_OPACITY or DWM_TNP_RECTDESTINATION;
           Props.fSourceClientAreaOnly:=false;
           Props.fVisible:=true;
           Props.opacity:=255;
           Props.rcDestination:=Form1.Panel1.ClientRect;
           if Succeeded(DwmUpdateThumbnailProperties(PH^,Props))then
             //ShowMessage('Thumbnail готов')
           else
             ShowMessage('DwmUpdateThumbnailProperties false');
         end
      else
        begin
          ShowMessage('DwmRegisterThumbnail False ');
        end;
    end;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Form1.FormStyle := fsStayOnTop;
end;

end.