Try this to enable or diable Alt + Tab nad solve screensaver problems:
Code:
...
var s_alttab_disabled: boolean;
procedure WIN_DisableAltTab;
var
old: Boolean;
begin
if s_alttab_disabled then
Exit;
if Win32Platform = VER_PLATFORM_WIN32_NT then
RegisterHotKey(0, 0, MOD_ALT, VK_TAB)
else
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @old, 0);
s_alttab_disabled := True;
end;
procedure WIN_EnableAltTab;
var
old: Boolean;
begin
if s_alttab_disabled then
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
UnregisterHotKey(0, 0)
else
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @old, 0);
s_alttab_disabled := False;
end;
end;
....
initialization
s_alttab_disabled := false;
end.
Bookmarks