Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

Отправить сообщение неактивному окну   Найти похожие ветки 

 
НовичОк ©   (2004-10-09 01:57) [0]

Как можно отправить сообщение неактивному окну на примере нажатия клавиш?

Procedure PostKeyEx(hWindow: HWnd; key: Word; Const shift: TShiftState; specialkey: Boolean );
Type
 TBuffers = Array [0..1] of TKeyboardState;
Var
 pKeyBuffers : ^TBuffers;
 lparam: LongInt;
Begin
If IsWindow(hWindow) Then
Begin
  pKeyBuffers := Nil;
  lparam := MakeLong(0, MapVirtualKey(key, 0));
  If specialkey Then lparam := lparam or $1000000;
  New(pKeyBuffers);
  try
   AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessID(hWindow, nil), True);
   GetKeyboardState( pKeyBuffers^[1] );
   FillChar(pKeyBuffers^[0], Sizeof(TKeyboardState), 0);
   If ssShift In shift Then pKeyBuffers^[0][VK_SHIFT] := $80;
   If ssAlt In shift Then
   Begin
     pKeyBuffers^[0][VK_MENU] := $80;
     lparam := lparam or $20000000;
   End;
   If ssCtrl In shift Then pKeyBuffers^[0][VK_CONTROL] := $80;
   If ssLeft In shift Then pKeyBuffers^[0][VK_LBUTTON] := $80;
   If ssRight In shift Then pKeyBuffers^[0][VK_RBUTTON] := $80;
   If ssMiddle In shift Then pKeyBuffers^[0][VK_MBUTTON] := $80;
   SetKeyboardState( pKeyBuffers^[0] );
   If ssAlt In Shift Then
   Begin
     PostMessage( hWindow, WM_SYSKEYDOWN, key, lparam);
     PostMessage( hWindow, WM_SYSKEYUP, key, lparam or $C0000000);
   End
   Else Begin
     PostMessage( hWindow, WM_KEYDOWN, key, lparam);
     PostMessage( hWindow, WM_KEYUP, key, lparam or $C0000000);
   End;
   Application.ProcessMessages;
   Sleep(100);
   SetKeyboardState( pKeyBuffers^[1] );
   AttachThreadInput(GetCurrentThreadId, GetWindowThreadProcessID(hWindow, nil), False);
  finally
    If pKeyBuffers <> Nil Then Dispose( pKeyBuffers );
  End;
End;
End;

procedure TMainForm.Button1Click(Sender: TObject);
begin
 PostKeyEx(findwindow(nil,pchar(prog)), vk_f4, [ssalt], False );
end;


 
BillyJeans   (2004-10-09 13:32) [1]

при отправке сообщения окну нет разницы активно оно или нет...



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
1-1099468552
Hadroran
2004-11-03 10:55
2004.11.21
Строка


1-1099584984
uses-mind.dll
2004-11-04 19:16
2004.11.21
уничтожение динамически созданных объектов


14-1099161093
Alein
2004-10-30 22:31
2004.11.21
Года 2-3 назад это было, не помню...


14-1099520828
Mirror
2004-11-04 01:27
2004.11.21
Куда можно спрятать дату активации проги?


8-1093447044
Anderson
2004-08-25 19:17
2004.11.21
Изменение глубины цвета у TIcon.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский