Hallo Sascha,
versuche es mal so:
Delphi-Quellcode:
if FExclusiveStream <>
nil then
FreeAndNil(FExclusiveStream);
try
FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);
except
on exception do
Showmessage('
Datei wird von einem anderen Benutzer bearbeitet');
end;
FExclusiveStream.
Read(row, SizeOf(Word));
FExclusiveStream.
Read(col, SizeOf(Word));
Wenn Du die
Exception noch besser spezifizieren kannst:
Delphi-Quellcode:
if FExclusiveStream <> nil then
FreeAndNil(FExclusiveStream);
try
FExclusiveStream:= TFileStream.Create(FileListbox1.FileName, fmShareExclusive);
except
on E: .... do
Showmessage('Datei wird von einem anderen Benutzer bearbeitet');
end;
FExclusiveStream.Read(row, SizeOf(Word));
FExclusiveStream.Read(col, SizeOf(Word));
Grüße
Klaus
[edit] Rechtschreibung verbessert