[mav_c]

Сообщение от KOOL

Как через WinAPI получить текстовые данные? Сообщение должно обрабатываться в программе и результат присваиваться сообщению. Типа так:

Код:

//код в основной проге
procedure TКЛАСС_ФОРМЫ.WMMessages(var Msg: TMessage);
begin
  Case Msg.WParam Of
    STRING1QUERY: Msg.Result := НЕКАЯ_ФУНКЦИЯ_КОТОРАЯ_КОНВЕРТИРУЕТ_СТРОКУ_В_Integer(String1);
    STRINGTEST: Msg.Result := ФУНКЦИЯ('Test');
  End;
end;
//и код в управляющей проге
function TPlayerControl.GetString(Msg: Cardinal; wParam: integer; lParam:
  integer; var value: PChar): boolean;
var
  Handle: HWND;
begin
  value := '';
  Handle := FindWindow(PChar('TКЛАСС_ФОРМЫ'), nil);
  if Handle <> 0 then
  begin
    value := ФУНКЦИЯ_КОТОРАЯ_КОНВЕРТИРУЕТ_РЕЗУЛЬТАТ_В_СТРОКУ(SendMessage(Handle, Msg, wParam, lParam));
    Result := Value<>'';
  end
  else
    Result := false;
end;

Кто-нить знает какие функции нужны? Я где-то видел уже не могу найти. Или есть другой способ?

А для кого указатели придумали????

Код:

var
 p : PChar;
 i : longint;
begin
 p := GetMemory(200);
 p := 'Hello!';
 i := integer(p);
 ShowMessage(PChar(i));
end;