powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Доступ к тестовому файлу являющийся системным
22 сообщений из 22, страница 1 из 1
Доступ к тестовому файлу являющийся системным
    #32335521
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пытаюсь открыть текстовый файл, который является системным.
Ругается что нет доступа. Открываю командой Rewrite, какие параметры отвечают за доступ к таким файлам. Приведите пример. Зарание благодарен.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32335979
Андрей Бабенко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почитайте немного help...
например про функцию rewrite - Creates a new file and opens it.

вот небольшой пример, как просили:
var
f: textfile;
s: string;
begin
assignFile(r, 'd:\myfile.txt');
FileMode := 0; //только чтение
reset(F);
readln(f, s);
closeFile(F);
end;

а ещё почитайте про FileMode и его возможные значения...
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336160
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Читать я из без параметров могу, а вот запись, а хелп читал, там мало информации, если знаешь как записывать, то подскажи.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336312
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну хорошо а кто подскажет как написать всплывающую посказку для кнопки
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336316
Adony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hint:='Подсказка', ShowHint:=True
??
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336328
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДА а свойство визибле я и не заметил, СПАСИБО
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336506
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну может кто-нибудь знает как изменить системный файл, чтобы операционка не ругалась.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336511
SАSH2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм... текстовый файл

Код: plaintext
var f : file of text;
Почему такая конструкция не канает в делфе?
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336561
Андрей Бабенко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Неужели непонятно, что если файл открыт каким-то приложением с режимом
fmShareDenyWrite, то ничего у тебя не получится в него записать, или если
fmShareExclusive, то даже прочитать...
и вообще, поделись своей тайной, зачем тебе это надо? :-)
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336568
Rostyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2SASH
Так заканает:
Код: plaintext
var f: TextFile;
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336615
SАSH2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Rostyk: Но ведь смысл тот же?
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336648
Rostyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SASH2 писал: Но ведь смысл тот же?
С Вашей точки зрения - да, с точки зрения компилятора - нет.

Возможно, в ближайшем будущем мы не будем писать программы, стуча по клаве и гоняя маус, а появится умная-преумная среда разработки, которой достаточно будет сказать, вальяжно развалившись к кресле: "А ну ка, забацай мне по царскому велению, по моему хотению, железяка хр..нова, прогу, да чтобы то делала да это, да таким способом да с таковым извратом да побыстрее." Но это будет потом. А сейчас надо синтаксис учить, Help читать да мозоли на пальцах натирать...
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32336807
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Неужели непонятно, что если файл открыт каким-то приложением с режимом >fmShareDenyWrite, то ничего у тебя не получится в него записать, или если
>fmShareExclusive, то даже прочитать...
>и вообще, поделись своей тайной, зачем тебе это надо? :-)

Выше сказанное мне не понятно.Растолкуй не много.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32337744
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто что знал, то и сказал
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32337763
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Прои помощи разных флажков можно наложить ограничения на файл таким образом, что никто больше несможет не только туда писать, но и читать.
А выше просто приведены такие флажки :)
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32337904
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это понятно, мне не понятно что и как их применять для текстового файла?
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32337916
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вам не нужно ничего применять.
Доступ для Вас уже закрыт судя по всему и с прикладного уровня Вы туда не пролезете.
Вы бы описали полностью задачу. Советы толковее были бы :)
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32337973
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я создал текстовый файл и определил его как системный. а теперь ос не допускает к нему.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32338000
SiDen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну так снимите флаги и запишите... а затем назад выставьте
например так

FileSetAttr('c:\a.txt', 0);
assignfile(f,'c:\a.txt');
{$I-}
rewrite(f);
{$I+}
FileSetAttr('c:\a.txt', faReadOnly or faSysFile);
i:=IOResult;
if(i<>0)then
begin
showmessage(inttostr(i));
end
else
begin
try
writeln(f,'a');
except
end;
try
closefile(f);
except
end;
end;
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32338007
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Завтра попробую
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32338874
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто что знает, есть еще идеи.
...
Рейтинг: 0 / 0
Доступ к тестовому файлу являющийся системным
    #32338883
Valdemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поставлю вопрос в другом ракурсе, КАК ОДНОВРЕМЕННО ЧИТАТЬ ИЗ ФАЙЛА И ЗАПИСЫВАТЬ. Задача такова, необходимо найти запись в файле и изменить ее значение.
...
Рейтинг: 0 / 0
22 сообщений из 22, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Доступ к тестовому файлу являющийся системным
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]