Недавно добавленные исходники

•  TDictionary Custom Sort  979

•  Fast Watermark Sources  1 320

•  3D Designer  2 135

•  Sik Screen Capture  1 784

•  Patch Maker  1 859

•  Айболит (remote control)  1 678

•  ListBox Drag & Drop  1 388

•  Доска для игры Реверси  35 252

•  Графические эффекты  1 630

•  Рисование по маске  1 566

•  Перетаскивание изображений  1 244

•  Canvas Drawing  1 160

•  Рисование Луны  999

•  Поворот изображения  919

•  Рисование стержней  959

•  Paint on Shape  623

•  Генератор кроссвордов  923

•  Головоломка Paletto  855

•  Теорема Монжа об окружностях  1 045

•  Пазл Numbrix  735

•  Заборы и коммивояжеры  1 023

•  Игра HIP  669

•  Игра Go (Го)  632

•  Симулятор лифта  676

•  Программа укладки плитки  609

•  Генератор лабиринта  681

•  Проверка числового ввода  653

•  HEX View  735

•  Физический маятник  633

•  Задача коммивояжера  694

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Связь между процессами при помощи WM_COPYDATA



Оформил: DeeCo

// Sender: Send data 
// Sender: Daten schicken 

procedure TForm1.Button1Click(Sender: TObject);
 var
   aCopyData: TCopyDataStruct;
   hTargetWnd: HWND;
 begin
   with aCopyData do
   begin
     dwData := 0;
     cbData := StrLen(PChar(Edit1.Text)) + 1;
     lpData := PChar(Edit1.Text)
   end;
   // Search window by the window title 
  // Fenster anhand des Titelzeilentext suchen 
  hTargetWnd := FindWindowEx(0, 0, nil, PChar('WM_COPYDATA-Receiver'));
   if hTargetWnd <> 0 then
     SendMessage(hTargetWnd, WM_COPYDATA, Longint(Handle), Longint(@aCopyData))
   else
     ShowMessage('No Recipient found!');
 end;


 (* -------------------------------------------------------------------- *)


 // Recipient - Receive data 
// Empfanger - Daten empfangen 

type
   TForm1 = class(TForm)
     private
     { Private declarations }
     procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
   public
     { Public declarations }
   end;

 procedure TForm1.WMCopyData(var Msg: TWMCopyData);
 var
   sText: array[0..99] of Char;
 begin
   // generate text from parameter 
  // anzuzeigenden Text aus den Parametern generieren 
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
   // write received text 
  // Empfangenen Text ausgeben 
  label1.Caption := sText;
 end;




Похожие по теме исходники

Сообщения между процессами Windows

Примеры работы с БД

Примеры оформления DBGrid

Пример использования DBGrid

 

База предприятий и менеджеров 0.99

Консольное DOS приложение

Работа с принтером

Локализация приложений

 



Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram