Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизДоступ к файлу Найти похожие ветки
← →
XeN (2002-01-06 01:50) [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;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenForShare((FileNameedit1.Text));
end;
end.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c