为什么一执行CreateFileMapping就出错

[yangw79]

PShareData = ^TSharedData;
TSharedData = record
Count :Word;
FileNames:array[1..MaxFileCount] of ShortString;
end;
SharedFile : THandle；
const
SharedFileName = 'Tempest Software.Threaditor shared file';

try
SharedFile := CreateFileMapping($FFFFFFFF,nil,Page_ReadWrite,
0,Sizeof(TSharedData),SharedFileName);
finally
MessageDlg('Error',mtError,[mbOK],0);//这个始终出现
end;

[beyondtkl]

try

except
ShowMessage(IntToStr(GetLastError));
end;

not finally

[劣势]

是的呀，
try
finally
//这里的任何语句都会执行
end;
这一模板语句的意思无论如何你都要执行finally中的语句，它的异常保护主要是为了一些如对象释放、或一定要执行的语句才设的，所以要搞清楚你的异常保护需要怎样做，except是在出现异常的时候及时保护，这样的好处是可以屏蔽一些错误信息

[yangw79]

SharedData.Count := 0; 不好意思 错误不是那 是一执行到这就出错
type
PShareData = ^TSharedData;
TSharedData = record
Count :Word;
FileNames:array[1..4] of ShortString;
end;
const
MaxFileSize = 32768;
MaxFileCount = MaxFileSize div Sizeof(Shortstring);
SharedFileName = 'Tempest Software.Threaditor shared file';

我检查了 SharedData.Count 不能访问 我不晓得是什么意思