как послать сообщение используя mailslot [D5, Win95/98]
SONY © (2002-12-15 12:45:00)
конкретному пользователю. Ниже приведенная функция позволяет
отправить сообщение по имени компьютера, а надо посылать используя
имя пользоватля
function Send(str: string):boolean;
var
strMess: string[250];
UserName: array[0..99] of char;
h: THandle;
i: integer;
begin
// открытие канала : MyServer - имя сервера
// (\\.\\mailslot\xxx - монитор работает на этом же ПК)
// xxx - имя канала
if FServerName = "" then FServerName := ".\";
h:=CreateFile( PChar("\\" + FServerName + "\mailslot\" +
FMailSlotName), GENERIC_WRITE,
FILE_SHARE_READ,nil,OPEN_EXISTING, 0, 0);
if h <> INVALID_HANDLE_VALUE then
begin
strMess := str;
// передача текста ошибки (запись в канал и закрытие канала)
WriteFile(h,strMess,Length(strMess)+1,DWORD(i),nil);
CloseHandle(h);
end;
Result := h <> INVALID_HANDLE_VALUE;
end;
SONY (2002-12-15 12:58:00) [1]
???
Наверх 
ЧАТ |
Орешник |
|
