Ich habe nun nach lange suchem nen Code gefunden, mit dem ich wunderbar Links zu Dateien erstellen kann!
Nur fehlt mir eine möglichkeit auch für Verzeichnisse das anzuwenden!
Wie erstelle ich ShortCuts zu Verzeichnissen?
Mein Code für Dateien
Code:
function CreateLink(const AFilename, ALNKFilename, ADescription: string): Boolean;
var
psl: IShellLink;
ppf: IPersistFile;
wsz: PWideChar;
begin
result := false;
if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, nil,
CLSCTX_inPROC_SERVER, IID_IShellLinkA, psl)) then
begin
psl.SetPath(PChar(AFilename));
psl.SetDescription(PChar(ADescription));
psl.SetWorkingDirectory(PChar(ExtractFilePath(AFilename)));
if SUCCEEDED(psl.QueryInterface(IPersistFile, ppf)) then
begin
GetMem(wsz, MAX_PATH * 2);
try
MultiByteToWideChar(CP_ACP, 0, PChar(ALNKFilename), -1, wsz, MAX_PATH);
ppf.Save(wsz, true);
result := true;
finally
FreeMem(wsz, MAX_PATH * 2);
end;
end;
end;
end;