K
kittycat
Unregistered / Unconfirmed
GUEST, unregistred user!
type
Tmapinfo=record
info1:integer;
info2:string[255];
end;
var mapinfo:Tmapinfo
procedure TForm1.Button1Click(Sender: TObject);
var
hmap:=Thandle;
pinfo
oint;
begin
mapinfo.info1:=1;
mapinfo.info2:='abc';
hMap := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE or SEC_COMMIT,
0, MapSize, 'mapfilename');
pinfo:=mapviewoffile(hMap,FILE_MAP_ALL_ACCESS,0,0,MapSize);
end;
建立“映射文件”之后,如何在另外一个程序中写入mapinfo(若写入的数据已经在文件中,则提示错误!)
,如何取得“映射文件”里面的最后一笔数据?谢谢大家!
Tmapinfo=record
info1:integer;
info2:string[255];
end;
var mapinfo:Tmapinfo
procedure TForm1.Button1Click(Sender: TObject);
var
hmap:=Thandle;
pinfo
![Stick Out Tongue :p :p](https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f61b.png)
begin
mapinfo.info1:=1;
mapinfo.info2:='abc';
hMap := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE or SEC_COMMIT,
0, MapSize, 'mapfilename');
pinfo:=mapviewoffile(hMap,FILE_MAP_ALL_ACCESS,0,0,MapSize);
end;
建立“映射文件”之后,如何在另外一个程序中写入mapinfo(若写入的数据已经在文件中,则提示错误!)
,如何取得“映射文件”里面的最后一笔数据?谢谢大家!