Parameter in einer Verknüpfung

[Daniel B]

Hallo und herzlich Willkommen im Forum,

hier mal ein bisschen Code von mir, wie man den Parameter übernimmt.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  SndPlaySound(PChar(ParamStr(2)), SND_ASYNC);
//SND_SYNC = Während die Datei abgespielt wird, steht das Prog.
//SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt
//SND_LOOP = Immer wieder und immer wieder
  Label1.Caption:=ParamStr(1);
  Button1.SetFocus;
  Beep;
end;

Der erste Parameter wird hier in einem Label angezeigt und als zweiten Parameter gibt man eine .wav File an die beim Start abgespielt werden soll.

Grüsse, Daniel