[Delphi] Aanroepen programma variabelen

[Marv]

Ik wil graag mijn eigen programma aanroepen inclusief variabele.

Iets in deze richting:
Test.exe E:\mp3\file.mp3

Hoe krijg ik die variabele in m'n programma? 't zal wel iets simpels zijn maar ik kan het niet vinden (weet niet waar ik op moet zoeken ).

[jhksema]

Op vrijdag 19 april 2002 22:51 schreef Marv het volgende:
Ik wil graag mijn eigen programma aanroepen inclusief variabele.

Iets in deze richting:
Test.exe E:\mp3\file.mp3

Hoe krijg ik die variabele in m'n programma? 't zal wel iets simpels zijn maar ik kan het niet vinden (weet niet waar ik op moet zoeken ).

In good old pascal kon je daar bij komen via het params-array. Typ in de help file params en kijk of 'ie wat weet...

[Marv]

Op vrijdag 19 april 2002 22:54 schreef jhksema het volgende:

[..]

In good old pascal kon je daar mij komen via het params-array. Typ in de help file params en kijk of 'ie wat weet...

Tnx

code:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
    Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
    Application.Terminate;
  end;
end;

Oproepen met: programma.exe beep
levert een beep op... tnx

[jelmervos]

paramstr(0) is je path+exe.