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

[BuT@JL]

Всем привет, у меня тут возникла проблема, SendMessage вместо текста передает иероглефы. Например если использую код вот такой

SendMessage(Hand, MY_MESSAGE, 0, DWORD(PChar('Привет')));

то текст доходит нормально, а если передаю paramstr

SendMessage(Hand, MY_MESSAGE, 0, DWORD(PChar(Paramstr(1))));

то приходят иероглефы. Кто знает как справится с этой проблемой помогите пожалуста.

[ArtGrek]

var
  cmd : string;
  i : Integer;

begin
  // Перед выполнением этого кода, используйте опцию меню Run/parameters
  // для установки следующих параметров командной строки: -parm1 -parm2

  // Показ этих параметров - обратите внимание, что 0-ой параметр это
  // выполняемая команда в Windows
  for i := 0 to ParamCount do
    ShowMessage('Параметр '+IntToStr(i)+' = '+ParamStr(i));
end;

Параметр 0 = C:\PROGRAM FILES\BORLAND\DELPHI7\PROJECTS\PROJ ECT1.EXE
Параметр 1 = -parm1
Параметр 2 = -parm2

[BuT@JL]

ArtGrek да это я знал. проблема то в другом

[Пепел Феникса]

попробуйте PAnsiChar использовать.
(во втором случае сначало к ANSIString надо приводить, потом к PAnsiChar)

[BuT@JL]

Пепел Феникса не вышло, тоже самое получается

[ArtGrek]

a
LongInt(PChar(Paramstr(1))));
?

[veniside]

Сообщение от BuT@JL

SendMessage(Hand, MY_MESSAGE, 0, DWORD(PChar(Paramstr(1))));

А параметр точно есть?

[SERG1980]

SendMessage(Hand, MY_MESSAGE, 0,LParam(PChar(Paramstr(1))));

или

SendMessage(Hand,WM_SETTEXT, 0,LParam(PChar(Paramstr(1))));

[GunSmoker]

Покажи обработчик MY_MESSAGE и пример "иероглифов". И как ты опознал, что там "иероглифы".

...и кому принадлежит окно Hand - тебе или нет. И если тебе, то не второму ли экземпляру.

[BuT@JL]

ArtGrek так тоже не получается

veniside точно

SERG1980 SendMessage(Hand, MY_MESSAGE, 0,LParam(PChar(Paramstr(1)))); Приходит с иероглефами

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

GunSmoker он у меня записан в как константа

const
MY_MESSAGE = WM_USER + 4242;