Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.16;
Скачать: CL | DM;

Вниз

Люди помогите! 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 вся ветка

Текущий архив: 2003.12.16;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.007 c
1-52282
Bel
2003-12-02 18:24
2003.12.16
QReport - высота авторасширяемых полей


14-52410
al_
2003-11-24 09:56
2003.12.16
При установке Delphi 6.0 ошибочка, разъясните...


1-52173
Никита
2003-12-03 15:40
2003.12.16
BoolToInt


3-52067
Pako
2003-11-24 08:29
2003.12.16
Error creating cursor handle


6-52329
Pavels
2003-10-22 10:16
2003.12.16
dns/soa/mx/ns - помогите с инфой/доками





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский