WIN API32

← →
john_ru (2001-12-18 03:33) [0]

Привет всем гениям! Можно ли из моей проги добавить кнопку к другому окну, зная его handle?

← →
SergVlad © (2001-12-18 04:01) [1]

Если другое окно создается из программы-скрипта, то можно - путем прямого редактирования source и повторного запуска.
Или программа умеет принимать сообщения на тему "А создай-ка мне..".
В противном случае - умы фантастов меркнут перед Вашим воображением.

← →
ИгорЁк (2001-12-18 10:57) [2]

Добавляем свою кнопку в Калькулятор

procedure TForm1.Button1Click(Sender: TObject);
var hwn: HWND;
dwStyle: Cardinal;
begin
hwn := FindWindow(nil, "Calculator");
dwStyle := WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT or WS_TABSTOP;
CreateWindow("Button", "OK", dwStyle,
20, 20, 20, 20, hwn, 0, hInstance, nil);

end;

Ну флаг тебе john_ru в руки.

WIN API32 Найти похожие ветки