VPF::Как узнать работает ли в данное время Screen Saver

Vit

Дата 15.9.2005, 02:37 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

Сабж!

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Girder

Дата 15.9.2005, 06:58 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

1. Через компонент TFileMon
Отлов запуска *.scr из дирректории WinRoot/System32
(В NT запускает Winlogon.exe)

2. Через окна.
В самом верху Z дерева находяться окна с именами классов: WindowsScreenSaverClass, LOGON

3. Через Хук на DefScreenSaverProc
Если есть активность... SS работает.

--------------------

Как слышим, так и пишим.
Истина где-то там...

Rrader

Дата 15.9.2005, 07:13 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Код


Function IsScreenSaverRunning: Boolean;
Begin
  SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @Result, 0);
End;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Girder

Дата 15.9.2005, 09:00 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Rrader ну енто слишком просто... smile

PS: Только вот одно но:

Цитата

Windows NT and Windows 95: This value is not supported.

Это сообщение отредактировал(а) Girder - 15.9.2005, 09:13

--------------------

Как слышим, так и пишим.
Истина где-то там...

Rrader

Дата 15.9.2005, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Эт я из одного фака выдрал... smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

Voyager

Дата 23.9.2005, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

Вот сделал примерчик, возможно кому-то еще пригодится smile

Проверял все в Windows Server 2003.

Код


program IsScreenSaverRunning;
{
#########################################
# Пример программы, которая проверяет,  #
# запущена ли заставка                  #
# Тестировалось на Windows Server 2003  #
# Written by Voyager  [email protected] #
# http:\\ofp.ussr-online.net\naseorujie #
#########################################
}

uses
  Windows, SysUtils, tlhelp32;

const
 WM_TIMER = $0113;

var
 mMsg: TMsg;
 scrPath:string;

function GetRegistryString(const RootKey: HKEY; const Key, Name: String): String;
var
 Handle: HKEY;
 DataType, DataSize: DWORD;
begin
 if RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_QUERY_VALUE, Handle) <> ERROR_SUCCESS then Exit;
 if (RegQueryValueEx(Handle, PChar(Name), nil, @DataType, nil, @DataSize) <> ERROR_SUCCESS)
  or (DataType <> REG_SZ) then begin
   RegCloseKey(Handle);
   Exit;
  end;
 SetString(Result, nil, DataSize-1);
 RegQueryValueEx(Handle, PChar(Name), nil, @DataType, PByte(@Result[1]), @DataSize);
 RegCloseKey(Handle);
end;

Function IsRunning(FName:string):boolean;
var
    c:Cardinal;
    pe:TProcessEntry32;
begin
    Result:=false;
    c:=CreateToolHelp32Snapshot(TH32CS_SnapProcess,0);
    if c=INVALID_HANDLE_VALUE then exit;
    pe.dwSize:=sizeof(pe);
    if Process32First(c,pe) then
    repeat
        If UPPERCASE(ExtractFileName(pe.szExeFile))=UPPERCASE(ExtractFileName(FName)) then
            begin
                Result:=true;
                break;
            end;
    until not Process32Next(c,pe);
    CloseHandle(c);
end;

begin
    scrPath:=GetRegistryString(HKEY_CURRENT_USER, 'Control Panel\Desktop', 'SCRNSAVE.EXE');
    SetTimer(0, 10001, 3000, nil);
    while GetMessage(mMsg, 0 , 0, 0) do
        begin
            TranslateMessage(mMsg);
            if (mMsg.message = WM_TIMER) then
                begin
                    KillTimer(0, 10001);
                    If IsRunning(scrPath) then
                      MessageBox(0, PChar('Заставка запущена'), PChar('Сообщение'), MB_OK)
                    else
                      MessageBox(0, PChar('Заставка не запущена'), PChar('Сообщение'), MB_OK);
                    Halt(0);
                end;
            DispatchMessage(mMsg);
        end;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »