Главная страница
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.014 c
1-3477
Yuri Btr
2002-08-20 17:57
2002.09.02
Не дать нажать SpeedButton


3-3304
Азазелло
2002-08-13 09:00
2002.09.02
Удаленная работа с MSSQL


14-3570
AZ
2002-08-05 13:31
2002.09.02
Время работы винчестера


7-3653
KPY
2002-06-19 17:10
2002.09.02
Связанно ли это с Hooks?


3-3256
Nonam
2002-08-09 16:14
2002.09.02
баг BDE?