Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
ВнизОшибка в пр-ме: ...File access denied... Найти похожие ветки
← →
hawkins (2004-09-21 16:06) [0]Добрый день! Помогите решить проблему, может кто сталкивался
с такой ошибкой. При запуске программы
вызывается исключение, текст такой:
"... raised exception class EinOutError with message "File access denied".
Текст программы :
program MyProgramm;
uses
Forms,Windows,SysUtils,
Unit2 in "Unit2.pas" {Form2},
...
var
F:TextFile;
WDir:array [0..255] of char;
FDir:string;
begin
GetWindowsDirectory(WDir,255);
FDir:=WDir+"\filename.txt";
AssignFile(F,WDir);
if not FileExists(FDir) then
begin
ReWrite(F); //---- здесь ошибка-----
CloseFile(F);
end
else begin
...
end;
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.Run;
end;
end.
← →
TUser © (2004-09-21 16:07) [1]FDir:=WDir+"\filename.txt";
AssignFile(F,FDir);
if not FileExists(FDir) then
begin
← →
TUser © (2004-09-21 16:08) [2]FDir:=WDir+"\filename.txt";
AssignFile(F,FDir);
if not FileExists(FDir) then
begin
+ ExcludeTrailingBackslsh для уверенности
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c