Taste senden/DCOM

[golisan]

Hallo Forum,

mal wieder ein "Taste senden"-Thema...

Ja aber mit einer Besonderheit: mein Programm läuft als DCOM-Server.

Laufen soll folgender Code:

Delphi-Quellcode:

 SetForegroundWindow(wnd);
  Sleep(100);
Keybd_Event(VK_CONTROL,0,0,0);
Keybd_Event(byte('G'),0,0,0);
Keybd_Event(byte('G'),0,KEYEVENTF_KEYUP,0);
Keybd_Event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);

Das Handle wnd ist korrekt ermittelt und ist <> 0.
Die Ermittlung des Handles geschieht mit

Delphi-Quellcode:

wnd :=  FindWindow('NIDEWindowClass', 'Natural 6.2 ');
wnd :=  FindWindowEx(wnd, 0, 'MDIClient', nil);
.
.

Binde ich den Code in eine normale Formularanwendung ein tut alles wie es soll: STRG-G wird an die Anwendung gesendet.

Allerdings aus meiner DCOM-Anwendung nicht

Ich habe nun schon selber festgestellt, dass das FindWindow das Problem ist.
Das liefert im "DCOM-Modus" 0.

Weiß jemand warum bzw. gibt es Alternativen zum FindWindow?

Danke schon mal.

Gruß Markus

[NickelM]

Eine alternative hab ich jetzt nicht, aber wird die DCOM Anwendung als gleicher Benutzer ausgeführt?
Wenn nicht würd ich sagen, dass er versucht das Fenster auf dem falschen Desktop zufinden.
Müsstest vielleicht eine Suche nach dem Aktiven Desktop machen und dan dort suchen. Eine art "FindWindowOnDesktop"-Funktion gibt es glaub ich net. Villeicht dan alle Fenster mit einer Art Enum Proc vielleicht suchen und dan auf die Eigenschaften wie CLassname prüfen. Für Classname zurückgeben gibt es ne WinAPI das wies ich. Müsstest halt mal schauen.

[golisan]

Die DCOM-Anwendung wird nur von einem Benutzer ausgeführt.
Aber mal eine Enum über alle Fenster könnte ich mal probieren.

[NickelM]

Zitat von golisan:

Die DCOM-Anwendung wird nur von einem Benutzer ausgeführt.

Ich meinte die DCOM-Anwendung vom gleichen Benutzer, wie die anderen Anwendung ausgeführt wird.

[golisan]

Ich habe mal folgendes gemacht:

Delphi-Quellcode:

function EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean;    stdcall;
var
  WinCaption : string;
  Len: integer;
  name : PChar;
begin
  Result := True;
  Len := GetWindowTextLength(Wnd);
  SetLength(WinCaption, Len);
  GetWindowText(Wnd, PChar(WinCaption), Len+1);
  if Trim(WinCaption) <> '' then
  begin
    Name:= StrAlloc(102);
    GetClassName(wnd, Name, 100);
    showmessage(WinCaption + ':' + name);
    StrDispose(Name);
  end;
end;

Dieses Coding habe ich mal im "DCOM"-Modus und in einer Form-Anwendung laufen lassen.
Es werden die gleichen Fenster gefunden.
Unter anderem auch
NIDEWindowClass Natural 6.2 um die es mir eigentlich geht.

Nehme ich nun das durch den Enum gefundene Handle(NIDEWindowClass Natural 6.2) und versuche in der Hierarchie weiter zu gehen:

Delphi-Quellcode:

//wnd ist durch den Enum gesetzt
wnd :=  FindWindowEx(wnd, 0, 'MDIClient', nil);
wnd :=  FindWindowEx(wnd, 0, 'PgmEdtMDIWin', 'B601 [TESTQS] - Program');

liefert der erste FindWindowEX kein Handle zurück

Liegt das evtl. daran, dass mein DCOM-Programm in einem anderem Prozess/Thread läuft und ich von da keinen direkten Zugriff auf die Handles habe(da kenne ich mich nicht aus)
Gibt es Alternativen zum FindWindowEX?

[golisan]

Hallo,

so, habe inzwischen (m)eine Lösung gefunden.
Das Problem war ja, dass der FindWindow und FindWindowEX nicht im DCOM-Modus funktioniert hat.
Warum weiss ich immer noch nicht.
Aus einer Eingebung heraus, habe ich das Suchen der Fenster in eine DLL ausgelagtert und da tut es...

Hier mal der Code:

Delphi-Quellcode:

procedure TCoQS.Set_eGoto(Value: Integer);
var wnd : HWND;
begin
  wnd := sucheFenster(PChar(fNatName)); // Funktion aus DLL
  if wnd <> 0 then
  begin
  SetForegroundWindow(wnd);
  SendMessage(wnd, WM_CHILDACTIVATE, 0, 0); // Sonst kommen die Tasten nicht an

   Sleep(200); // kurz warten

   // CONTROL+G senden
   Keybd_Event(VK_CONTROL,0,0,0);
   Keybd_Event(byte('G'),0,0,0);
   Keybd_Event(byte('G'),0,KEYEVENTF_KEYUP,0);
   Keybd_Event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
   SendMessage(wnd, WM_SETFOCUS, 0, 0);

   sleep(200); // nochmal kurz warten

   // Zeilennummer im GoTo-Dialog eintragen
   wnd :=  FindWindow('#32770', 'Go To');
   wnd :=  FindWindowEx(wnd, 0, 'Edit', nil);
   SendMessage(wnd, WM_SETTEXT, 0, Integer(inttostr(value)));

   // auf physische Zeilensuche umstellen
   wnd :=  FindWindow('#32770', 'Go To');
   wnd :=  FindWindowEx(wnd, 0, 'Button', '&Physical Line');
   SendMessage(wnd,BM_CLICK,2,0);

   // OK-Button drücken
   wnd :=  FindWindow('#32770', 'Go To');
   wnd :=  FindWindowEx(wnd, 0, 'Button', 'OK');
   SendMessage(wnd,BM_CLICK,2,0);

  end
  else
    showmessage('Kein Handle ermittelt');
end;

Hier die DLL

Delphi-Quellcode:

function sucheFenster(name : PChar): HWND; stdcall;
var
  hWndTemp, wnd, pgm: hWnd;
  iLenText: Integer;
  cTitletemp: array [0..254] of Char;
  sTitleTemp: string;
begin
  result := 0;
  wnd :=  FindWindow('NIDEWindowClass', nil);       //Anwendung suchen
  wnd :=  FindWindowEx(wnd, 0, 'MDIClient', nil);   //unsichtbares Hintergrundfenster(was immer das auch ist...)
  if wnd <> 0 then begin
// da der Fenstertitel nicht immer gleich ist...umständlich suchen...
    hWndTemp := GetWindow(wnd, GW_CHILD);
    while hWndTemp <> 0 do begin
      iLenText := GetWindowText(hWndTemp, cTitletemp, 255);
      sTitleTemp := cTitletemp;
      sTitleTemp := UpperCase(copy( sTitleTemp, 1, iLenText));
      if pos( name, sTitleTemp ) <> 0 then begin
        result := hWndTemp;
        Exit;
      end;
      hWndTemp := GetWindow(hWndTemp, GW_HWNDNEXT);
    end;
  end;
end;

falls jemand ein ähnliches Problem haben sollte...