SendMessage вместо текста передает иероглефы

[ArtGrek]

SendMessage(Hand,WM_SETTEXT, 0,LParam(PChar(Paramstr(1)))); Приходит нормально только почему то записывается в заголовок программы

вы пошлаете в чужую программу? можно код где получаете Hand

[BuT@JL]

нет, я посылаю в свою программу, точнее в первую запущенную копию. (Программа запускается несколько раз)

Hand := FindWindow(nil, 'MyProgamm');
if (Hand <> 0 ) then begin
SendMessage(Hand, MY_MESSAGE, 0, DWORD(PChar(Paramstr(1))));
Halt;
end
else
form1.Caption:='MyProgamm';
end;

[ArtGrek]

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

Функция FindWindowEx
(ПоискОкнаУлучшенная) [Не поддерживается в Windows NT]
Функция FindWindowEx отыскивает данные о дескрипторе окна, имя класса и имя окна которого соответствуют определенным строкам. Функция поиска дочерних окон начинается с первого до последнего заданного дочернего окна.
Синтаксис

HWND FindWindowEx
(
HWND hwndParent, // дескриптор родительского окна
HWND hwndChildAfter, // дескриптор дочернего окна
LPCTSTR lpszClass, // указатель имени класса
LPCTSTR lpszWindow // указатель имени окна
);

Параметры
hwndParent
Идентифицирует родительское окно, чьи дочерние окна должны быть найдены. Если hwndParent - ПУСТО (NULL), функция использует окно рабочего стола как родительское окно. Функция ищет среди окон, которые являются дочерними окнами рабочего стола.
hwndChildAfter
Идентифицирует дочернее окно. Поиск начинается со следующего дочернего окна в Z - последовательности. hwndChildAfter должен быть прямое дочернее окно hwndParent, а не простое порожденное окно. Если hwndChildAfter - ПУСТО (NULL), поиск начинается с первого дочернего окна определенного параметром hwndParent. Обратите внимание, что, если и hwndParent и hwndChildAfter - ПУСТО (NULL), функция ищет все окна верхнего уровня.
lpszClass
Указывает на строку с нулевым символом в конце, которая определяет имя класса или - атом, который идентифицирует строку имени класса. Если этот параметр - атом, он должен быть общий атом, созданный предыдущим вызовом к функции GlobalAddAtom. Атом, 16-разрядное значение, в котором должно быть размещено в младшей части слова - lpszClass; старшее слово должно быть нулевое.
lpszWindow
Указывает на строку с нулевым символом в конце, которая определяет имя окна (заголовок окна). Если этот параметр ПУСТО (NULL), имена всех окон соответствующие.
Возвращаемые значения
Если функция завершается успешно, возвращаемое значение - дескриптор окна, которое имеет определенный класс и имена окон. Если функция потерпит неудачу, возвращаемое значение - ПУСТО (NULL). Чтобы получить дополнительные данные об ошибках, вызовите GetLastError.
Смотри также
EnumWindows, FindWindow, GetClassName, GlobalAddAtom
Размещение и совместимость FindWindowEx
Windows NT Да
Win95 Да
Win32s Нет
Импортируемая библиотека user32.lib
Заголовочный файл winuser.h
Unicode Нет
Замечания по платформе Не имеется

[GunSmoker]

BuT@JL, тебя когда спрашивают - в твоих же интересах не игнорировать вопросы.

Посмотри пример как такие вещи делаются правильно.

[BuT@JL]

GunSmoker я не игнорирую, просто не заметил сообщения. Седня уже сил нет разбираться, завтра обязательно посмотрю твою ссылку. Кстати отвечу на твой вопрос, вместо нужного текста иногда вылетают "яяяяяя" или вообще пустые приходят. Иногда вылетает ошибка Access violation at address 00404493 in module 'project1.exe'. Read of address 01849E7C.

ArtGrek спасибо за совет, попробую покопаться в интернете в этом направлении. Самое интересное, когда я использую свой код, и пишу так
Hand := FindWindow(nil, 'MyProgamm');
if (Hand <> 0 ) then begin
SendMessage(Hand, MY_MESSAGE, 0, DWORD(PChar('Привет мир')));
Halt;
end
else
form1.Caption:='MyProgamm';
end;

То текст приходит нормальный

[ArtGrek]

кстати напиши во что именно ты текст посылаеш?

[JTG]

Что-то не то вы делаете :\

Отправка строки:

var data: TCopyDataStruct;

data.dwData := 0;
data.cbData := length(paramstr(1))+1;
data.lpData := PChar(paramstr(1));
SendMessage(wnd, WM_COPYDATA, 0, dword(@data));

Получение:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    procedure onWM_COPYDATA(var msg: TWMCopyData); message WM_COPYDATA;
  end;
.........
procedure TForm1.onWM_COPYDATA(var msg: TWMCopyData);
begin
  Memo1.Lines.Add(PChar(Msg.CopyDataStruct.lpData));
  msg.Result := 1;
end;

DWORD(PChar(Paramstr(1))) - это адрес указателя на строку, и именно адрес придёт в другое приложение вместе с MY_MESSAGE, не сама строка. В другом приложении по этому адресу может быть мусор или вообще невыделенная память, отсюда иероглифы и Access Violation. Для передачи данных между разными процессами используется сообщение WM_COPYDATA.

а SendMessage(Hand,WM_SETTEXT, 0,LParam(PChar(Paramstr(1)))); Приходит нормально только почему то записывается в заголовок программы

Разберитесь с теорией, WM_XXXX это же не от балды придуманные константы, на каждое из сообщений окно реагирует специфическим образом, WM_SETTEXT устанавливает заголовок окна, WM_MOVE двигает и т.п.

[BuT@JL]

JTG Всё заработало . Я понял в чем моя ошибка. Спасибо большое всем кто помогал!!!

[DinoAsm]

А ты случайно не в BorlandPascal исходники набираешь? Если в нём (или в другом консольном компиляторе), то советую открыть исходник в Блокноте и заменить крякозябры на месте кириллицы кириллицой. Потом перекомпилируй.