Ввод текста в чужое окно

procedure TForm1.Button1Click(Sender: TObject);
begin
  //скрыть окно по имени окна
  ShowWindow(FindWindow(nil, 'Ввод пароля по умолчанию'), SW_HIDE);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  //скрыть окно
  ShowWindow(FindWindow(nil, 'Извлечение из 11.rar'), SW_HIDE);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  //переименовать окно
  SetWindowText(FindWindow(nil, 'Ввод пароля по умолчанию'), 'CyberForum.ru!... ');
end;

var
  s: pchar;
  h: HWND;
begin
  s := 'Пароль'; //в окно будет введено это слово
  h := FindWindow(nil, 'Ввод пароля по умолчанию'); //отлов окна по заголовку
  h := FindWindowEx(h, 0, 'Edit', nil); //окно в винрар имеет класс Edit
  SendMessage(h, WM_SETTEXT, 0, integer(s)); //посылаем в него текст из переменной
end;

FORMMAIN DIALOG 1, 1, 214, 108
STYLE DS_SETFONT | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_OVERLAPPEDWINDOW | WS_POPUPWINDOW | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
CLASS "WndClass1" // вот он родимый ))
FONT 12, "MS Shell Dlg"

h := FindWindow('WndClass1', nil);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label3: TLabel;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure ShowHwndAndClassName(CrPos: TPoint);
  public
    { Public declarations }
  hWnd: THandle;
  aName: array [0..255] of Char;
  Klick_R:boolean;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  rPos: TPoint;
begin
  if Boolean(GetCursorPos(rPos)) and (GetKeyState(VK_RBUTTON) < 0) then
  begin
    ShowHwndAndClassName(rPos);
    Edit2.text:=IntToStr(hWnd);
    if hWnd<>0 then
    Klick_R:=true;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.FormStyle := fsStayOnTop;
  Timer1.Interval := 50;
  Klick_R:=false;
end;
 
procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
begin
  hWnd := WindowFromPoint(CrPos);
  Label1.Caption := 'Handle :  ' + IntToStr(hWnd);
 
  if Boolean(GetClassName(hWnd, aName, 256)) then
    Label2.Caption := 'ClassName :  ' + string(aName)
  else
    Label2.Caption := 'ClassName :  not found';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
sendmessage(StrToInt(Edit2.text),wm_settext,0,lparam(pchar(Edit1.text)));
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Klick_R then
  sendmessage(StrToInt(Edit2.text),wm_settext,0,lparam(pchar(Edit1.text)))
else
begin
   Edit1.Text:='';
   MessageBox(0, 'Êëèêíèòå ïðàâîé êíîïêîé ìûøè â îêíî ÂÂÎÄÀ', 'Error', MB_OK);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if Key = vk_escape then Close;
end;
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      if Key = vk_escape then Close;
end;
 
end.

object Form1: TForm1
  Left = 1
  Top = 196
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 30
  ClientWidth = 327
  Color = clAqua
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 295
    Top = 85
    Width = 32
    Height = 13
    Caption = 'Label1'
    Visible = False
  end
  object Label2: TLabel
    Left = 455
    Top = 85
    Width = 32
    Height = 13
    Caption = 'Label2'
    Visible = False
  end
  object Label3: TLabel
    Left = 50
    Top = 80
    Width = 58
    Height = 20
    Caption = 'Handle'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Edit1: TEdit
    Left = 5
    Top = 5
    Width = 316
    Height = 21
    TabOrder = 0
    OnChange = Edit1Change
    OnKeyDown = Edit1KeyDown
  end
  object Button1: TButton
    Left = 545
    Top = 75
    Width = 75
    Height = 25
    Caption = 'ÂÂÎÄ'
    TabOrder = 1
    Visible = False
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 125
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 2
    Visible = False
  end
  object Button2: TButton
    Left = 330
    Top = 5
    Width = 75
    Height = 25
    Caption = 'ESC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 605
  end
end