Ö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.