Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

как послать сообщение используя mailslot   Найти похожие ветки 

 
SONY   (2002-12-15 12:45) [0]

конкретному пользователю. Ниже приведенная функция позволяет отправить сообщение по имени компьютера, а надо посылать используя имя пользоватля

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) [1]

???



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.027 c
14-86136
Ежик
2002-12-05 16:27
2002.12.26
Встреча мастеров Delphi в Эстонии.


1-86000
Nimda
2002-12-16 12:52
2002.12.26
Свой TrackBar


1-85975
AFrolov
2002-12-15 10:12
2002.12.26
Как узнать GUID объекта который лежит например в .exe ?


8-86045
Дельфятник
2002-09-10 13:39
2002.12.26
Как перекрасить в картинке все точки белого цвета в заданный?


1-85933
Дмитрий Е.
2002-12-17 12:41
2002.12.26
Создание окон одного класса в приложении





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский