[lmikle]

Кстати у меня был еще вопрос по поводу PostMessage. По какой то неизвестной мне причине через PostMessage не передается ничего, а вот SendMessage работает. Приложение стороннее, точнее это 3d приложение, игра. Может быть Вы знаете почему?

Потому что PostMessage просто вбрасывает сообщения в очередь и тут же возвращается, а SendMessage ждет, когда посланное сообщение будет обработано.

просто слишком громостский код получится.

Ну напиши себе такую функцию и используй ее:

Код:

procedure SendKeys(AHandle : THandle; AKeys : String);
var
  I : Integer;
begin
  for I := 1 To Length(AKeys) Do
    begin
      SendMessage(h2,WM_KEYDOWN,Ord(AKeys[i]),0);
      SendMessage(h2,WM_KEYUP,Ord(AKeys[i]),0);
    end;
end;

Usage:

Код:

SendKeys(h2,'STOP');

PS. Если надо посылать не буквенно-цифровые клавиши, то придется попотеть, но тоже решаемо.