Люди помогите! Delphi прог.

← →
Zoxir © (2003-04-03 11:38) [0]

Как сделать программу вызивала другую программу и нажимала кнопку. Посколька умена есть программа но когда ево ключаеш он рекламировает сваего издателя. Мне нада чтоби он ну ето сообшения автомотически закривалось. Спосиба зарание!

← →
mdw © (2003-04-03 12:09) [1]

Пример пля Total Comandera. Названия классов и заголовки окон, посмотри, например, с помощью Spy++.

program Wincmd32;

uses
Windows,
Messages;

{$R *.RES}

var i: Integer;

function BtnClick: Boolean;
var WND, PWND: HWND;
begin
Result:= False;
WND:= FindWindowEx(0, 0, "TNASTYNAGSCREEN", "Windows Commander");
if WND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TNotebook", "");
if WND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TPage", "NagPage");
if WND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TPanel", "");
if WND <> 0 then begin
PWND:= FindWindowEx(WND, 0, "TPanel", "1");
if PWND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TButton", "&1");
if WND <> 0 then begin
SendMessage(WND, WM_LBUTTONDOWN, 0, 0);
SendMessage(WND, WM_LBUTTONUP, 0, 0);
Result:= True;
end;
end;
PWND:= FindWindowEx(WND, 0, "TPanel", "2");
if PWND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TButton", "&2");
if WND <> 0 then begin
SendMessage(WND, WM_LBUTTONDOWN, 0, 0);
SendMessage(WND, WM_LBUTTONUP, 0, 0);
Result:= True;
end;
end;
PWND:= FindWindowEx(WND, 0, "TPanel", "3");
if PWND <> 0 then begin
WND:= FindWindowEx(WND, 0, "TButton", "&3");
if WND <> 0 then begin
SendMessage(WND, WM_LBUTTONDOWN, 0, 0);
SendMessage(WND, WM_LBUTTONUP, 0, 0);
Result:= True;
end;
end;
end;
end;
end;
end;
end;

begin
WinExec("_Wincmd32.exe", SW_SHOW);
i:= 0;
repeat
if BtnClick then Break;
inc(i);
sleep(10);
until i>10000;
end.

Вернее это для WinCommandera, для Total заголовок не "Windows Commander", а "Total Commander" и сответственно названеие Totalcmd. Ну это не важно.
Да, кстати, вопрос не по теме.

Люди помогите! Delphi прог. Найти похожие ветки