Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.015 c
3-3264
glory_bug
2002-08-09 21:32
2002.09.02
Работа с базой без


3-3253
Tony Green
2002-08-09 16:50
2002.09.02
Как работать с транзакциями в MDI приложении?


14-3569
Бунтовщик
2002-08-05 20:42
2002.09.02
А можно ли успеть за тех прогрессом?


14-3628
Invega
2002-08-07 21:18
2002.09.02
А из Луганска, что на Украине есть кто?


1-3405
MJH
2002-08-22 11:49
2002.09.02
Своство компонента типа строка, но с выпадающим списком...