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
