Вот небольшая схема, она открывает документы *.htm из папки Lessons.
На жестком диске работает все Ок(из любой директории), а при переносе на CD отказывается.
Подскажите, как правильно реализовать запуск данной схемы с CD.
code_16604.txt
------------ Дoбавленo в 17.36:
В первом сообщении ошибка - code_16604.txt
Пытаюсь выложить, пишет слишком много символов.
------------ Дoбавленo в 17.45:
Make(delphi)
ver(4.04 build 182)
Add(MainForm,2953706,21,105)
{
Width=597
Height=390
link(onCreate,12585366:doSearch,[(83,125)(83,223)])
}
Add(ListBox,9738639,294,189)
{
Left=5
Top=5
Width=187
Height=347
Sort=0
Point(String)
link(onClick,1037601:doEvent1,[])
}
Add(FileSearch,12585366,112,217)
{
Ext="*.htm"
link(onSearch,8940250:doPart,[(188,223)(188,192)])
link(Dir,15143963:CurrentDir,[])
}
Add(FilePart,8940250,231,186)
{
link(onName,9738639:doAdd,[(279,199)(279,195)])
}
Add(Dir,15143963,119,168)
{
}
Add(WebBrowser,6698069,520,206)
{
Left=230
Top=35
Width=314
Height=277
link(URL,1939541:GetData,[(526,189)(531,189)])
}
Add(Dir,7982795,392,35)
{
}
Add(FormatStr,12388666,448,126)
{
Mask="%1Lessons/%2.htm"
link(onFString,1939541:doData,[(513,132)(513,146)])
link(Str1,7982795:CurrentDir,[(454,96)(398,96)])
link(Str2,9738639:String,[(461,114)(391,114)(391,246)(321,246)])
}
Add(EventFromData,1939541,525,140)
{
}
Add(Hub,1037601,364,196)
{
link(onEvent1,12388666:doString,[(413,202)(413,132)])
link(onEvent2,6698069:doNavigate,[(449,209)(449,212)])
}