Текущий архив: 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.038 c
