Сабж.

Цитата(Vit @ 02.7.2002, 19:25)

Сабж.

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

А ежели я не буду закрывать Handle, после закрытия программы слот так и останется в памяти, или будет насильно уничтожен?