Toolbar-Auslesen klappt nicht auf einem 64bit-Win7?

[himitsu]

Das $Align sagt dem Compiler, wie er ausrichten soll, wenn nicht PACKED, womit dann das küntliche _align weg kann.

Was heißt eigentlich "funktioniert nicht" ?


Du könntest/solltest dein InfoStruc eventuell mal Nullen, also FillChar(..., 0) (für alles Ungenutzte/Nichtgesetzte).

Integer-Casts sind sowieso böse und speziell für SendMessage gibt es sogar passede Typen (LPARAM, WPARAM und LRESULT), welche man für den Cast nutzen kann.

Viele Befehle sagen einem, ob sie erfolgreich waren ... man sollte nur mal deren Result und z.B. GetLastError ordentlich auswerten.

Und was sagt der Debugger/Datenexplorer/MemoryView zu den Daten, die am Ende zurückkommen?

[Luckie]

Ist deins ein 32 oder 64 Bit Programm? Und zeig mal etwas Code.

[himitsu]

Zitat von Luckie:

Ist deins ein 32 oder 64 Bit Programm? Und zeig mal etwas Code.

TDE = 32

Ansonsten würde mein erster durchgestrichener Text den Fehler erklären.

[r29d43]

"funktioniert nicht" hieß in dem Falle, dass im Buffer leider immer nur ein leerer String herauskam.

FillChar(..., 0) brachte leider keine Besserung, ebenso wie mittels DWord o. LPARAM zu casten.

Die Results von WriteProcessMemory/ReadProcessMemory sind immer TRUE.

ALLERDINGS ist das Result von SendMessage(hSchnellstartleiste,TB_GETBUTTONINFO,. ..,...) negativ, also -1. Ergo dürfte also irgendetwas mit den Parametern nicht in Ordnung sein. Nur was eben? Kann doch eigentlich nur irgendwas kleines an diesem InfoStruc-Record sein!?

Momentan sieht der so aus:

Delphi-Quellcode:

//  TBBUTTONINFO64 = packed record
  TBBUTTONINFO64 =  record // packed kann ich hier rausschmeißen, weil dann das default "{$A8}" zum Zuge kommt und das heißt: 8Byte lange Ptr werden an 8Byte-Grenzen ausgerichtet --> also genau das, was ein 64bit-Win benötigt
    cbSize: UINT;
    dwMask: DWORD;
    idCommand: Integer;
    iImage: Integer;
    fsState: Byte;
    fsStyle: Byte;
    cx: Word;
    lParam: DWORD;
//    pszText: PAnsiChar;
      pszText: Int64; // Zeiger haben in 64-Bit-Windows 8 Byte
    cchText: Integer;
  end;

ist 40 Byte groß. Im Packed-Format wäre er 36 Byte groß. Was mich eigentlich wundert, denn der einzigste 8Byte-Pointer darin, nämlich dieses pszText, beginnt doch eigentlich genau an einer 24Byte-Grenze.



@Lucki

habe ein Turbo Delphi für Win32

Die Routine von der aus ich die fraglich Proc oben calle, hat die Aufgabe, die Schnellstartleiste nach einem Button zu durchsuchen, der einen ganz bestimmten Caption-Text besitzt. Und das müsste eigentlich schon alles so stimmen, denn das Prog läuft ja in einer Win32-Umgebung völlig fehlerlos.

Delphi-Quellcode:

function TSmallIconForm.QuickLaunchIconChecker(AFileName : String) : boolean;
var AStrList : TStringList;
    ItemCount : integer;
    I : integer;
    Btn_idCommand : integer;
    TB_Style : integer;
