Ordnung muss sein (LaunchBar)

[KodeZwerg]

Zitat von EWeiss:

Du must dich darum nicht mehr kümmern..

Ich habe ein Eigeninteresse daran, da mir dieser Umstand vorher nie auffiel.

Zitat von EWeiss:

Bin mit der x64 Version dran da funktioniert es mit den Icons.

Zitat von EWeiss:

So wie ich sagte du kannst mit einer 32Bit Anwendung im Pfad Program Files nicht rumpfuschen.
Deshalb bekommst du auch die Icons nicht.

Ich bekomme alle Icons, habe Dir ja bereits geschrieben wie. Ich bekomme sie nur nicht über den üblichen Weg.

Gruß

[EWeiss]

Zitat:

Ich bekomme alle Icons, habe Dir ja bereits geschrieben wie. Ich bekomme sie nur nicht über den üblichen Weg.

Ach.. Ich rede von Verknüpfungen denn darum geht es ja hier.
Aus den Exe Dateien bekomme ich sie auch alle.

Oder meinst du ich mache mir die Arbeit mit einer 64BIt Anwendung umsonst?
Nur deshalb weil es auf normalem Wege halt nicht geht.

gruss

[EWeiss]

Zum Fortschritt.
Langsam komme ich weiter, musste meine GDI+ Unit komplett umschreiben und dementsprechend auch alle Funktionen innerhalb meiner Lib.
Es funktioniert einwandfrei mit 32Bit aber 64Bit leider nicht!

Es hat damit zu tun..
bsp. Wenn ich unter 32Bit einer Funktion ein Cardinal übergebe und diese in 64Bit nicht kompatibel ist dann kracht es.
Deshalb muss ich alles umschreiben damit es auf beiden Plattformen funktioniert.

GDIPlus Image war Cardinal ist nun Pointer usw..
Es läuft soweit nur mein Menu noch nicht.. habe da wohl noch ein\zwei Funktionen unter GDI+ die ich noch korrekt umlegen muss.
Das dauert seine zeit.

Kracht immer bei

Delphi-Quellcode:

// Gibt die höhe und weite vom GDIPLUS Image zurück.
procedure TSkinEngine.GetImageSize(Img: Pointer; var imgW, imgH: UINT);
begin
  if Assigned(Img) then
  begin
    GdipCheck(GdipGetImageWidth(Img, imgW));
    GdipCheck(GdipGetImageHeight(Img, imgH));
  end;
end;

Muss aber nichts bedeuten denn die Typen sind korrekt habe sie angepasst.
Irgendwo dazwischen passiert noch was das sich nicht so leicht debuggen lässt.

Test im Anhang werde ich löschen wenn die Final fertig ist inklusive fix für das Menu (GDI+).
Zumindest sollten jetzt deine Icons aus "Program Files" richtig angezeigt werden.
Aber wundere dich nicht die Dateien sind nun um ein 10faches größer.


PS:
Die 32Bit läuft mit den geänderten Typen für 64Bit ohne Probleme schwer den Fehler zu lokalisieren.
Ich finde keine Informationen darüber was bei der GDI+ 64Bit für Typen übergeben werden müssen. grrrrrr..
Es gibt auch keine 64Bit API für GDI+ von Delphi zumindest finde ich keine.

gruss

[KodeZwerg]

Kurzes Mini-Feedback:
Mit deinem 64bit build lädt er Icon fast korrekt, warum nur fast fragst Du Dich? Weil irgenwie in Deiner Methode was merkwürdig läuft.

Ich habe folgendes gemacht:
64bit 7zip installiert
in \Program Files\7zip rein und zu 7zG.exe eine Verknüpfung auf Desktop abgelegt.
32bit Ottb = System Application Icon
64bit Ottb = zeigt brav 7zG.exe Icon an
32bit Delphi über SHGetFileInfo(PChar(IncludeTrailingPathDelimiter(Path) + finddata.cFilename), 0, fi, sizeof(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_ICON) = System Application Icon

jetzt das merkwürdige
in \Program Files\7zip rein und 7zG.exe eine Verknüpfung auf Desktop abgelegt aber dieses mal mit 2. Icon von 7zFM.exe
32bit Ottb = System Application Icon
64bit Ottb = zeigt Icon von 7zG.exe, sollte aber das 2. von 7zFM.exe sein
32bit Delphi über SHGetFileInfo(PChar(IncludeTrailingPathDelimiter(Path) + finddata.cFilename), 0, fi, sizeof(TSHFileInfo), SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_ICON) = zeigt das 2. aus 7zFM.exe

Hab Dein 64bit noch nicht weiter getestet, wollte Dich nur das obige Wissen lassen.

Gruß

[EWeiss]

Zitat:

64bit Ottb = zeigt Icon von 7zG.exe, sollte aber das 2. von 7zFM.exe sein

Ich nehme bisher keine Rücksicht auf den IconIndex der in der Verknüpfung festgelegt ist.
Es wird immer das 1 (Index 0) ICON_LARGE genommen. Seltsam ist das nicht sondern so programmiert.

Aber wenn nötig kann man es später noch ändern.
Der 64Bit Code ist bis auf die Typen gleich da hat sich nichts geändert.

Zitat:

32bit Delphi über

Ist nicht OTTB so denke ich das du es nicht vergleichen kannst
Danke trotzdem für die Meldung.

gruss

[KodeZwerg]

Zitat von EWeiss:

Seltsam ist das nicht sondern so programmiert.

Okay.

Zitat von EWeiss:

Ist nicht OTTB so denke ich das du es nicht vergleichen kannst

In der Tat, ich friemel gerade an einer ListView, da die TShellListView bei meinem Delphi Speicherlecks hat.

[jaenicke]

Zitat von KodeZwerg:

da die TShellListView bei meinem Delphi Speicherlecks hat.

Die lag nicht umsonst nur unter Samples.
Es gibt sowas aber auch in gut und fertig. Aber das ist ein anderes Thema.