Aus einer anderen Anwedung lesen.

[mdogg]

Hi,

ich habe folgendes Problem, ich starte eine Externe Anwedung aus meinem Programm heraus und sende ihm einen Tastendruck um eine Aktion zu starten. Soweit so gut!

Nun möchte ich aber sobald das Programm seine Aktion beendet hat eine Nachricht in meinem Programm.
Nach beenden seiner Aktion zeigt das eine Nachricht in einer Statusbar an.
Diese habe ich mir mit WinSpy (klasse!!) genauer angesehen und komme genau hier nicht weiter.

Ich erwarte nicht, das mir jemand mein Problem löst, aber ich bin für jeden Tip und Denkanstoß dankbar!!

Eine Frage wären zum Beispiel:
Wie identifiziere ich denn diese Statusbar eindeutig und lese ihren Text aus?

Habe leider keinen blassen Schimmer von APIs...
Wenn sich das ganze nicht ohne unmenschlichen Aufwand umsetzen läßt, bin ich für einen derartigen Hinweis auch sehr dankbar!

Grüße
alex

[bitsetter]

Zitat:

Zitat von mdogg

Eine Frage wären zum Beispiel:
Wie identifiziere ich denn diese Statusbar eindeutig und lese ihren Text aus?

Hallo,

Winspy hat auch einen Codegenerator für Delphi dabei.
den Text einer Statusbar auslesen

[lbccaleb]

hey,

also, über findwindow und findwindowex kannst du das fenster (in dem fall die statusbar) finden!
hast du sie gefunden, und von ihr das handle bekommen kannst du über getwindowtext den fenstertext herrausbekommen!!!

