Нарисовать в окне

[alexprey]

В общем у меня такая проблема. Есть чужая программа, и у нее есть окно. Мне нужно получить канву этого окна и нарисовать картинку в этой канве. Как это можно реализовать?

[spamer]

Нарисовать можно вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
dc : hDC;
Window : HWND;
buff : PAnsiChar;
begin
Window := FindWindow(nil, 'Uninstall Tool 2.9.6');
dc := GetWindowDC(Window);
Rectangle (dc, 10, 10, 110, 110) ;
ReleaseDC(Window, dc);
end;

[MaxNik2009]

или еще как вариант:

procedure TForm3.Button1Click(Sender: TObject);
var
  Window: HWND;
  Canva: TCanvas;
begin
  Window:= FindWindow(nil, 'Form1');
  if Window <> 0 then
  begin
    Canva:= TCanvas.Create;
    Canva.Handle:= GetDC(Window);

    Canva.TextOut(50,50, 'Victory');  // пишем текст на полученой канве
    Canva.Draw(10,10,Image1.Picture.Graphic); // рисуем картинку на полученой канве
  end;
end;

[alexprey]

MaxNik2009, а он точно получит окно, а не кнопку в панели?

[MaxNik2009]

если будешь искать hande кнопки, то и цеплятся будет к кнопке.
Поясню немного:

  Window:= FindWindow(nil, 'Form1'); // ищем окно!!! с названием  Form1
  if Window <> 0 then  // если окно найдено
  begin 
    Canva:= TCanvas.Create;
    Canva.Handle:= GetDC(Window); // цепляемся к канве найденого окна

[alexprey]

А если название кнопки совпадает с окном?

[MaxNik2009]

Сообщение от alexprey

А если название кнопки совпадает с окном?

тогда ищи окно по классу:

FindWindow(КлассОкна, НазваниеОкна)

[alexprey]

Класс Окна - писать TForm?

[Пепел Феникса]

введите тот который вас нужен.(WinSight, Spy++)

[TwiX]

Кнопку нельзя найти при помощи FindWindow. Элементы ищутся при помощи FindWindowEX