Ordnung muss sein (LaunchBar)

[jaenicke]

Zitat von EWeiss:

Problem Dokumentiert mit Bildern. (Bei allen Windows Versionen)
Der Explorer zeigt es doch richtig an..

Dort liest du den Iconpfad aus. Den bekommst du in der Tat nicht. Du kannst nur das Handle holen. Ich habe es gerade auch mit SnagIt getestet, auch das klappt problemlos.

[EWeiss]

Zitat von jaenicke:

Zitat von EWeiss:

Problem Dokumentiert mit Bildern. (Bei allen Windows Versionen)
Der Explorer zeigt es doch richtig an..

Dort liest du den Iconpfad aus. Den bekommst du in der Tat nicht. Du kannst nur das Handle holen. Ich habe es gerade auch mit SnagIt getestet, auch das klappt problemlos.

Kleines Beispiel wie du das meinst?
bzw. an Hand meines Quell Textes fixen?

Ich behaupte das es nicht funktioniert.
Denn warum geht es bei dir und auf meinen Systemen nicht.
Man achte auf die Feinheiten.

Zitat:

Du kannst nur das Handle holen

Von was wenn der Pfad zur EXE nicht bekannt ist.

gruss

[old7]

Zitat:

OTTB\bin\SkinResource\PopUpWindow\OTTB.ske
Mit Notepad öffnen und den Eintrag editieren mit der Schriftfarbe die dir am liebsten ist.
"ACTIVECAPTION, 255,255,255,0" ' Active caption text color. // wäre Gelb (SideMenu)
"BTNTEXTCOLOR, 255,255,255,0" ' Push button ARGB text color. // wäre Gelb (ButtonText)

Danke, das hatte ich noch vermisst, um grün endgültig wegzubekommen

In der Zip-Datei von #1 sind übrigens zwei uGlobal.pas drin. Absicht oder Versehen?

[EWeiss]

Zitat:

In der Zip-Datei von #1 sind übrigens zwei uGlobal.pas drin. Absicht oder Versehen?

War ein update und kannst du löschen im Ordner _unit

gruss

[EWeiss]

Zitat:

Wobei es natürlich Sinn macht auch den Rückgabewert auszuwerten.

Mag ja sein..
Aber nein deine Funktion bzw. Änderungen haben den gleichen Effekt wie den von mir einige Seiten vorher geschickten Screenshot.

Keine Ahnung was du machst aber es funktioniert nicht!
Ich bekomme das Icon des Installer.

Ok ich muss das selber richten. Danke für deine Unterstützung.

gruss

[EWeiss]

Habe das Problem gefixt.. aber nichts an meiner Funktion verändert.
procedure TWin32ShortCut.LoadShortCut(LnkName: WideString);

Anbei ein Update..
Für die, die es testen wollen.

gruss

[KodeZwerg]

Zitat von EWeiss:

Für die, die es testen wollen.

Bilder sagen mehr als tausend Worte, sei nicht enttäuscht, mir ist es egal.
Ich habe ja Details bereits gepostet, und da zeigt nichts auf irgendwas mit "Install", ich habs bestimmt falsch Verstanden wie Du/Ihr das meint.

[jaenicke]

Zitat von EWeiss:

Kleines Beispiel wie du das meinst?
bzw. an Hand meines Quell Textes fixen?

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);

  SHGetFileInfo(PChar(LnkName), 0, psfi, sizeof(psfi), SHGFI_ICON);
  FIcon.Handle := psfi.hIcon;
end;

Wobei es natürlich Sinn macht auch den Rückgabewert auszuwerten.