Witam,
Chciałbym uruchomić jeden button innej aplikacji. Czytam forum, staram się implementować kod, który proponujecie - ale nie działa.. Jestem początkującym w Delphi, więc proszę o wyrozumiałość :) Pogubiłem się w tych uchytach, ponieważ uchwyt POTOMKA cały czas jest inny po ponownym uruchomieniu obcej aplikacji.
- Aplikacja (obca) jest uruchomiona.
- Uruchamiam swoją (delphi) i mam taki kod - w tej ważnej części:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
h:hWnd;
begin
ShellExecute(0,'open','D:!\Avaya Reliable Data Transport Tool\server.exe',nil,nil,SW_Show);
Sleep(4000);
h:=FindWindow('Avaya Reliable Data Transport Tool - Server', nil);
if h<>0 then begin
SendMessage(h, WM_COMMAND,1378652,0);
SendMessage(h, WM_LBUTTONDOWN, 1247366, 0);
SendMessage(h, WM_LBUTTONUP, 1247366, 0);
end
else
ShowMessage('Cos nie tak...');
end;
Wiem że jest coś nie tak.. Proszę o pomoc, wskazówkę, cokolwiek ! :)
Z góry dzięki
Maciek