Programm in Win11 Startmenü eintragen

[dpKlaus]

Vielen Dank für den Hinweis. Es klappt bei zwei Programmen.

Ich hab aber wohl noch ein Problem bei der Function "CreateLink". Da habe ich keine ordentliche Verknüpfung. Zwar stehen die beiden "Verknüpfungen" in einem Ordner des StartMenues aber es gibt keinen Bezug zu den zu startenden Programmen. Ich glaube hier liegt ein Problem bei den Strings.

[HolgerX]

Hmm...

bei Unicode-Delphi ist PChar ein PWideChar..

Zitat:

Code:

if SUCCEEDED(CoCreateInstance(CLSID_ShellLink,nil,CLS CTX_INPROC_SERVER, IID_IShellLinkA, psl)) then

Hier holst Du aber per IID_IShellLinkA eine Ansi Version...

Sollte dass dann nicht IID_IShellLinkW sein und explizit PWideChar statt PChar verwenden?

Besser mit strickten Typen (WideString / IShellLinkW / PWideChar / IID_IShellLinkW) arbeiten, dann gibt es auch keine Verwechslung...

[dpKlaus]

Vielen Dank für die Hilfe.
Es funktioniert.

[himitsu]

Nunja, der Code ist sooooooooo alt, noch lange vor Delphi 2009 (so, wie es aussieht).

Dabei ist es doch eigentlich ganz einfach:
IID_IShellLinkA, IShellLinkA, PAnsiChar und AnsiString
IID_IShellLinkW, IShellLinkW, PWideChar und WideString/UnicodeString
IID_IShellLink, IShellLink, PChar und String

Dann noch das andere Problem, eine total nutzlose Fehlerbehandlung, welche nur ein Boolean zurückliefert, anstatt der eigentlichen Fehlerinformation (Fehlercode/-text),
so dass niemand hören konnte, warum es nicht geht,
und zusätzlich auch noch diese nichtssagende Info komplett ignoriert. (Result nicht ausgewertet)


PS: [DELPHI] dein Code [/DELPHI]