Mein Szenario ist folgendes: Ich hangle mich über den folgenden Code durch die Systemsteuerung und aktiviere anschließend einen Menüpunkt. Durch das Aktivieren ändert sich ein anderer Menüpunkt, den ich nun auch gerne aktivieren würde. Das Problem ist jedoch, dass (obwohl sich dieser zweite Punkt in Wirklichkeit geändert hat) die aktuelle Funktion das nicht mitbekommt. Es müsste also ShellApp irgendwie aktualisiert werden, nachdem es mit CoShell.Create erzeugt wurde. Etwas wie ShellApp2 := CoShell.Create; liefert leider das gleiche, da hier scheinbar aus einem Cache gelesen wird o.ä.
Wird die Funktion allerdings beendet und nochmals aufgerufen, ist der aktualisierte Wert drin. Ich bräuchte das aber eben in einem Durchlauf.
Ich vermute CoShell müsste irgendwie aktualisiert werden. Leider finde ich keine Lösung. Hat jemand eine Idee?
Hier eine stark reduzierte Version des Codes:
Delphi-Quellcode:
var
ShellApp : Shell32_tlb.Shell;
ControlPanel, MyFolder: Shell32_tlb.Folder;
FolderItem: Shell32_tlb.FolderItem;
begin
ShellApp := CoShell.Create;
ControlPanel := ShellApp.NameSpace(ssfCONTROLS);
//[...]
FolderItem := ControlPanel.Items.Item(i);
//[...]
MyFolder := FolderItem.GetFolder as Folder;
//[...]
FolderItem := MyFolder.Items.Item(i);
//[...]
FolderItem.Verbs.Item(i).DoIt;