Autostart on workstations with defined config-settings ?

[ukoenig]

Hello,

I finished my new tool : a desktop-alarm solution.

Before I searched in the internet for existing programs the same kind
I couldn*t find something that offers all the settings I included
like 3 possible window-sizes, 3 times defined at once or all the color-settings.

now I would like to do a possible autostart on each selected workstation
with the defined settings ( record selected ) from the user-setupfile

maybe a solution ? ( Alarm.exe is installed on the server )

viewtopic.php?f=3&t=27576&p=153877&hilit=computername#p153877
viewtopic.php?f=3&t=30839&p=177539&hilit=computername#p177539

how it works in short

The desktop-display on any positon with a defined style and size
The alarm-reason is displayed as a window-tooltip after the sound-display



The date / time - sections ( 3 at once ) with date, time and sound-selections



The 1. setup-section with selected actions after the alarm is done.
The user can define if he wants a autostart or not.
( I can add any needed values to the config-file if needed for a solution )
Time 2 shows meetings every monday and wednesday at 12:00
The days of time 2 are defined in next image

I added the computername to the setup-file
To run the program on a server, is it possible to scan the setup-file on startup
for the computername of the workstation who started the program ?
Because without a server I cannot test it.



The 2. setup-section with the color-defines : window size, color or transparent, round corners and shadow selected
The window stay on top or taskbar
a font-selection, optimizing a group of 3 fonts at runtime
Only the font-name needs to be selected the rest is visual-design



could it be possible to do a autostart on each workstation if selected

regards
Uwe

[ukoenig]

Hello,

that works local but will it work on a server-install

Index and filter on Computer ( workstation )
NO server is used.

Code: Select all  Expand view  RUN

lUser := .F.
lLogin := .F.

oAlarm := TDatabase():Open( , c_Pfad1 + "ALARM", "DBFCDX", .T. )
// CreateIndex( cFile, cTag, cKey, lUnique, lDescend, lMemory )
oAlarm:CreateIndex( c_Pfad1 + "ALARM", "ALARM", "CCOMPUTER", .F. )

aVAL[19] := gete('CLIENTNAME') // workstation
aVAL[60] := gete('COMPUTERNAME') // server
IF EMPTY( aVAL[19] )
    aVAL[19] := aVAL[60] // server
ENDIF
oAlarm:Gotop() // default settings record 1
oAlarm:cServer := aVAL[60]
oAlarm:Save()
DO WHILE !oAlarm:Eof()
    IF oAlarm:cComputer = aVAL[19] 
        oAlarm:ORDSCOPE(0, aVAL[19] ) // filter on workstation
        oAlarm:ORDSCOPE(1, aVAL[19] )
        lUser := .T.
        EXIT
    ENDIF
    oAlarm:Skip(+1)
ENDDO

oAlarm:Gotop()
IF lUser = .T. // scan if user exists
    DO WHILE !oAlarm:Eof() // look for a selected timeset
        IF oAlarm:LAutostart = .T. // selected timeset
            lLogin := .T.
            EXIT
        ENDIF
        oAlarm:Skip(+1)
    ENDDO
ELSE // new user uses a copy of record 1
    oAlarm:GoTop()
        oAlarm:Copy()
        oAlarm:Append()
        oAlarm:Paste()
        oAlarm:cComputer := aVAL[19]
        oAlarm:cServer := aVAL[60]
        oAlarm:LAutostart := .T. // new record selected
        oAlarm:Save()
    oAlarm:ORDSCOPE(0, aVAL[19] ) // filter on workstation
    oAlarm:ORDSCOPE(1, aVAL[19] )
ENDIF
IF lLogin = .F. // select the new record if new usert
    oAlarm:GoTop()
ENDIF

LOAD_SYS() // load selected timeset
 

regards
Uwe