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