Einzelnen Beitrag anzeigen

Benutzerbild von Deltachaos
Deltachaos

Registriert seit: 20. Feb 2008
Ort: Berlin
195 Beiträge
 
Delphi 7 Personal
 
#8

Re: Programm auf Start-Parameter reagiren lassen

  Alt 29. Mär 2008, 13:27
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*
Maximilian Ruta
  Mit Zitat antworten Zitat