Текущий архив: 2002.09.02;
Скачать: CL | DM;

Вниз

Командная строка   Найти похожие ветки 

← →
Егор   (2002-08-20 14:46) [0]

Привет.

Тут у меня ещё один вопросик созрел. Как передать программе командную строку, с которой запускаеться программа?

Например, юзер запускает могу программу так:
MyProga.exe C:\Path\File.txt

Мне нужно в Edit1 получить путь и файл (C:\Path\File.txt), вообщем второй параметр. Не поможите? Пример необходим, я так не разберусь.

---

← →
Ekaterina ©   (2002-08-20 14:50) [1]

Edit1.Text:=ParamStr(1);

---

← →
Vaddya ©   (2002-08-20 14:50) [2]

Edit1.Text := ParamStr(1);

---

← →
Dmitriy Polskoy ©   (2002-08-20 14:51) [3]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c