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

•  DeLiKaTeS Tetris (Тетрис)  3 488

•  TDictionary Custom Sort  5 672

•  Fast Watermark Sources  5 441

•  3D Designer  7 918

•  Sik Screen Capture  5 740

•  Patch Maker  6 224

•  Айболит (remote control)  6 235

•  ListBox Drag & Drop  5 109

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

•  Графические эффекты  6 411

•  Рисование по маске  5 466

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

•  Canvas Drawing  4 999

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

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

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

•  Paint on Shape  2 244

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

•  Головоломка Paletto  2 441

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

•  Пазл Numbrix  2 114

•  Заборы и коммивояжеры  2 754

•  Игра HIP  1 735

•  Игра Go (Го)  1 651

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

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

•  Генератор лабиринта  2 138

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

•  HEX View  2 099

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

 
скрыть


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

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



Delphi Sources

Связь между процессами при помощи 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-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте