Ошибка в куске кода, немогу понять где

[xaero93]

Суть: На форме есть некоторый эдит 1, запускается программа2, необходимо сделать запушенное окно активным и сэмулировать в нем нажате некоторой полследовательности клавиш

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 memo1.Lines.LoadFromFile('settings.txt');
 ShellExecute(Handle, 'open',
  pChar(memo1.Lines[3]), nil, nil, SW_SHOWNORMAL);
  // Меняем активное окно
sendmessage(findwindow('TFORM1','Form1'),WM_ACTIVATE,1,1);
sendmessage(findwindow('TFORM1','Launch EMCO Control'),wm_activate,1,1) ;
// Имитация нажатия клавиш для входа в Управляющую систему
keybd_event(VK_DOWN, 0, 0, 0);
Keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
Keybd_event(VK_INSERT, 0, 0, 0);
Keybd_event(VK_INSERT, 0,KEYEVENTF_KEYUP, 0);

 end;

Запущенное окно не хочет становится активным

[Sciv]

Да нет, становится, просто в конце процедуры Timer1Timer нужно таймер-то тормозить, а то начинает мигать между формой и окном.

UPD. Хотя нет, я ступил и ошибся (хотя и не совсем - окна продолжают перемигиваться, а это явно не в Ваших планах)

sendmessage(findwindow('TFORM1','Form1'),WM_ACTIVATE,1,1);
sendmessage(findwindow('TFORM1','Launch EMCO Control'),wm_activate,1,1) ;

Ошибка, скорее всего, в том, что у Вас одинаковый класс в обоих findwindow прописан (TForm1) - вот он и делает активным окно класса ТФорм1, то есть Вашу исходную форму.

Я прогнал Вашу программу на своем тесте, открыл екселевский файлик - все работает прекрасно

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// memo1.Lines.LoadFromFile('settings.txt');
 ShellExecute(Handle, 'open',
  pChar('e:\cal.xls'), nil, nil, SW_SHOWNORMAL);
  // Меняем активное окно
sendmessage(findwindow('Excel','Excel'),WM_ACTIVATE,1,1);
//sendmessage(findwindow('TFORM1','Launch EMCO Control'),wm_activate,1,1) ;
// Имитация нажатия клавиш для входа в Управляющую систему
keybd_event(VK_DOWN, 0, 0, 0);
Keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
Keybd_event(VK_INSERT, 0, 0, 0);
Keybd_event(VK_INSERT, 0,KEYEVENTF_KEYUP, 0);
Timer1.Enabled:=false;
end;

Если Вы запускаете какую-то свою внешнюю форму, попробуйте указать класс TForm вместо TForm1.

[xaero93]

Ой я бестолочь. Спасибо за подсказку

добавил отключение таймера, но почему то окно с программой 1 не помещается на задний план, а окно с программой 2 не становится активным и не помещается на передний

[Sciv]

Ой я бестолочь

Ну не знаю... в 15 лет такое написать... Вы слишком самокритичны

[xaero93]

Агаааа, понял сту ошибки. Она заныкалась вот здесь
sendmessage(findwindow('TFORM1','Fo rm1'),WM_ACTIVATE,1,1);
sendmessage(findwindow('TFORM1','Launch EMCO Control'),wm_activate,1,1) ; Это стороння программа, как определить, что должно быть там написано вместо TFORM1 ?

[Sciv]

Ну я Вам об этом выше и писал

А насчет классов (по-английски, правда) можно заглянуть по ссылкам:

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

http://msdn.microsoft.com/en-us/libr...x#class_styles

Думаю, Вам нужен класс #32769

UPD. Или просто имя запускаемого файла внешней программы попробовать...

[xaero93]

Если код выглядит таким образом( все програмные нажатия на клавиатуру закомментированны), то окна меняются. Второе стнаовится активным.

procedure TForm1.Timer1Timer(Sender: TObject);
var h:hwnd;p:pchar;mk:Cardinal;
begin
 memo1.Lines.LoadFromFile('settings.txt');
 ShellExecute(Handle, 'open',
  pChar(memo1.Lines[3]), nil, nil, SW_SHOWNORMAL);
  // Меняем активное окно
sendmessage(findwindow('TFORM1','Form1'),WM_ACTIVATE,0,0);
sendmessage(findwindow(nil,'EMCO'),wm_activate,1,0) ;
timer1.Enabled:=false;
// Имитация нажатия клавиш для входа в Управляющую систему
//keybd_event(VK_DOWN, 0, 0, 0);
//Keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
//Keybd_event(VK_INSERT, 0, 0, 0);
//Keybd_event(VK_INSERT, 0,KEYEVENTF_KEYUP, 0);

Суть же проблемы в том, что как только я убираю \\ у кода для эмуляции нажатия клавиш, эти самые нажатия происходят на Форме1, а мне нужно,чтобы они происходили в запушенной с формы1 программе. Пока ищу способ для решения данной проблемы.