Programm auf Start-Parameter reagiren lassen

[Deltachaos]

Zitat von Deltachaos:

Zitat von dominikkv:

mach mal doppelklick auf dein formular

War gerade was essen
Das mit Doppelklick auf formular war das einfachste und es funktionirt.
Dancke

wie kann ich jetzt einen teil eines Parameter zu einer Variable (String) machen?

z.b.: programm.exe /del_update /version -4.1.20

showmessage('Ihr Programm wurde auf die Version ' + [der Teil des Parameter] + ' aktualisirt'); vieleicht so?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var work_dir, version: string;
begin
  if ParamCount > 0 then
  if UpperCase(ParamStr(1)) = '/A'
  then
  begin
    DeleteFile('th_upd.exe');
    DeleteFile('unrar.dll');
    version:= UpperCase(ParamStr(2));
    showmessage('Ihr Programm wurde auf die Version ' + version + ' aktualisirt')
  end;
end;

selbstmerk hatt geklappt.
bei parameter: /a 4.1.20
Ihr Programm wurde auf die Version 4.1.20 aktualisirt

Für alle die den Thead Lesen: DIE PAHRAMETER müssen GROS geschrieben werden! könen dan aber klein aufgerufen werden!

z.b.:
UpperCase(ParamStr(1)) = '/A' kann so aufgerufen werden:
programm.exe /a
aber auch so:
programm.exe /A

andersrum aber net!


Ich glaub so langsam beckomm ich den Delphi durchblick! *freu* *freu*