Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > добраться до меню ATT


Автор: ozzii 29.8.2010, 22:33
здраствуйте, задача след.:
запустить ati tray tools (может кто имеет у себя)), потом вызвать клик в меню. через меню последовательно
надо добраться до окна Overclocking, конечная цель - вкладка Fan, там пару кнопок нажать (ну это думаю , сделаю)

наваял это:

Код

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
p: pchar;
h, h2: hwnd;
begin
s :=  'c:\Program Files\Ray Adams\ATI Tray Tools\atitray.exe';
p := pchar(s);
 shellexecute(handle, 'open', p, nil, nil, sw_restore);
sleep(1000);
h := findwindow(nil, 'ATI Tray Tools');
if h <= 0 then begin
showmessage('No ATI window found');
exit;
end;
h2 := findwindowex(h, 0, 'TfrmOver', nil);
if h2 <= 0 then begin
showmessage('No child window found'); // это окно уже не находит
exit;
end;
end;


подскажите пож, куда дальше копать?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)