| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Автозагрузка файла [D6, Win95/98]

Роман ©   (2004-11-07 03:49:00) 

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

---

Anatoly Podgoretsky   (2004-11-07 08:30:00) [1]

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

---

Andy BitOff   (2004-11-07 03:54:00) [2]


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;


---

Наверх