Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Parameter bei Verknüpfungen in der JEDI API (https://www.delphipraxis.net/13394-parameter-bei-verknuepfungen-der-jedi-api.html)

Norbert987 17. Dez 2003 16:08


Parameter bei Verknüpfungen in der JEDI API
 
Dies ist mein Versuch, Verknüpfungen ins Startmenü zu intergrieren:

Delphi-Quellcode:
// Aufruf
Verknupfung(PChar('Help'),
            PChar('Help\ReadMe.txt'),
            PChar(''),
            PChar('Readmelnk'));


// Procedure
procedure TForm1.Verknupfung(Pfad, Verkn, Caption, InkNam : String);
var ShellLink: TShellLink;
begin
  CoInitialize(nil);
  with ShellLink do begin
    Arguments:='';
    IdList:=nil;
    WorkingDirectory       := Pfad;
    Target                 := Verkn;
    Description            := Caption;
  end;
  ShellLinkCreateSystem(ShellLink, CSIDL_COMMON_STARTMENU, InkNam);

  ShellLinkFree(ShellLink);
end;
dies klappt auch ganz gut, allerdings ist es mir nicht gelungen Startparameter mit einzufügen. Ich habe versucht dies bei InkName mit zu übergeben, was aber nicht klappte da er [der PC] den Startparameter auch mit " umschloss und somit die Datei natürlich nicht finden konnte.
Ich hoffe man konnte einigermassen verstehen was ich meine und würde mich über eine Antwort freuen.

vielen Dank im Vorraus Tobias

scp 17. Dez 2003 16:20

Re: Parameter bei Verknüpfungen in der JEDI API
 
Du hast es schon oben stehen:
Delphi-Quellcode:
  Arguments := '';
Erstze das '' durch die gewünschten Parameter und es geht.

Norbert987 17. Dez 2003 16:23

Re: Parameter bei Verknüpfungen in der JEDI API
 
Uppps, das war ja einfach... :thuimb: thx


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz