Пример работы с MailSlot |
Previous Top Next |
Code: |
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; |
Автор ответа: Baa
©Drkb::02080
Взято с Vingrad.ru http://forum.vingrad.ru
WinAPI->Windows->Процессы...->Пример работы с MailSlot
Тут Baa немного ошибся. Он написал открытие мэйлслота в C++ стиле:
lpszSlotName := '\\\\.\\mailslot\\sample_mailslot';
а надо так:
lpszSlotName := '\\.\mailslot\sample_mailslot';
т.е. вместо \\ надо просто \
©Drkb::02081
Автор: p0s0l
Взято с Vingrad.ru http://forum.vingrad.ru