Главная страница
    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
1-99956
MystiX
2002-01-13 18:02
2002.01.31
Heeelp!!!


4-100093
veles
2001-11-30 10:29
2002.01.31
ShellExecute(..)


14-100044
lel
2001-12-05 10:14
2002.01.31
Способность добиваться успеха...


7-100091
ReNoiZer
2001-10-18 17:57
2002.01.31
Убедительная просьба к Mystic...


7-100072
Liroy
2001-10-19 21:26
2002.01.31
Hook, клавиатурный шпион





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский