Excel'i aktif hale(öne) getirme problemi

[karflake]

Merhaba.

Excel(2007)'e SendKey ile bir takım bilgiler göndermem gerektiği için, aşağıdaki gibi bir kod yazdım. Excel'in başlığı, açık olan çalışma kitabınına göre değiştiği için, FindWindow apisini başlığa göre değil, class name'e göre kullandım. Winspector ile Excel'in class name'ini buldum ama bir türlü Excel'i öne getiremedim.

Kod: Tümünü seç

procedure TForm1.btnExcelClick(Sender: TObject);
var
  pencere: hwnd;
begin
  pencere:=FindWindow('EXCEL7',nil);
  if pencere<>0 then
  begin
    showmessage('Pencere bulundu. Öne getirelecek!');
    ShowWindow(pencere, SW_MAXIMIZE);
    BringWindowToTop(pencere);
  end
  else
    showmessage('Pencere bulunamadı!');
end;

Yukarıdaki kodun çalışmamasına rağmen, aynı yöntemle yazdığım, Internet Explorer'ı öne getiren, aşağıdaki kod gayet güzel çalışıyor.

Kod: Tümünü seç

procedure TForm1.btnIeClick(Sender: TObject);
var
  pencere: hwnd;
begin
  pencere:=FindWindow('IEFRAME',nil);
  if pencere<>0 then
  begin
    showmessage('Pencere bulundu. Öne getirelecek!');
    ShowWindow(pencere, SW_MAXIMIZE);
    BringWindowToTop(pencere);
  end
  else
    showmessage('Pencere bulunamadı!');
end;

Excel'in öne gelmeme problemini nasıl çözebilirim?

[mrmarman]

Merhaba.

Excel'in başlığı, açık olan çalışma kitabınına göre değiştiği için, FindWindow apisini başlığa göre değil, class name'e göre kullandım.

Yaklaşımın doğru ancak Excel ana ekranının classname'i "Excel7" değil "XLMAIN" olacaktı. Burada hata olmuş.

[Lord_Ares]

ShowWindow(pencere,SW_SHOW);
SetForegroundWindow(pencere);
şeklinde yapmalısın.

[karflake]

Merhaba.

Yaklaşımın doğru ancak Excel ana ekranının classname'i "Excel7" değil "XLMAIN" olacaktı. Burada hata olmuş.

Bu yanıt sorunumu çözdü. Teşekkürler.