Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Параметры запуска   Найти похожие ветки 

 
veZuk   (2002-01-12 12:14) [0]

Как можно сделать в проге параметры запуска, т.е.
lala.exe -parametr1 -parametr2... -parametrN
И каким образом можно к каждому параметру прикрепить соответствующую часть кода?
Заранее спасибо.


 
DK   (2002-01-13 06:21) [1]

Почитай Хелп:
ParamCount
ParamStr


 
Z   (2002-01-13 16:21) [2]

Как пример: прога представляет собой что-то вроде Блокнота. Фрагмент кода вставляется в FormCreate, и если как параметр передано имя файла, открывает его в RichEdit1. (Пример усложнен,
т.к. добавлена поддержка длинных имен файлов.
+ для режима разработки добавлен параметр -debug

*********************
if paramcount>0 then begin
if LowerCase(paramstr(1))="-debug" then begin
worknfo1.visible:=true;
n41.visible:=true;
n:=2;
repeat
fail:=fail+paramstr(n); //обработка длинных имен
until paramcount<n;
end
else begin
n:=1;
repeat
fail:=fail+paramstr(n);
until paramcount<n;
end;
if fileexists(fail) then begin
richedit1.lines.LoadFromFile(fail);
fn:=fail;
form1.caption:="Virtual Keyboard - " + fn;
opendialog1.InitialDir:=ExtractFilePath(fn);
richedit1.SetFocus;
richedit1.modified:=false;
end;
end;



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

Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
14-100054
Феликс
2001-12-10 23:12
2002.01.31
Билл Гейтс:


3-99898
Nemesis
2001-12-28 11:43
2002.01.31
Поднимая вопрос об отчетах ...


4-100098
Evgeniy_S
2001-11-28 16:13
2002.01.31
THREADS !!!


1-99945
GovoRun
2002-01-13 23:34
2002.01.31
Создание MDIChild в run-time


1-99927
3d[Power]
2002-01-11 01:22
2002.01.31
Packed record. absolute. file r/w.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский