procedureTForm1.Button1Click(Sender: TObject); var
hSlot1: THandle; lpszSlotName: LPSTR; begin
lpszSlotName := '\.mailslotsample_mailslot'; hslot1 := CreateMailslot(lpszSlotName, 0, MAILSLOT_WAIT_FOREVER, nil
); // тут поидее должна быть обработка ошибки, если не удалось создать // Далее работаем // с ним, как с файлом т.е.WriteFile и т.д. CloseHandle(hSlot1); //а кады закрываем за собой дескриптор, // то память чистится т.е.все, что мы туда поназаписали удаляется end
;