Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
ВнизКомандная строка Найти похожие ветки
← →
Егор (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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c