Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Сделать приложение с параметрами
|
|||
|---|---|---|---|
|
#18+
Как сделать приложение с параметрами запуска? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.11.2003, 10:15 |
|
||
|
Сделать приложение с параметрами
|
|||
|---|---|---|---|
|
#18+
в файле проекта пишешь if ParamCount >= 1 then begin S := UpperCase(ParamStr(1)); if Length(S) > 1 then S := Copy(S, 2, 1); if S = 'C' then begin .... end else if S = 'S' then begin ... end; .... end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.11.2003, 10:22 |
|
||
|
Сделать приложение с параметрами
|
|||
|---|---|---|---|
|
#18+
а оно подефолту с параметрами :-) просто ты их не читаешь. прочитать параметры можно с помощью функции function ParamStr(Index: Integer): string; где ParamStr(0) - полный путь до программы. ParamCount - количество параметров можно так же посмотреть на CmdLine так же стоит взглянуть на function FindCmdLineSwitch(const Switch: string; SwitchChars: TSysCharSet ; IgnoreCase: Boolean): Boolean; - может помочь при анализе параметров. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.11.2003, 10:25 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32329748&tid=2115831]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
74ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
33ms |
get tp. blocked users: |
1ms |
| others: | 291ms |
| total: | 434ms |
| 0 / 0 |