(wenn mich nicht alles täuscht müsste es das auch schon sein...

in der msdn findest du hilfe zu den einzelnen funktionen..

[mdogg]

Zitat:

Zitat von bitsetter

Winspy hat auch einen Codegenerator für Delphi dabei.

Ich habe das Problem, dass die Menüs im WinSpy sich nicht richtig aufbauen. Ich finde den Generator leider nicht :freak:

Zitat:

Zitat von bitsetter

den Text einer Statusbar auslesen

Damit ich befaß ich mich sogliech nach dem Posten!

Zitat:

Zitat von lbccaleb

hey,
also, über findwindow und findwindowex kannst du das fenster (in dem fall die statusbar) finden!
hast du sie gefunden, und von ihr das handle bekommen kannst du über getwindowtext den fenstertext herrausbekommen!!!

Habe bereits mit findwindow experimentiert, aber kein Ergebnis bekommen. Bzw. fehlt mir das Wissen wie ich mir den Typen HWND in einen String oder Chars verwandeln kann.

Zitat:

Zitat von lbccaleb

(wenn mich nicht alles täuscht müsste es das auch schon sein...

Das wäre schön...! :)

Zitat:

Zitat von lbccaleb

in der msdn findest du hilfe zu den einzelnen funktionen..

Führe ich mir gleich mal zu Gemüte!

Danke für die Hilfe!
Alex

[bitsetter]

Zitat:

Zitat von mdogg

Ich finde den Generator leider nicht :freak:

Siehe Anhang

[mdogg]

Schande über mein Haupt... :wall:


[EDIT]
Was genau bewirkt das FlashControl()?
Ich bekomme einen undefinierten Bezeichner beim kompilieren.

[3_of_8]

Ich vermute mal, das soll das Control etwas "aufblitzen" lassen, damit du es siehst. Lass es einfach weg. Ich zweifle übrigens eher mal daran, dass das Funktioniert...

[Luckie]

Zitat:

Zitat von lbccaleb

hey,

also, über findwindow und findwindowex kannst du das fenster (in dem fall die statusbar) finden!
hast du sie gefunden, und von ihr das handle bekommen kannst du über getwindowtext den fenstertext herrausbekommen!!!

(wenn mich nicht alles täuscht müsste es das auch schon sein...

Du täuscht dich. Siehe hier: http://www.michael-puff.de/Artikel/2...sComCtrl32.php Es ist etwas mehr nötig.

[mdogg]

Ich habe WinSpy benutzt und mir folgenden Code generieren lassen:

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('wndclass_desked_gsk','mangosdVC80 - Visual C++ 2005 Express Edition');
  wnd := FindWindowEx(wnd, 0, 'VsStatusBar', nil);
  if wnd <> 0 then
  begin
     // ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     writeln('Window found. Handle: ' + IntToStr(wnd));
     FlashControl(wnd);
  end;
end.

Dieser funktioniert auch wunderbar, abgesehen von FlashControl(wnd);

Aber was genau treibe ich nun mit dem Handle?

Wenn ich mich hieran ...den Text einer Statusbar auslesen? halte dann bekomme ich ebenfalls einen Error: Undefinierter Bezeichner: 'SB_GETPARTS' innerhalb der GetStatusBarText Funktion.

Warum denn nun dies?

Danke für eure Mühen!!!

[bitsetter]

Zitat:

Zitat von mdogg

Ich habe WinSpy benutzt und mir folgenden Code generieren lassen:

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('wndclass_desked_gsk','mangosdVC80 - Visual C++ 2005 Express Edition');
  wnd := FindWindowEx(wnd, 0, 'VsStatusBar', nil);
  if wnd <> 0 then
  begin
     // ShowMessage('Window found. Handle: ' + IntToStr(wnd));
     writeln('Window found. Handle: ' + IntToStr(wnd));
     FlashControl(wnd);
  end;
end.

Dieser funktioniert auch wunderbar, abgesehen von FlashControl(wnd);

Aber was genau treibe ich nun mit dem Handle?

Bestimmt der Funktion GetStatusBarText() übergeben.

Delphi-Quellcode:

var
  wnd: HWND;
begin
  wnd := FindWindow('wndclass_desked_gsk','mangosdVC80 - Visual C++ 2005 Express Edition');
  wnd := FindWindowEx(wnd, 0, 'VsStatusBar', nil);
  if wnd <> 0 then
  begin
    GetStatusBarText(wnd, ...);
  end;
end.

Zitat:

Zitat von mdogg

Wenn ich mich hieran ...den Text einer Statusbar auslesen? halte dann bekomme ich ebenfalls einen Error: Undefinierter Bezeichner: 'SB_GETPARTS' innerhalb der GetStatusBarText Funktion.

Warum denn nun dies?

Zitat:

Delphi-Quellcode:

uses
  CommCtrl, uProcessMemMgr { from Download };

:roll:

[mdogg]

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, ExtCtrls, TabNotBk, DosCommand, Spin,
  shellapi, Config, sndkey32, uProcessMemMgr;

:|

habe auch die benötigte IPCThread für uProcessMemMgr.
Ich verzweifel...

[bitsetter]

Zitat:

IPCThrd; (from your Delphi\Demos\Ipcdemos directory)

[mdogg]

Tut mir leid werde aus deinem Post nicht schlau... hab die Datei im Verzeichnis meines Projektes...

[bitsetter]

Ja ich auch bei mir funktioniert alles.

[mdogg]

Dein Beispiel läßt sich zwar kompilieren im Vergleich zu meinem, aber das Label ändert sich nicht...

Vista?

[bitsetter]

Nein XP und Win98, ich habe bei beiden den Windows Explorer geöffnet. Wird die letzte Codezeile überhaupt ausgeführt?
Edit: Bei mir steht im 2. Panel "Arbeitsplatz" drin.
Ob es unter Vista funktioniert kann ich allerdings auch nicht sagen.

[mdogg]

Ich benutze Vista ich schiebs mal rüber auf nen xp rechner!

[EDIT]
Auch hier tut sich nichts. Das Label ändertsich nicht!

[toms]

Zitat:

Zitat von mdogg

Ich benutze Vista ich schiebs mal rüber auf nen xp rechner!

[EDIT]
Auch hier tut sich nichts. Das Label ändertsich nicht!

Hallo, hast du das richtige Handle; um was für eine Anwendung handelt es sich?

[bitsetter]

Zitat:

Zitat von mdogg

Auch hier tut sich nichts. Das Label ändertsich nicht!

Dann baue doch einige Fehlermeldungen ein:

Delphi-Quellcode:

var
  hWindow, hStatusBarHandle: HWND;
begin
  hWindow := FindWindow('ExploreWClass', nil);
  if hWindow> 0 then
  begin
    hStatusBarHandle := FindWindowEx(hWindow, 0, 'msctls_statusbar32', nil);
    if hStatusBarHandle<> 0 then
      label1.Caption := GetStatusBarText(hStatusBarHandle, 2)
    else
      MessageDlg('Die Statusbar mit dem Klassennamen "msctls_statusbar32" wurde nicht gefunden', mtError, [mbOk], 0);
  end
  else
    MessageDlg('Das Fenster mit dem Klassennamen "ExploreWClass" wurde nicht gefunden', mtError, [mbOk], 0);

Hast du überhaupt die Statusbar im Window Explorer (nicht im Internet Explorer) aktiviert? Steht im 3. Feld der Statusbar überhaupt was drin, denn das 2. Panel wird ja ausgelesen.

[mdogg]

Zitat:

Zitat von toms

Hallo, hast du das richtige Handle; um was für eine Anwendung handelt es sich?

Also hier ging es konkret um bitsetter's Programm. Und in dabei ging es um den Text der Explorer Statusbar.

Der Code den ich per WS generiert habe liefert jedenfalls ein handle zurück, wenn ich FlashControl() weglasse. (Wenn der Author schon mal da ist :) )
Dabei geht es um die eine Statusbar innerhalb von Visual C++ Express. Ich möchte per Timer überwachen wann dort 'Erstellen erfolgreich' steht.

Zitat:

Zitat von bitsetter

Hast du überhaupt die Statusbar im Window Explorer (nicht im Internet Explorer) aktiviert? Steht im 3. Feld der Statusbar überhaupt was drin, denn das 2. Panel wird ja ausgelesen.

Statusbar ist aktiviert und es befindet sich Text im 3. Panel!! :?:
Ich werde mal die Fehlerreports mit einbauen! Poste sobald ich fertig bin.

[EDIT]
@bitsetter:
SOOOO, das Problem war, dass das Fenster nicht gefunden werden konnte! WS verriet: CabinetWClass und alles funktioniert wunderbar.


Dann wären wir am nächsten und ich glaube für mich entscheidenden Punkt:
Wie bekomme ich die Sache sozusagen noch eine Ebene tiefer?

WinSpy am Explorer
262440: CabinetWClass "WinSpy"
196880: msctls_statusbar32 "Dateiversion: (bla)"

Is quasi das Explorerfenster und darin die Statusbar, richtig?



WinSpy an vcexpress.exe
132466: wndclass_desked_gsk "##XYZ## - Visual C++ 2005 Express Edition"
67106: VsStatusBar "Erstellen erfolgreich " //DAS WILL ICH AUSLESEN
67108: msctls_statusbar32

Delphi-Quellcode:

var
  hWindow, hStatusBarHandle: HWND;
begin
  hWindow := FindWindow('wndclass_desked_gsk', nil);
  if hWindow> 0 then
  begin
    hStatusBarHandle := FindWindowEx(hWindow, 0, 'VsStatusBar', nil);
    if hStatusBarHandle<> 0 then
      label1.Caption := GetStatusBarText(hStatusBarHandle, 0)
    else
      MessageDlg('Die Statusbar mit dem Klassennamen "msctls_statusbar32" wurde nicht gefunden', mtError, [mbOk], 0);
  end
  else
    MessageDlg('Das Fenster mit dem Klassennamen "ExploreWClass" wurde nicht gefunden', mtError, [mbOk], 0);
end;

Liefert leider '' ...


Kann mir jemand helfen den Unterschied zu verstehen?




Danke, dass ihr den Mist mit mir durchkaut...

[toms]

[quote="mdogg"]

Zitat:

Zitat von toms

Dabei geht es um die eine Statusbar innerhalb von Visual C++ Express. Ich möchte per Timer überwachen wann dort 'Erstellen erfolgreich' steht.

Der Statusbartext steht im Visual C++ Express nicht im Control msctls_statusbar32
sondern im VsStatusBar

Struktur der Fenster (Winspy)

Zitat:

7864848: wndclass_desked_gsk "Test - Visual C++ 2005 Express Edition"
8848014: VsStatusBar "Bereit Z 8 S 29 Zei 26 EINFG"
5898866: msctls_statusbar32

Code zum Ermitteln des Statusbartextes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  StatusBarText: array[0..$FFF] of Char;
begin
  wnd := FindWindow('wndclass_desked_gsk', nil);
  wnd := FindWindowEx(wnd, 0, 'VsStatusBar', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_GETTEXT, $FFF, Longint(@StatusBarText));
    Showmessage(StatusBarText);
  end;
end;

[mdogg]

[quote="toms"]

Zitat:

Zitat von mdogg

Zitat:

Zitat von toms

Dabei geht es um die eine Statusbar innerhalb von Visual C++ Express. Ich möchte per Timer überwachen wann dort 'Erstellen erfolgreich' steht.

Der Statusbartext steht im Visual C++ Express nicht im Control msctls_statusbar32
sondern im VsStatusBar

Struktur der Fenster (Winspy)

Zitat:

7864848: wndclass_desked_gsk "Test - Visual C++ 2005 Express Edition"
8848014: VsStatusBar "Bereit Z 8 S 29 Zei 26 EINFG"
5898866: msctls_statusbar32

Code zum Ermitteln des Statusbartextes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
  StatusBarText: array[0..$FFF] of Char;
begin
  wnd := FindWindow('wndclass_desked_gsk', nil);
  wnd := FindWindowEx(wnd, 0, 'VsStatusBar', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_GETTEXT, $FFF, Longint(@StatusBarText));
    Showmessage(StatusBarText);
  end;
end;

Wunderbar!! Bleibt nur noch eine Frage:
Wo soll ich deinen Tempel hinbauen?


Ich glaube einfacher kann man die Sache nicht lösen!!
Danke an Alle die Zeit und Nerven geopfert haben. Besonderen Dank an toms für die schlanke, elegante Lösung und besonderen Dank an bitsetter, der wohl am meisten unter mir zu "leiden" hatte...


@toms:
Bist du gewillt mir noch die eine oder andere frage zum Verständnis per PM zu beantworten?