Windows 7 Support für Delphi [ALPHA 1]

[sakura]

Einige von Euch lesen ja die Blogs oder haben den Windows 7 Thread beobachtet. Ich habe ein wenig mit Windows 7 gespielt und die ersten Funktionen in kleine Komponenten verpackt. Wer will, der kann sich die herunterladen und nutzen (in Euren Anwendungen: GPL, LGPL, MPL - je nach belieben; für eigene Komponenten nur GPL).

Das Package ist ausschließlich als Installer verfügbar, wer das nicht mag, der muss die auch nicht herunterladen Ich werde kein einfaches ZIP zum entpacken zur Verfügung stellen.

Ausführliche Beschreibung (engl.): http://www.gumpi.com/Blog/2009/01/20...ForDelphi.aspx
Installer: http://www.gumpi.com/Downloads/Delph...Components.zip (ca. 1,5 MB)

Momentan kopiert der Installer ausschließlich nach Auswahl. Die Installation in die IDE muss von Hand erfolgen.

Packages sind enthalten für: Delphi 7, Delphi 2006, Delphi 2007 und Delphi 2009

Derzeit verfügbar sind:

• Jump Lists - Rechtsklick Kontextmenü der Anwendung in der Taskbar
• Overlay Icon - wird im Taskbar Button je nach Auswahl angezeigt
• Fortschrittsanzeige im Taskbar Button
• Taskbar Thumbnails - Die Anwendung kann direkt von der Taskbar aus gesteuert werden

Hinweis: Die meisten Features setzen Aero voraus und laufen daher nicht in VMs.

......

[Redeemer]

Ich weiß, Totengräberei. Löscht meinen Post und steinigt mich, falls es falsch war, hier noch was zu posten. Ich habe mich aber jetzt anderthalb Stunden damit abgemüht, da irgendwie Ordnung in meine Sprunglisten zu bekommen, welche ich als Nutzer von Delphi 2009/XE2 offenbar nur mit diesen Komponenten erstellen kann. Leider gibt es beim Anlegen von Kategorien diese Zugriffsverletzungen (da die versteckt werden, sieht man sie nur beim Debuggen), obwohl ich Admin bin. Da diese Sprunglisten-Komponente auch nicht die Möglichkeit bietet, Trennleisten (Trennbalken, Separators) anzulegen, hat man nach wenigen Items totales Chaos im Startmenü. Daher habe ich mal geguckt, wie man Trennleisten einfügt. Damit Delphi-typisch Bindestriche in Trennleisten umgewandelt werden, ändert ihr in dwJumpLists.pas folgende Zeilen:

Alt

Delphi-Quellcode:

    K.fmtid := StringToGUID('{F29F85E0-4FF9-1068-AB91-08002B27B3D9}');
    K.pid := 2;
    P.vt := VT_LPWSTR;
    P.pwszVal := PWideChar(ObjectItem.ShellLink.FDisplayName);

Neu

Delphi-Quellcode:

    if ObjectItem.ShellLink.FDisplayName = '-' then
    begin
      K.fmtid := StringToGUID('{9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3}');
      K.pid := 6;
      P.vt := VT_BOOL;
      P.boolVal := True;
    end
    else
    begin
      K.fmtid := StringToGUID('{F29F85E0-4FF9-1068-AB91-08002B27B3D9}');
      K.pid := 2;
      P.vt := VT_LPWSTR;
      P.pwszVal := PWideChar(ObjectItem.ShellLink.FDisplayName);
    end;

Ihr erstellt Trennleisten dann einfach mit durch Aufrufen von Tasks.AddShellLink('-', ''); bei eurer TdwJumpLists.

Ich hoffe, das hilft jemandem. Von mir noch ein großes Lob an die Ersteller und danke an mleyen fürs Wiederhochladen.