ok habe es jetzt wie folgt gelöst
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 1 to ParamCount do
if LowerCase(ParamStr(i)) = 'beep' then
Label1.Caption := 'test'
else if LowerCase(ParamStr(i)) = 'exit' then
Label1.Caption := 'hmmmmmmmmmmmmmmmmmmmmmmmmm';
end;
sollte damit ja jetzt auch funktinieren...
PS. die oben genannte funktion habe ich aus der Delphi Hilfe erhalten...
