Ошибка в пр-ме: ...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

FDir:=WDir+"\filename.txt";
AssignFile(F,FDir);

if not FileExists(FDir) then
begin

+ ExcludeTrailingBackslsh для уверенности

Ошибка в пр-ме: ...File access denied... Найти похожие ветки