Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Вниз

Люди помогите! 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.


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

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



Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2003.12.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.007 c
14-52403
Soft
2003-11-20 12:42
2003.12.16
Непонятная самоперезагрузка ПК.


3-52081
RAM
2003-11-24 18:20
2003.12.16
количество записей


6-52322
Tik
2003-10-13 20:45
2003.12.16
Stream


4-52451
Talla2k
2003-10-22 21:45
2003.12.16
тормоз THREAD


6-52312
mktl
2003-10-16 17:33
2003.12.16
Сеть в консоле





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский