const
KEYEVENTF_KEYDOWNUP = $FF;
function ForceForegroundWindow(hwnd: THandle): Boolean;
const
SPI_GETFOREGROUNDLOCKTIMEOUT = $2000;
SPI_SETFOREGROUNDLOCKTIMEOUT = $2001;
var
ForegroundThreadID: DWORD;
ThisThreadID: DWORD;
timeout: DWORD;
begin
if IsIconic(hwnd)
then ShowWindow(hwnd, SW_RESTORE);
if GetForegroundWindow = hwnd
then Result := True
else
begin
// Windows 98/2000 doesn't want to foreground a window when some other
// window has keyboard focus
if ((Win32Platform = VER_PLATFORM_WIN32_NT)
and (Win32MajorVersion > 4))
or
((Win32Platform = VER_PLATFORM_WIN32_WINDOWS)
and
((Win32MajorVersion > 4)
or ((Win32MajorVersion = 4)
and
(Win32MinorVersion > 0))))
then
begin
// Code from Karl E. Peterson, [url]www.mvps.org/vb/sample.htm[/url]
// Converted to Delphi by Ray Lischner
// Published in The Delphi Magazine 55, page 16
Result := False;
ForegroundThreadID := GetWindowThreadProcessID(GetForegroundWindow,
nil);
ThisThreadID := GetWindowThreadPRocessId(hwnd,
nil);
if AttachThreadInput(ThisThreadID, ForegroundThreadID, True)
then
begin
BringWindowToTop(hwnd);
// IE 5.5 related hack
SetForegroundWindow(hwnd);
AttachThreadInput(ThisThreadID, ForegroundThreadID, False);
Result := (GetForegroundWindow = hwnd);
end;
if not Result
then
begin
// Code by Daniel P. Stasinski
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, 0, @timeout, 0);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(0),
SPIF_SENDCHANGE);
BringWindowToTop(hwnd);
// IE 5.5 related hack
SetForegroundWindow(hWnd);
SystemParametersInfo(SPI_SETFOREGROUNDLOCKTIMEOUT, 0, TObject(timeout), SPIF_SENDCHANGE);
end;
end
else
begin
BringWindowToTop(hwnd);
// IE 5.5 related hack
SetForegroundWindow(hwnd);
end;
Result := (GetForegroundWindow = hwnd);
end;
end;
procedure SimulateKeystroke( bVK, bScan : byte; wFlags, wExtraInfo : DWORD);
const
KEYEVENTF_KEYDOWN = 0;
//KEYEVENTF_KEYUP = 2; // windows.pas
var
ExtraInfo : Word;
begin
//bScan := Lo(MapVirtualKey(bVK,0));
if wExtraInfo = KEYEVENTF_KEYDOWNUP
then
begin
ExtraInfo := 0;
keybd_event(bVK, bScan, KEYEVENTF_KEYDOWN, ExtraInfo);
keybd_event(bVK, bScan, KEYEVENTF_KEYUP , ExtraInfo);
end
else
keybd_event(bVK, bScan, wFlags, wExtraInfo);
end;
procedure SendKeyTo( ClassName:
String; bVK: Byte);
var
hWnd, hSavedWnd : hWnd;
begin
hWnd:= FindWindowEx( 0,0,PChar( ClassName ),
nil );
if Not (hWnd <> 0)
then
exit;
hSavedWnd := GetForeGroundWindow;
//SetForegroundWindow( hWnd );
ForceForegroundWindow( hWnd );
Application.ProcessMessages;
try
SimulateKeystroke( bVK, 0, 0, KEYEVENTF_KEYDOWNUP );
finally
Application.ProcessMessages;
//SetForegroundWindow( hSavedWnd );
ForceForegroundWindow( hSavedWnd );
end;
end;
... SendKeyTo( '
????', VK_Right );