отправляю:
---------------------------------------------------
var
 MemHnd : HWND;
 AText: PChar;

begin
....
....
....
       AText := 'Vasi';
       SendMessage(HWND_BROADCAST, WM_OURMESSAGE, Length(AText) * SizeOf(Char), LParam(@AText));
       sleep(500);
....
....

----------------------------------------------

принимаю:

-----------------------------------------------

procedure TSDIAppForm.DefaultHandler(var Message);
var
  FilenameForOpening: string;
  s: string;
begin
  with TMessage(Message) do
  begin
     if (Msg = WM_OURMESSAGE) then
       begin
             SetLength(FilenameForOpening, WParam div SizeOf(Char));
             p := Ptr(LParam);
             Move(PChar(p^), PChar(FilenameForOpening)^, WParam);
             s := FilenameForOpening; // вот тут "#0#0#0#0" ?????
             s := s + ' ';
       end
....
....
....

initialization
  WM_OURMESSAGE := RegisterWindowMessage('Add_1c+_Server_block');


-------------------------------------------------
туплю уже давно, все примеры из инета перепробовал, нифига не переносит...

может дело в типе мессаге? может пользовательские так не работают?

Ну и как ты обратишься к Чужому адресу???

ППЦ

Адресация то разная.

(1) почитай http://www.delphikingdom.com/asp/answer.asp?IDAnswer=68007

я и сам понимаю проблемму, но не понимаю как у НИХ работает?

LParam(@AText) - адрес (числом, например $FC01FC01) в 1-ом приложении
p := Ptr(LParam);  - адрес (числом, например $FC01FC01) во втором приложении

У них - WCopyData - спец сообщение Винды.

WM_COPYDATA захелпь в Win SDK

GlobalAddAtom()
попробуй

Ты здесь вообще?
Чего ты там такого глобального строгаешь?

(9) строгаю сервер административного запрета запуска 1с

(4) ну дак ты делай как там, а не как сам придумал :)))
намёк
CDS:TCopyDataStruct

(10) Да вы программист (типа - ответ есть, он верен, но абсолютно не понятен). :-)

(10) Хммм... А расскажи принцип действия!

(13) здесь всё написано
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=68007

(13) я только для своего собственого стартАпа, сервер будет создавать определенный файл в каталоге с базой и держать на нем блокировку, а стартап не будет давать запустить если такая ситуевина

просто он вместо адреса структуры передает адрес строки

(15) О, ясно! А контроль за запуском через хук?

(17) вот к этому http://www.infostart.ru/projects/2836/ приделываю

обычно для межпроцессового обмена используют отображение файла в память

(19) Ага.
А еще можно UDP/TCP заюзать.
Нафиг этот изврат?
MS дала инструмент
WM_COPYDATA,
так что его не пользовать то?

(15) Еще одна защита?

(18) А чего там за прикол - "в связи с борьбой за лицензионную чистоту"?

(22) В аську!

(23)(22) да нету тут секретов, просто есть некоторые споры, что лезть в процессы 1с нельзя (и тот же 1с++ попадает под эти заморочки), то я не юзаю ничего, что можно расценить как декомпеляция, внедрение кода и т.д.

На самом деле можно использовать ClipBoard или просто глобальную память.
hGlobal=GlobalAlloc(GPTR,Размер);
Pointer=GlobalLock(hGlobal);
CopyMemory(Pointer,НашУказатель,Размер);
GlobalUnLock(Pointer);
SendMessage(ДругоеПриложение,WM_USER,Размер,(LPARAM)hGlobal);

В другом приложении:
Pointer=GlobalLock(lParam);
CopyMemory(НовоеМесто,Pointer,wParam);
GlobalUnLock(Pointer);
GlobalFree(lParam);

Где-то так.

(0) А я через NamedPipes