Ordnung muss sein (LaunchBar)

[KodeZwerg]

Vielleicht reden wir an einander vorbei, ich geh jetzt mal auf nummer sicher und zeige dir hier was ich meine.

Ich Suche nach einer Methode die das macht was dort gezeigt wird.

Delphi-Quellcode:

  TShellLinkInfoStruct = record
    FullPathAndNameOfLinkFile: array[0..MAX_PATH] of Char;
    FullPathAndNameOfFileToExecute: array[0..MAX_PATH] of Char;
    ParamStringsOfFileToExecute: array[0..MAX_PATH] of Char;
    FullPathAndNameOfWorkingDirectroy: array[0..MAX_PATH] of Char;
    Description: array[0..MAX_PATH] of Char;
    FullPathAndNameOfFileContiningIcon: array[0..MAX_PATH] of Char;
    IconIndex: Integer;
    HotKey: Word;
    ShowCommand: Integer;
    FindData: TWIN32FINDDATA;
  end;

Dieses Record will ich gefüllt haben ohne uses ShlObj, ComObj, ActiveX, CommCtrl;

[EWeiss]

OK
Lasse mich mal überraschen.

gruss

[KodeZwerg]

Ich weiß ja nicht ob für Dich akzeptabel mit den Uses, in meinem non-Vcl ist das Kontroproduktiv.

Das löst aber dieses "hab nix Icon Problem" für 64bit .exe Verknüpfung aus \Program Files\, ob Admin oder Gast, beides klappt.

Dann halt Record auswerten ob FullPathAndNameOfFileContiningIcon oder FullPathAndNameOfFileToExecute zu nutzen ist, jeweils mit IconIndex auswerten = Man hat mit 32bit auch 64bit .exe Icons von Verknüpfung.

[EWeiss]

Zitat von KodeZwerg:

Ich weiß ja nicht ob für Dich akzeptabel mit den Uses, in meinem non-Vcl ist das Kontroproduktiv.

Das löst aber dieses "hab nix Icon Problem" für 64bit .exe Verknüpfung aus \Program Files\, ob Admin oder Gast, beides klappt.

Dann halt Record auswerten ob FullPathAndNameOfFileContiningIcon oder FullPathAndNameOfFileToExecute zu nutzen ist, jeweils mit IconIndex auswerten = Man hat mit 32bit auch 64bit .exe Icons von Verknüpfung.

Ich möchte nicht von meiner uIShellItem.pas abweichen denn dann müsste ich für dieses eine Problem alles neu schreiben.
Das wäre dann doch zu viel des guten

Zitat:

Damit kompiliert Emils SourceCode völlig problemlos

Ja sollte kein Problem sein.. Aber jetzt kommt das große ABER.. Die Dateien sind dann kompiliert 3x mal so groß.

gruss

[KodeZwerg]

Öhmm, Danke für den Tipp mit Unit Namen, hab da mal reingeschaut.

Delphi-Quellcode:

  TWin32ShortCut = class(TBaseShortcut)
    private
      FShellLink: IShellLink;
      FPersistFile: IPersistFile;
      FAppPath: String;
      FRelativePath: String;
      FPIDL: PItemIDList;
      FWorkDirectory: String;
      FArguments: String;
      FDescription: String;
      FShowCmd: TShowType;

Du hast doch bereits alles, ich schau mal ob ich in der Lage bin mit dieser Unit ein D2009 Projekt zum Laufen bekomme. Ansonsten ist Sonntag CE fällig

edit
Nicht mehr jetzt, Gute Nacht.

[KodeZwerg]

Hello Emil!

Also ich habe mich nochmal dem Thema lnk Datei gewidmet.
Bin mit einer Vcl Testanwendung auch zu ein paar Ergebnissen gekommen.
Siehe
Was da völlig falsch läuft ist wie dieser ShortCut aufgelöst wird.
Wahrscheinlich da meine Anwendung 32bit ist ersetzt Windows die Quelle automatisch.
Wenn ich mir die Link Datei mit einem HexEdit betrachte, da steht nix von (x86) im Pfad.

Also meine momentane Lösung ist mehr als dürftig.

[EWeiss]

Zitat:

Was da völlig falsch läuft ist wie dieser ShortCut aufgelöst wird.

Na ja ist nicht nur dieser es sind alle ShortCut von Anwendungen unter Program Files.

gruss