Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Автозагрузка файла   Найти похожие ветки 

← →
Роман   (2004-11-07 03:49) [0]

У меня будет небольшая программа по обработке данных. Подскажите как сделать так чтобы при её запуске автоматически текстовый файл был готов для чтения т.е. стал открытым.

---

← →
Andy BitOff ©   (2004-11-07 03:54) [1]


procedure OpenForShare(const FileName: String);
var
 FileHandle : Integer;
begin
 FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
 if FileHandle > 0 then
   {valid file handle}
 else
   {Open error: FileHandle = negative DOS error code}
end;


---

← →
Anatoly Podgoretsky ©   (2004-11-07 08:30) [2]

Роман   (07.11.04 03:49)  
Reset(F)

---

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

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.053 c