Не работает моя функция!

[VintProg]

procedure CopyStringToClipboard(s: string);
var
  hg: THandle;
  P: PChar;
begin
  hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
  P:=GlobalLock(hg);
  StrPCopy(P, s);
  GlobalUnlock(hg);
  OpenClipboard(Application.Handle);
  SetClipboardData(CF_TEXT, hg);
  CloseClipboard;
  GlobalFree(hg);
end;

procedure PostString(S : String);
begin
  CopyStringToClipboard(s);
  keybd_event($11, 0, 0, 0);
  keybd_event(Ord('V'), 0, 0, 0);
  keybd_event($11, 0,  KEYEVENTF_KEYUP, 0);
  keybd_event(Ord('V'), 0,  KEYEVENTF_KEYUP, 0);
end;

PostString не встовляет строку из буфера, подскажите в чем проблема???

[lux16]

Странно, вот так вот у меня все работает

PostString( 'asw' );

Потом просто нажимаешь CTRL + V и все вставляет

[VintProg]

а мне надо чтобы он сам нажимал...

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

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
может так проще?
и опчть тут Ord('V'), вы уверены что виртуальный код клавиши и код символа 'V' это одно и тоже?

[VintProg]

PostMessage(WiniTunes,WM_PASTE,0,0) ;

Не работает!!! Не че не вставляет.

[VintProg]

Пипец, куча мастеров и фик кто поможет!

[Аватар]

 hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
  P:=GlobalLock(hg);
  StrPCopy(P, s);
  GlobalUnlock(hg);
  OpenClipboard(Application.Handle);
  SetClipboardData(CF_TEXT, hg);
  CloseClipboard;
  GlobalFree(hg);
...
  PostMessage(Edit1.Handle,WM_PASTE,0,0);

Вставка в Edit1