telecom, Thanks to Cellphones, TV Screens Get Smaller

1. writting small app to run while logon screen showing

Hi

Win 98 based network

I have been trying to develop a small app that will shutdown the machines on
our site at a specific time in the evening to save our technicians
physically walking around to do it. The program works fine when it executed
via a user logging on. However, we really need the program to shut down the
computers when nobody is logged on and there is only the logon screen
displayed.  The technicians have said that the when they tried to execute
the code via the config.sys or autoexec the program hangs........

I have written the program in Delphi as a 'console app' but presumably the
problem is that my program uses calls to Windows such as 'time'?

I'm now stuck! My code needs to log-off and shutdown if a student has left
their machine logged on but also needs to shutdown when only the logon
screen is present, but I'm not sure where I should be looking for the
solution.

Any help appreciated.

Dave
(remove the nospam to reply)



program shutdown;
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
 // Forms,
//  Dialogs,
  StdCtrls;

var
shutDownTime:TdateTime;

function GetWindowsVersion: Word;
var
  VerInfo: TOSVersionInfo;
begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  Result := VerInfo.dwPlatformID;
  { The results are as followed: }
  {case VerInfo.dwPlatformID of
    VER_PLATFORM_WIN32S: Platform is 'Windows 3.1x running Win32s';
    VER_PLATFORM_WIN32_WINDOWS: Platform is 'Windows 95/98';
    VER_PLATFORM_WIN32_NT: Platform is 'Windows NT';
  end;}
end;
procedure ExitWindows32(ShutDownFlag: Word);
{ proc to Exit 32-bit Windows.  ShutDownFlag is either EWX_REBOOT,
EWX_SHUTDOWN, or EWX_LOGOFF. }

  function ChangeNTSecurityForShutdown: Boolean;
  { This func changes security rights on a WinNT machine.     }
  { to give app shutdown privileges.                          }
  { Use proc ExitWindows32 to reboot or shutdown the machine. }
  var
    hToken : THandle;
    tkp,
    Newt   : TTokenPrivileges;
    retlength : DWORD;
  begin
    Result := False;
    if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES +
                        TOKEN_QUERY, hToken) <> False then
      begin
        { Get the LUID for shutdown privilege }
        if LookupPrivilegeValue( nil, 'SeShutdownPrivilege',
                                 tkp.Privileges[0].Luid) = True then
          begin
            tkp.PrivilegeCount := 1;  // One to set
            tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
            { Get shutdown privilege for this process }
            Result := AdjustTokenPrivileges(hToken, False, tkp,
                                            SizeOf(TTokenPrivileges), Newt,
                                            retlength);
          end;
      end;
  end;

begin
  if GetWindowsVersion = VER_PLATFORM_WIN32_NT then
    begin
      if ChangeNTSecurityForShutdown then
        ExitWindowsEx(ShutDownFlag, 0)
    //  else
        { Failed to change security rights to give us shutdown privilege. }
      //  MessageDlg('Unable to modify security rights for shutdown
privileges.', mtError, [mbOK], 0);
    end
  else
    if GetWindowsVersion = VER_PLATFORM_WIN32_WINDOWS then
      ExitWindowsEx(ShutDownFlag, 0);
end;

begin
shutDownTime:= encodeTime(22,30,00,00);
LongTimeFormat:='hh:mm:ss.z';

repeat
until time> shutDownTime;
ExitWindows32(EWX_FORCE+EWX_LOGOFF + EWX_POWEROFF+ EWX_SHUTDOWN);

end.

2. Cellphone Screen is Today's Hip Billboard / Ads Must be Targeted

3. New on TV: The Multiple-Channel Screen

4. No more Tech TV web site, thanks to Comcast

5. Thanks to Geniuses in Congress, Your TV May no Longer Work

6. Phone Books Are Getting Thinner As Cellphones Take Over

7. Watching TV on Your Cellphone

8. Verizon to Offer TV Shows on Cellphones