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