| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Zoxir ©   (2003-04-03 11:38:00) 

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

---

mdw   (2003-04-03 12:16:00) [1]

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

---

mdw   (2003-04-03 12:09:00) [2]

Пример пля 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.

---

Наверх