"Senden an" mit langen Dateinamen

[OregonGhost]

Zitat:

Ich wollte mal einen Link den ich automatisch erzeuge mit einer manuellen Verknüpfung vergleichen. Kann man die lnks überhaupt irgendwie anschauen? Ultra Edit öffnen sofort die Verknüpfte Datei.

Rechtsklick->Eigenschaften?

[Christian Seehase]

Moin Christian,

um es zu testen, habe ich den "Senden an"-Link manuell in dem Ordner erstellt.

[Steve]

Zitat von c.kauer:

Mit dem Beispiel (Parameter unter Run eintragen) wollte ich nur zeigen, dass Steve nicht rechthaben kann.

Bitte? Ich habe das Programm über Senden an gestartet, wie Du's oben beschrieben hast ("von Hand" erzeugte Verknüpfung) und damit klappts - dass es über Run Parameter nicht geht, ist sowieso selbstverständlich und habe ich auch nie behauptet

Hier gibts nen Code zum Erzeugen einer Verknüpfung (falls bei "Deiner Art" was schiefläuft )

Gruß
Stephan

[c.kauer]

@Steve
so ist das Kommunkation, dann hab ich dich wohl falsch verstanden, aber danke für den Link!

Gruß Christian

[Steve]

Kein Problem klappts denn, wenn Du den Link mit diesem Code erstellst?

Gruß
Stephan

[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