Добрый день!
При запуске приложения определяю контрольную сумму файла DLL, после чего первое приложение начинает использовать DLL.
При запуске второго экземпляра программы второй экземпляр начинает определять контрольную сумму этой-же DLL. Выскакивает ошибка I/O error 32.
Пробовал проверять занятость файла, но при AssignFile(AFile,AFileName); во втором экземпляре выскакивает эта-же ошибка.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
procedure TDM1.ActDLLExistsExecute(Sender: TObject); //Проверка наличия DLL из списка
function isFileOpen( var f: File ) : boolean;
begin
with TFileRec(f) do
Result := (Handle<>0) and (Mode<>fmClosed);
end;
var fn: string; Ffs: File;
begin
QDLLFiles.Open;
while not QDLLFiles.Eof do
begin
fn:=DM1.QDLLFilesGoal.AsString+DM1.QDLLFilesName.AsString;
if not FileExists(fn) then begin
DM1.QDLLFilesBODY.SaveToFile(fn);
end
else begin
AssignFile(Ffs,fn); //Здесь во втором экземпляре ошибка I/O error 32
Reset(Ffs);
if isFileOpen(Ffs) then //Если этой строчки нет, то ошибка в GetFileCRC(fn), поскольку там тоже есть AssignFile
if GetFileCRC(fn)<>DM1.QDLLFilesCRC.Value then begin
DM1.QDLLFilesBODY.SaveToFile(fn);
end;
CloseFile(Ffs);
end;
QDLLFiles.Next;
end;
QDLLFiles.Close;
end;
