Передача символа другому окну

[dimonbest]

Есть идея сделать аналог Punto Switcher.
Как передать символ полю, в котором я в данный момент печатаю?
Пробовал так:

  acform,fild: hwnd;
.....
    acform:=getactivewindow;
    fild:=GetWindow(acform,GW_CHILD);
   SendMessage(fild,WM_SETTEXT,0,LongInt(PChar('f')));

Не работает... что я делаю не так?

[Stilet]

WM_SETTEXT

Это сообщение посылается для смены заголовка или текстов в Эдитах
Тебе видимо нужно WM_CHAR

[dimonbest]

Так тоже не работает...

[Ntlegend]

а ты попробуй просто отлавливать нажатия клавишь в системе.. просто постаь хук на клавиатуру..

[BOBAH13]

var
  Wnd: HWND;
  Len: Integer;
  Buf: PWChar;
  C: Char;
begin
  // Wnd - your window
  // C - your character
  Len := GetWindowTextLengthW(Wnd) + 1;
  GetMem(Buf, (Len + 1) * SizeOf(WChar));
  if (Len > 1) then
    GetWindowTextW(Wnd, Buf, Len - 1);
  // adding C into the end of Buf
  PWChar(Integer(Buf) + (Len - 1) * SizeOf(WChar))^ := C;
  // Set window's text
  SetWindowTextW(Wnd, Buf);
end;

[dimonbest]

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

а ты попробуй просто отлавливать нажатия клавишь в системе.. просто постаь хук на клавиатуру..

Это для меня слишком сложно...

to BOBAH13 Не работает, сделал так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Wnd: HWND;
  Len: Integer;
  Buf: PWChar;
  C: Char;
begin
  // Wnd - your window
  // C - your character
  wnd:=getactivewindow;
  Len := GetWindowTextLengthW(Wnd) + 1;
  GetMem(Buf, (Len + 1) * SizeOf(WChar));
  if (Len > 1) then
    GetWindowTextW(Wnd, Buf, Len - 1);
  // adding C into the end of Buf
  PWChar(Integer(Buf) + (Len - 1) * SizeOf(WChar))^ := 'C';
  // Set window's text
  SetWindowTextW(Wnd, Buf);
end;

[BOBAH13]

Ну для начала... проверьте что за окно Wnd := GetActiveWindow; потом попробуйте перед SetWindowTextW вызвать MessageBoxW(0, Buf, '', 0); и что он вам покажет (должен показать текст окна активного, и + ваш символ)

И еще, "не работает" - это не проблема, что не работает ?

[dimonbest]

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

Ну для начала... проверьте что за окно Wnd := GetActiveWindow;

А как это сделать?
Поставил MessageBoxW(0, Buf, '', 0);
В переменной Buf какая то чепуха (не тот текст который в активном окне).
Может неправильно нашел активное окно?

[rangel]

var
wnd,wnd2: HWND;
 m:integer;

begin
wnd := FindWindow(nil,'Заголовок окна');
if wnd <> 0 then
begin
//Потихоньку переходим к нужному полю
//Для определения нужного поля используйте
//программу WinSpector Spy
     wnd := FindWindowEx(wnd, 0,'GG_SplitterWindow', nil); 
     wnd := FindWindowEx(wnd, 0,'GG_SplitterWindow', nil);
     wnd := FindWindowEx(wnd, 0,'GG_SWITCHVIEW', nil);
     wnd := FindWindowEx(wnd, 0,'#32770', nil);
     wnd2 := FindWindowEx(wnd, 0,'RichEdit20W', nil);
//Это пример я нашел нужное поле
//ниже отсылаем тому полю которое мы нашли текст из Memo1
     for m:=0 to Length(Memo1.Text)+1 do begin
       SendMessage(wnd2, WM_CHAR, Word(Memo1.Text[m]), 0);
     end;


end;
end;

Писал сам взял код из исходников моей прожки)

Так же вот что то вроде пунто свичер, делал сам
http://dump.ru/file/2440969
Если посмотрите если нужны исходники могу выложить
Суть программы в том что ты печатаешь текст не смотря на монитор потом смотришь и видишь
вместо
привет
ghbdtn
выделяешь ghbdtn нажимаешь ctrl-r он копирует текст, вставляет в себя изменяет его на привет, и возращяет окну привет тем самым заменяя ghbdtn
также там ctrl-t транслит в рус переделывает)
С программой есть 2 файла в одном раскладка клавы например менять с й-q во второй например менять с t-т)

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

а ты попробуй просто отлавливать нажатия клавишь в системе.. просто постаь хук на клавиатуру..

ну вот пример)

[dimonbest]

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

Писал сам взял код из исходников моей прожки)

Не работает. Написал так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd,wnd2: HWND;
 m:integer;
begin
wnd := FindWindow(nil,'AkelPad');
if wnd <> 0 then
begin
//Потихоньку переходим к нужному полю
//Для определения нужного поля используйте
//программу WinSpector Spy
     wnd := FindWindowEx(wnd, 0,'GG_SplitterWindow', nil);
     wnd := FindWindowEx(wnd, 0,'GG_SplitterWindow', nil);
     wnd := FindWindowEx(wnd, 0,'GG_SWITCHVIEW', nil);
     wnd := FindWindowEx(wnd, 0,'#32770', nil);
     wnd2 := FindWindowEx(wnd, 0,'RichEdit20W', nil);
//Это пример я нашел нужное поле
//ниже отсылаем тому полю которое мы нашли текст из Memo1
     for m:=0 to Length(Memo1.Text)+1 do begin
       SendMessage(wnd2, WM_CHAR, Word(Memo1.Text[m]), 0);
     end;
end;
end;

Запустил AkelPad, таймер... а в нем ничего тне появляется... что я делаю не так?