Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
22. Jan 2008
Dann baue doch einige Fehlermeldungen ein: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
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
22. Jan 2008
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.
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
22. Jan 2008
Ja ich auch bei mir funktioniert alles.
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
21. Jan 2008
Bestimmt der Funktion GetStatusBarText() übergeben.
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;
Forum: Win32/Win64 API (native code)
Delphi
by bitsetter,
21. Jan 2008
Hallo,
Winspy hat auch einen Codegenerator für Delphi dabei.
den Text einer Statusbar auslesen