// --- Declarations for PACT Timer -----
#define APPREGKEY    ("Software\\PACT Software\\Timer")
 
typedef struct _TimerSet {    // ts    set for one timer information
        char SubKeyName[MAX_PATH];
        char ExeDescription[101];         // max 100 (+ \0)
        char ExePath[MAX_PATH];
        char ExeParameters[MAX_PATH];
        char ExeWorkDir[MAX_PATH];
        char StartNextDate[20];         // 1998/03/12 10:20:00    max 20 (= 19 + \0)
        char StartNotAfter[20];
        UINT StartEverySec;
        UINT StartSecAfterBoot;
        DWORD StartActivated;         // default: 1 = yes
        DWORD StartDeleteAfter;         // default: 0 = no, only deactivate
        DWORD StartWorkingOnly;         // default: 0 = run every day
        DWORD StartBell;         // default: 1 = yes, play sound
        DWORD WindowState;         // 0-5         default: 0, normal
        DWORD PriorityLevel;         // 0-3         default: 2, normal
} TIMERSET;
 
void main();
BOOL SetTimerSet(TIMERSET *pts);
void StartPACTimer();

// --- main -----------------------------
void main()
{
TIMERSET ts;
SYSTEMTIME st;
 
    lstrcpy(ts.SubKeyName, "MyTimerSet0001");
    lstrcpy(ts.ExeDescription, "Test Timer");
    lstrcpy(ts.ExePath, "Notepad.exe");
    ts.ExeParameters[0] = 0;
    ts.ExeWorkDir[0] = 0;
    ts.StartEverySec = 0;
    ts.StartSecAfterBoot = 0;
    ts.StartActivated = 1;         // yes
    ts.StartDeleteAfter = 0;         // no
    ts.StartWorkingOnly = 0;         // no
    ts.StartBell = 1;         // yes
    ts.StartNotAfter[0] = 0;
    ts.WindowState = 0;        // 0-5    default: 0
    ts.PriorityLevel = 2;        // 0-3    default: 2
 
    GetLocalTime(&st);
    st.wMinute += 5;
    if(st.wMinute > 59)
    {
        st.wMinute -= 60;
        st.wHour++;    // and so on...
    }
    wsprintf(ts.StartNextDate, "%04i/%02i/%02i %02i:%02i:%02i", st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond);
 
    SetTimerSet(&ts);    // save to reg
    StartPACTimer();       // restart Timer
 
    return;
}
 
// --- save timer to registry -------------------
BOOL SetTimerSet(TIMERSET *pts)
{
HKEY hkNewKey;
char szFullKeyName[MAX_PATH];
DWORD dwDummy;
DWORD dwReturn;
 
    lstrcpy(szFullKeyName, APPREGKEY);
    lstrcat(szFullKeyName, "\\");
    lstrcat(szFullKeyName, pts->SubKeyName);
 
    // Open/Create Key for write access
    dwReturn = RegCreateKeyEx(HKEY_CURRENT_USER, szFullKeyName, 0, 0, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, NULL, &hkNewKey, &dwDummy);
    if(ERROR_SUCCESS != dwReturn)
    {
        SetLastError(dwReturn);
        myErr("Error writing to registry! Can not open application key.");
        return FALSE;
    }
 
    // Set SZs
    RegSetValueEx(hkNewKey, "ExeDescription", 0, REG_SZ, (CONST BYTE *) pts->ExeDescription, lstrlen(pts->ExeDescription) + 1);
    RegSetValueEx(hkNewKey, "ExePath", 0, REG_SZ, (CONST BYTE *) pts->ExePath, lstrlen(pts->ExePath) + 1);
    RegSetValueEx(hkNewKey, "ExeParameters", 0, REG_SZ, (CONST BYTE *) pts->ExeParameters, lstrlen(pts->ExeParameters) + 1);
    RegSetValueEx(hkNewKey, "ExeWorkDir", 0, REG_SZ, (CONST BYTE *) pts->ExeWorkDir, lstrlen(pts->ExeWorkDir) + 1);
    RegSetValueEx(hkNewKey, "StartNextDate", 0, REG_SZ, (CONST BYTE *) pts->StartNextDate, lstrlen(pts->StartNextDate) + 1);
    RegSetValueEx(hkNewKey, "StartNotAfter", 0, REG_SZ, (CONST BYTE *) pts->StartNotAfter, lstrlen(pts->StartNotAfter) + 1);
 
    // Set DWORDs
    RegSetValueEx(hkNewKey, "StartEverySec", 0, REG_DWORD, (CONST BYTE *) &pts->StartEverySec, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "StartSecAfterBoot", 0, REG_DWORD, (CONST BYTE *) &pts->StartSecAfterBoot, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "StartActivated", 0, REG_DWORD, (CONST BYTE *) &pts->StartActivated, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "StartDeleteAfter", 0, REG_DWORD, (CONST BYTE *) &pts->StartDeleteAfter, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "StartWorkingOnly", 0, REG_DWORD, (CONST BYTE *) &pts->StartWorkingOnly, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "StartBell", 0, REG_DWORD, (CONST BYTE *) &pts->StartBell, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "WindowState", 0, REG_DWORD, (CONST BYTE *) &pts->WindowState, sizeof(DWORD));
    RegSetValueEx(hkNewKey, "PriorityLevel", 0, REG_DWORD, (CONST BYTE *) &pts->PriorityLevel, sizeof(DWORD));
 
    RegCloseKey(hkNewKey);
 
    return TRUE;
}
 
 
// --- Find InstallPath and start PACTimer.exe -----------
void StartPACTimer()
{
    HKEY hKey;
    DWORD dwDummy = MAX_PATH;
    char pszInstallPath[MAX_PATH] = {0};
    char pszProgPath[MAX_PATH] = {0};
    char pszTemp[MAX_PATH] = {0};
    GetTempPath(MAX_PATH, pszTemp);
 
    // get install path from Registry
    if(ERROR_SUCCESS != RegOpenKeyEx(HKEY_LOCAL_MACHINE, APPREGKEY, 0, KEY_QUERY_VALUE, &hKey))
        return;
 
    if( ERROR_SUCCESS == RegQueryValueEx(hKey, "InstallPath", NULL, NULL, (LPBYTE) pszInstallPath, &dwDummy) )
    {
        lstrcpy(pszProgPath, pszInstallPath);
        lstrcat(pszProgPath, "\\PACTimer.exe");
        ShellExecute(NULL, NULL, pszProgPath, NULL, pszTemp, SW_SHOWNORMAL);
    }
 
    RegCloseKey(hKey);
    return;
}
// --------------------------------------------