Luk med windows

Det skulle også gerne kunne lukkes med Win95/98 !

Hmmmn .. Spørgsmål ved jeg ikke lige men spørgsmål 2 har jeg da en løsning på

Probelmet er at ikke alle under windowsNT har ret til at lukke computeren, man kan saktens forestille sig at en bruger ikke har ret til dette, ydligere skal der holdes styr på hvem og hvorsan Windows lukkes ned. Derfor skal brugeren bede om en SeShutdownPrivilege token fra windows. Alt dette under W2K. for 95/98/ME skal du bare kalse ExitWindowsEx().

Alt dette kan kommes ned i en og samme funktion, hvortil du bare skal medgive en parameter alt efter hvilken slage Shutdown du ønsker. Jeg har for nemheds skyld valgt at kalde den ExitWindows, forsi det er jo det den gør....


Function ExitWIndows( iFlags : Integer ) : Boolean;
//-------------------------------------
//Exit the current Windows session. iFlags have to be one of the following constants.
//
//EWX_FORCE    Forces processes to terminate. Instead of bringing up the "application not responding"
//              dialog box for the user, this value forces an application to terminate if it does not respond.
//
//EWX_LOGOFF    Shuts down all processes running in the security context of the process that called the
//              ExitWindows function. Then it logs the user off.
//
//EWX_POWEROFF    Shuts down the system and turns off the power. The system must support the power-off feature.
//
//EWX_REBOOT    Shuts down the system and then restarts the system.
//
//EWX_SHUTDOWN    Shuts down the system to a point at which it is safe to turn off the power.
//              All file buffers have been flushed to disk, and all running processes have stopped.
//-------------------------------------

  Function SetPrivilege( sPrivilegeName : String; bEnabled : Boolean ) : Boolean;
  var
    TPPrev,
    TP        : TTokenPrivileges;
    Token      : THandle;
    dwRetLen  : DWORD;
  begin
    Result := False;
    OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES  or TOKEN_QUERY, Token );
    TP.PrivilegeCount := 1;
    if( LookupPrivilegeValue( Nil, PChar( sPrivilegeName ), TP.Privileges[ 0 ].LUID ) )then
      begin
      if( bEnabled )then
        TP.Privileges[ 0 ].Attributes  :=  SE_PRIVILEGE_ENABLED
      else
        TP.Privileges[ 0 ].Attributes  :=  0;
      dwRetLen := 0;
      Result := AdjustTokenPrivileges( Token, False,TP, SizeOf( TPPrev ), TPPrev, dwRetLen );
    end;
    CloseHandle( Token );
  end;

begin
  Result := True;
  if( SetPrivilege( 'SeShutdownPrivilege', True ) )then
  begin
    if( not ExitWindowsEx( iFlags, 0 ) )then
    begin
      // handle errors...
      Result := False;
    end;
    SetPrivilege( 'SeShutdownPrivilege', False )
  end
  else
  begin
    // handle errors...
    Result := False;
  end;
end;

Hvad den opmærksomme læser straks bemærker så har jeg lånt lidt inde fra Online hjælpen ...

Jens B

Hvor skal koden kaldes fra OnClose etc. ???

OnClose skal den vel ikke kaldes fra med mindre ud ønsker at lukke windows sammen med dit program. Det vil være mere naturligt at kalde funktionen fra en kanp af, eller hvis der bliver svaret OK i en dialogbox

Jens B

På min homepage, http://borrisholt.com, under kategorien "WinNT" finder du et eksemple på en application der bruger funktionen.

Jens B:

så tror jeg ikke helt du forstå mit spm !

Når jeg vil lukke Windows via Start->Shut Down skal windows også lukke mit program !

Det gør den automatisk, med mindre du explisit forhindere windows i at lukke ned.

Så med andre ord så lukker Windows også dit program, hvis du "ingenting gør"

Jens B

nej ikk ved mig !

Kan det være fordi at min form's visible er false ?

Prøv at kigge på det eksempel fra Borisholt.com.

Jens B

oki det vil jeg

Jeg kan ikke helt bruge det så jeg lukker...