Delphi. Трюки и эффекты

Создание формы приложения

procedure TMappingFile.FormCreate(Sender: TObject);

begin

//Создаем проецируемый файл с именем FileMemory

//и передаем полученный в результате описатель

//в глобальную переменную hFileMapObj

hFileMapObj := CreateFileMapping(MAXDWORD,Nil,PAGE_READWRITE,

0,4,’FileMemory’);

If (hFileMapObj = 0) Then

ShowMessage(\'Не могу создать проецируемый файл!\')

Else

//Подключаем файл к адресному пространству

//и получаем начальный адрес данных

lpBaseAddress := MapViewOfFile(hFileMapObj,FILE_MAP_WRITE,

0,0,0);

If lpBaseAddress = Nil Then

ShowMessage(\'Не могу подключить проецируемый файл!\');

end;