begin
  HotQueryIs := true;
  result := false;

  hTaskBar   := FindWindow('Shell_TrayWnd',nil);
  hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);
  hSchnellstartleiste := FindWindowEx(hReBarWindow32,0,'ToolbarWindow32',nil);

  GetWindowThreadProcessID(hTaskBar,PID_TaskBar); // nötig in den TaskBar-UntersuchungsProcs

  SetLength(QuickLaunchDim,0);
  while hSchnellstartleiste > 0 do begin   // Untersuchung der Symbolleiste ..ob eine ihrer ToolbarButtons genauso wie das fragliche Prog heißt?
    loadDebugStrList('hSchnellstartleiste:  ' + IntToStr(hSchnellstartleiste));
    ToolbarInfo.cbSize := sizeOf(TWindowInfo);      // ToolbarInfo ist nötig für den Check, ob die Maus aktuell
    getWindowInfo(hSchnellstartleiste,ToolbarInfo); //_in der Schnellstartleiste steht oder nicht (nachher in "findFilename")
    AStrList := TStringList.Create;
    ItemCount := sendMessage(hSchnellstartleiste,TB_BUTTONCOUNT,0,0);
    for I := 0 to ItemCount - 1 do begin
      Btn_idCommand := GetTBButton(I);
      if hasWin64Bit
      then AStrList.Add(GetTBButtonText64Bit(Btn_idCommand))
      else AStrList.Add(GetTBButtonText(Btn_idCommand));
      loadDebugStrList(' - - - - ' + AStrList.Strings[AStrList.Count-1] + '   < ' + IntToStr(I) + ' >');
    end;

    I := -1; // vor dem "findFilename"-Call nötig: Laden des HotItem-IndexWertes für diese Schnellstartleiste
    repeat inc(I); HotItem_ := HotItemDim_[I].Index
    until hSchnellstartleiste = HotItemDim_[I].hQuickLaunch;
    findFilename(AFileName,AStrList,bzglQuickLaunch);  // steht das Prog in der Schnellstartleiste und hat es event. den "hotItem"... Dann protokolliere das in der Ergebnisliste (=QuickLaunchDim)
    AStrList.Free;

    hSchnellstartleiste := FindWindowEx(hReBarWindow32,hSchnellstartleiste,'ToolbarWindow32',nil);
  end;

  loadDebugStrList('');
  for I := 0 to Length(QuickLaunchDim) - 1 do // auch die Ergbnisse der QuickLaunchDim werden letztlich noch
  with QuickLaunchDim[I] do                   //_in der DebugStrList ausgegeben
    loadDebugStrList('Index:  ' + IntToStr(Index) + '  hSchnellstartleiste:  ' + IntToStr(hQuickLaunch)
                     + '  HotFlag:  ' + BoolToStr(HotFlag) + '  MouseFlag:  ' + BoolToStr(MouseFlag));

  result := (Length(QuickLaunchDim)>0) and QuickLaunchDim[0].HotFlag;
  loadDebugStrList(#13#10 + ' > > > Result:  ' + BoolToStr(result) + ' < < <');
  loadDebugStrList(#13#10 + '===============================================' + #13#10);
end;

[DeddyH]

Wie bereits angedeutet wurde, werden in Deinem Code keine Rückgaben ausgewertet. Eigentlich sollte das statt so

Zitat:

Delphi-Quellcode:

hTaskBar := FindWindow('Shell_TrayWnd',nil);
hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

wohl besser so aussehen:

Delphi-Quellcode:

hTaskBar := FindWindow('Shell_TrayWnd',nil);
if hTaskBar <> 0 then
  begin
    hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

Oder alternativ auch z.B. so:

Delphi-Quellcode:

type
  ETaskbarNotFound = class(Exception);

hTaskBar := FindWindow('Shell_TrayWnd',nil);
if hTaskBar = 0 then
  raise ETaskbarNotFound('Taskbar-Handle nicht gefunden');
hReBarWindow32 := FindWindowEx(hTaskBar,0,'ReBarWindow32',nil);

Auf jeden Fall ist es keine gute Idee, immer vom Idealfall auszugehen.

[sx2008]

Warum liest du nicht das Verzeichnis %appdata%\Microsoft\Internet Explorer\Quick Launch aus sowie alle enthaltenen Lnk-Dateien?

PS: warum werden Backslashes zu Pipezeichen? Da stimmt doch was an der BBS-software nicht.