Пример работы с MailSlot
Материал из DRKB
Пример работы с MailSlot[править | править код]
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;
Author: p0s0l
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 02081