Пример работы с MailSlot

Советы » E-mail » Пример работы с MailSlot

procedure

TForm1.Button1Click(Sender: TObject); var

hSlot1: THandle; lpszSlotName: LPSTR; begin

lpszSlotName := '\.mailslotsample_mailslot'; hslot1 := CreateMailslot(lpszSlotName, 0, MAILSLOT_WAIT_FOREVER, nil

); // тут поидее должна быть обработка ошибки, если не удалось создать // Далее работаем // с ним, как с файлом т.е.WriteFile и т.д. CloseHandle(hSlot1); //а кады закрываем за собой дескриптор, // то память чистится т.е.все, что мы туда поназаписали удаляется end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com