Пример работы с 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