Und wo ist nun dein Problem?
Passiert nichts, Fehlermeldung oder sonstwas....
Mal schnell den Code kopiert, der hier so rumgammelt.
Delphi-Quellcode:
procedure CreateLinkFile(LinkFilename, Filename, Args, Description: string);
var
ErrorCode: HResult;
ShellLink: IShellLink;
PersistFile: IPersistFile;
begin
ErrorCode := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLink, ShellLink);
if not Succeeded(ErrorCode) then
RaiseLastOSError(ErrorCode);
ShellLink.SetPath(PChar(Filename));
ShellLink.SetArguments(PChar(Args));
ShellLink.SetDescription(PChar(Description));
ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(Filename)));
ErrorCode := ShellLink.QueryInterface(IPersistFile, PersistFile);
if not Succeeded(ErrorCode) then
RaiseLastOSError(ErrorCode);
PersistFile.Save(PChar(LinkFilename), True);
end;