"Senden an" mit langen Dateinamen

[c.kauer]

Also hier die falsche Variante mit der ich den Link erzeugt habe. Mit dieser Version von Seve funktioniert es aber (so habe ich mir das vorgestellt):

Delphi-Quellcode:

procedure TfrmInstall.MakeLink( PgmPath, PgmArgs, LinkPath, Descr: String );
var
   AnObj:     IUnknown;
   ShLink:    IShellLink;
   PFile:     IPersistFile;
   WFileName: WideString;
begin
   AnObj  := CreateComObject( CLSID_ShellLink );
   ShLink := AnObj as IShellLink;
   PFile  := AnObj as IPersistFile;

   ShLink.SetPath( PChar( PgmPath ) );   
   ShLink.SetArguments( PChar( PgmArgs ) );
   ShLink.SetWorkingDirectory( PChar( ExtractFilePath( PgmPath ) ) );
   ShLink.SetDescription( PChar( Descr ) );


   WFileName := LinkPath;
   PFile.Save( PWChar( WFileName ), False );
end;

Warum es hiermit nicht funktioniert weiß ich noch nicht!

Gruß Christian