![]() |
AW: Ordnung muss sein (LaunchBar)
Zitat:
Muss eh noch einiges ändern das mit dem Icon (Set OnTop) gefällt mir nicht das es immer sichtbar ist. Probleme behoben siehe Upload post 1# Zitat:
Weil einige *.lnk Dateien auf den Ordner 'C:\Windows\Installer\' verzweigen. Warum das so ist und wie ich das beheben kann habe ich noch nicht herausgefunden. bsp. In der Verknüpfung steht Ziel: "C:\Program Files (x86)\IDM Computer Solutions\UltraEdit\Uedit32.exe" Ausführen in "C:\Program Files (x86)\IDM Computer Solutions\UltraEdit\" Der Target Path ist aber 'C:\Windows\Installer\{DDF17E28-E4C4-41CF-9DB9-8FA5F19B918C}\IconD7A33067.exe' Das Resultat ist dann das ich ein falsches bzw.. das Installer Icon geliefert bekomme. Wie gesagt ich weis nicht warum Windows das macht und wie ich das verhindern kann. ![]() Der beste weg eine Verknüpfung zu erstellen ist dieser. Geht zum Ordner wo sich die Exe befindet klick mit der rechten Maustaste drauf und verwende im Menu Senden an Desktop (Verknüpfung) gruss |
AW: Ordnung muss sein (LaunchBar)
Zitat:
|
AW: Ordnung muss sein (LaunchBar)
Zitat:
Aber ich habe es schon fertig ;) Und das Bitmap ist nur sichtbar wenn man mit der Maus über die Leiste fährt. gruss |
AW: Ordnung muss sein (LaunchBar)
Zitat:
Zitat:
Ich hatte aber auch noch nie ein Problem damit diese Links per ShellExecute auszuführen oder mit SHGetFileInfo ein Handle zu dem richtigen Icon zu bekommen (z.B. bei Word und Excel). // EDIT: Beispiel:
Delphi-Quellcode:
var
ShFileInfo: TSHFileInfo; begin SHGetFileInfo('C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office\Microsoft Excel 2010.lnk', 0, ShFileInfo, SizeOf(TSHFILEINFO), SHGFI_ICON); Image1.Picture.Icon.Handle := ShFileInfo.hIcon; end; |
AW: Ordnung muss sein (LaunchBar)
Zitat:
Selber habe ich keinen Einfluss darauf wie Anwendungen ihre ShortCuts bzw.. Links erstellen. Siehe Anhang als Beispiel. Von der Anwendung bekomme ich das Icon vom Installer zurück geliefert.
Delphi-Quellcode:
procedure TWin32ShortCut.LoadShortCut(LnkName: WideString);
var FP: array[0..MAX_PATH * 2] of Char; pfd: TWin32FindDataW; showval: integer; psfi: TSHFileInfo; begin ClearValues; FPersistFile.Load(PWideChar(LnkName), 0); FillChar(FP, Sizeof(FP), 0); FShellLink.GetPath(FP, Sizeof(FP), pfd, 0); FAppPath := String(FP); FShellLink.GetIDList(Fpidl); FillChar(FP, Sizeof(FP), 0); FShellLink.GetWorkingDirectory(FP, Sizeof(FP)); FWorkDirectory := String(FP); FillChar(FP, Sizeof(FP), 0); FShellLink.GetArguments(FP, Sizeof(FP)); FArguments := String(FP); FillChar(FP, Sizeof(FP), 0); FShellLink.GetDescription(FP, Sizeof(FP)); FDescription := String(FP); FShellLink.GetShowCmd(showval); FShowCmd := cvtTShowType(showval); FShellLink.GetHotkey(FHotKey); HotKeyToShortCut(FHotKey, FHotKeyCtrl); FillChar(FP, Sizeof(FP), 0); FShellLink.GetIconLocation(FP, Sizeof(FP), FIconIndex); // <<<<< und zwar hier FP FIconPath := String(FP); if FIconPath = '' then begin SHGetFileInfo(PChar(FAppPath), 0, psfi, sizeof(psfi), SHGFI_ICON); FIcon.Handle := psfi.hIcon; end else FIcon.Handle := ExtractIcon(hInstance, PChar(FIconPath), FIconIndex); end; Zitat:
gruss |
AW: Ordnung muss sein (LaunchBar)
Ich würde gar nicht erst GetIconLocation + ExtractIcon benutzen. SHGetFileInfo funktioniert (zumindest in allen Fällen, in denen ich es bisher genutzt und getestet habe) immer, egal was das für ein Shortcut oder was für eine andere Datei ist.
|
AW: Ordnung muss sein (LaunchBar)
Zitat:
Delphi-Quellcode:
SHGetFileInfo('C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office\Microsoft Excel 2010.lnk', 0, ShFileInfo, SizeOf(TSHFILEINFO), SHGFI_ICON);
Hmmm.. muss ich mal testen. EDIT: Nein Funktioniert nicht. Siehe Pic! Immer der Installer Pfad. Auch wenn ich den LinkName direkt angebe
Delphi-Quellcode:
SHGetFileInfo(PChar(LnkName), 0, psfi, sizeof(psfi), SHGFI_ICON);
Bekomme ich das Installer Icon. gruss |
AW: Ordnung muss sein (LaunchBar)
Zitat:
Egal bei welcher .lnk Datei ich das teste, es klappt, wenn ich die direkt dort angebe. |
AW: Ordnung muss sein (LaunchBar)
Vielen Dank und Guten Morgen Emil,
ich wollte Dich nur rasch Wissen lassen das die "Cleanup" Fenster nun allesamt bei mir ihr Werk ohne Probleme verrichten!:thumb: edit Zitat:
Ein TaskBar Icon könnte ich mir noch als Alternative vorstellen. |
AW: Ordnung muss sein (LaunchBar)
Windows 10 Pro (Version 1803 [Build 17134.228]
Hab OTTB.zip in meinem Download Ordner entpackt und von dort aus ausgeführt. Funktioniert ohne Fehlermeldung und sieht gefällig aus. Ich brauche es allerdings nicht und habs wieder geschlossen und gelöscht. Schöne Arbeit aber! Sherlock |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:02 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz