Как програмно отключить УЖЕ работающий скринсейвер

#include <vcl.h>
#pragma hdrstop
#include <tlhelp32.h>
#include <windows.h>
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
// Получение ID процесса по его имени
DWORD GetPIDbyName(LPTSTR szProcessName)
{
    HANDLE hSnapShot;
    PROCESSENTRY32 pe = {sizeof(pe)};
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); // Получаем список запущенных процессов на Windows API
    if (hSnapShot == INVALID_HANDLE_VALUE)
        return 0;
    if (!Process32First(hSnapShot, &pe))
        return 0;
    do
        if(!lstrcmpi(pe.szExeFile,szProcessName))
        {
            CloseHandle(hSnapShot);
            return pe.th32ProcessID;
        }
    while (Process32Next(hSnapShot, &pe));
    CloseHandle(hSnapShot);
    return 0;
}
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    TStringList *ProcList;
    ProcList = new TStringList;
    // Имена всех активных процессов -> в список ProcList
    ProcList->Clear();
    HANDLE PHandle;
    PROCESSENTRY32 ProcEntry;
    PHandle = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS,0);  // Получаем список запущенных процессов на Windows API
    ProcEntry.dwSize = sizeof(PROCESSENTRY32);
    Process32First(PHandle, &ProcEntry);
    do
    {
        ProcList->Add(ExtractFileName(ProcEntry.szExeFile));
    }
    while(Process32Next(PHandle, &ProcEntry));
    CloseHandle(PHandle);
 
    for(int i = ProcList->Count - 1; i > -1; i--)
    {
        if(SameText(ExtractFileExt(ProcList->Strings[i]), ".scr"))
        {
            // Убиваем процесс по его ID
            DWORD pid = GetPIDbyName(ProcList->Strings[i].c_str());
            HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS,FALSE,pid);
            TerminateProcess(hProcess, 0xDEAD);
            CloseHandle(hProcess);
            Label1->Caption = ProcList->Strings[i];     // Отображаем имя удалённого процесса
            break;
        }
    }
 
    delete ProcList;                    // Удалить объект ProcList
    ProcList = NULL;                    // Повторное удаление пустого указателя не вызовет проблем
 
    Timer1->Enabled = false;
 
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // Запyстить скpинсейвеp и таймер
    PostMessage(Application->Handle, WM_SYSCOMMAND, SC_SCREENSAVE, NULL);
 
    Timer1->Interval = 3000;
    Timer1->Enabled = true;
}