Параметры запуска

← →
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;

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