Opret en genvej med param

Ændre denne linie TargetName := 'c:\windows\calc.exe';
til TargetName := ParamStr(1);
og put det hele i din OnFormCreate

Stoney

En lidt bedre løsning var måske at bruge CmdStr der tager alle parametre på én gang og derefter pakke stringen ind i apostroffer vha QuotedStr eller lignende. Må undersøge hvordan man får genereret strengen korrekt á lá:

  "C:\Program Files\My Oddly Named Company\MyApp.exe" -a:"Dette er en test" -b

har du fundet ud af hvordan man går??

Man rejser sig op, holder balancen og så prøver man at sætte ét ben foran det andet - det tager lidt tid, men man mestrer det hurtigt ;-)

hrc> Du er en hård mand :-)

smith1> Hvad er det du ikke forstår ?

Stoney

jeg mente hvordan man "gør" //taste fejl...

jeg kan ikke finde ud af hvordan man bruger: CmdStr og QuotedStr.

når jeg bruger CmdStr() får jeg fejl, skal jeg tilføje noget til min uses??
hvis jeg bruger QuotedStr() laver den ikke noget link !?!?!

bruger jeg TargetName := ParamStr(1); så laver den en genvej til "denne computer"

Prøv at starte dit program fra en prompt

c:\project1.exe "d:\test\program.exe"

Så vil den lave en genvej til d:\test\program.exe

Gør det til en vane at bruge dobbelt anførselstegn i tilfælde af at der
skulle være et mellem i sti/program

Stoney

kan ikke få den til at gemme et link så her: "c:\app.exe -message"

procedure TForm1.FormShow(Sender: TObject);
var
  parameter: string;
begin
  parameter := ParamStr(1);
  if parameter = '-message' then
  begin
    ShowMessage('Parameter -message.');
  end;
  if parameter = '' then
  begin
    ShowMessage('No parameter.');
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  IObject    : IUnknown;
  ISLink    : IShellLink;
  IPFile    : IPersistFile;
  PIDL      : PItemIDList;
  InFolder  : array[0..MAX_PATH] of Char;
  TargetName : String;
  LinkName  : WideString;
begin
  TargetName := ParamStr(0);

  IObject := CreateComObject(CLSID_ShellLink);
  ISLink  := IObject as IShellLink;
  IPFile  := IObject as IPersistFile;

  with ISLink do begin
    SetPath(pChar(TargetName));
    SetWorkingDirectory
      (pChar(ExtractFilePath(TargetName)));
  end;

  InFolder := 'c:\';


  LinkName := InFolder + '\Delphi Created Link.lnk';
// LinkName := '"' + LinkName + '"' + ' -message';  ??

  IPFile.Save(PWChar(LinkName), false);
end;

"c:\app.exe" -message    :)