كيفية ارسال بيانات من تطبيق دلفي لاخر من غير لغة؟

[onexite]

PHP كود :

procedure PasteTo(const AHWND: HWND); begin   PostMessage(AHWND, WM_PASTE, 0, 0); end;  var   notepad_hwnd, notepad_edit_hwnd: HWND;  begin   notepad_hwnd := FindWindow(nil, 'Untitled - Notepad');   if notepad_hwnd <> 0 then   begin     notepad_edit_hwnd := FindWindowEx(notepad_hwnd, 0, 'Edit', nil);     if notepad_edit_hwnd <> 0 then       PasteTo(notepad_edit_hwnd);   end; end.