"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:

Zitat von c.kauer

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

:?: :gruebel:

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 :roll:

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

Gruß
Stephan :dance:

[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 :dance:

[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