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

•  TDictionary Custom Sort  1 865

•  Fast Watermark Sources  1 891

•  3D Designer  3 320

•  Sik Screen Capture  2 306

•  Patch Maker  2 484

•  Айболит (remote control)  2 309

•  ListBox Drag & Drop  1 909

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

•  Графические эффекты  2 507

•  Рисование по маске  2 037

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

•  Canvas Drawing  1 596

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

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

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

•  Paint on Shape  914

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

•  Головоломка Paletto  1 111

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

•  Пазл Numbrix  1 032

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

•  Игра HIP  871

•  Игра Go (Го)  830

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

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

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

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

•  HEX View  1 003

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

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

 
скрыть


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-2023 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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