windows close;

http://borrisholt.com/WinNT/DelphiSource/ShutDown.zip

RUNDLL.EXE user,ExitWindows -- Lukker Windows
RUNDLL.EXE user,ExitWindowsExec -- Genstarter Windows

argh.. så ik den lå under Delphi :(

øhh jeg skal ikke bruge en source code.... bare selve linien...
den der er i shutdown.zip virker ikke...

not enough actual parameters....

Læs så evt. http://www.eksperten.dk/spm/26865

spunk13's ide er måske slet ikke så dårlig! :)

Uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'RUNDLL32.EXE', 'user,ExitWindows', nil, 0);
end;

Jeg er ikke helt 100 på at det virker, men prøv da! :)

det skal GENNEMTVINGE et luk... jeres forslag er gode... men de går istå hvis man har et ikke gemt dokument åbent...

Så kommer den traditionelle "Vil du gemme ændringerne" ting.. og så lukker den jo ikke automatisk...

Hvis du har Windows 95 eller 98, så kan du kalde

ShellExecute(0, 'open', 'c:\con\con', nil, nil, 0);

Den smider en blå skærm op der gør at brugeren er nød til at genstarte computeren! :)

Det er en gammel DOS-fejl, som de fik rettet i Windows ME, og logisk nok, så er den heller ikke med i win2000 eller XP! ;)

den skal ikke tvinge brugeren til at lukke... men lukke comen selv... skal btw: virke i både 95, 98, 2000, NT, ME & XP....

Prøv med API-kaldet ExitWindowsEx.

Procedure Boot;
  ExitWindowsEx(EWX_REBOOT, 0);
end;

// BadAss

Istedet for ',0' så giv den en ',4'
Det vile lave en "Force Shutdown"

hermandsen > den er blevet fikset i Windows Updaterne =)

Dette er en udvidet udgave af Jens Borrisholts ExitWindowsJB() og bør virke i alle versioner af Windows:

function ExitWindowsJB(iFlags: Integer): Boolean;
var
  osVerInfo: TOSVersionInfo;

  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;
  osVerInfo.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_WINDOWS:
        if not ExitWindowsEx(iFlags, 0) then
          Result := False; // handle errors...
      VER_PLATFORM_WIN32_NT:
        if SetPrivilege('SeShutdownPrivilege', True) then
        begin
          if not ExitWindowsEx(iFlags, 0) then
            Result:=False; // handle errors...
          SetPrivilege('SeShutdownPrivilege', False)
        end
        else
          Result:=False; // handle errors...
  else
    Result:=false;
  end;                     
end;

Luk computeren: ExitWindowsJB(EWX_SHUTDOWN);
  Genstart computeren: ExitWindowsJB(EWX_REBOOT);
  Log af den aktuelle bruger: ExitWindowsJB(EWX_LOGOFF);

  Hvis du ønsker at gennemtvinge, så tilføj EWX_FORCE, f.eks.:
    ExitWindowsJB(EWX_SHUTDOWN+EWX_FORCE);

>>formatc
Ja, men det ser stadig sjovt ud når klasse-kammeraterne kører den og swang... Blå skærm! :)

Jeg savner lidt en mere harmløs en, for helt ærligt, så er det jo ikke vildt fedt når computeren låser på den måde! ;)

Damn, klokken er 2:10 og jeg har tjekket omkring 200 Delphi-mails fra Eksperten nu...

//hermandsen (Zzzzzzzzzzzzzzzzz...........)

danielks -> Hvis ikke du har fået noget svar der dækker dine behov vil det være rart med en kommentar ...

!

Jeg undskylder... kommer her...

Oki nogen der lige gider skrive hvilke tal der skal stå i:

ExitWindowsEx ( 1,0 )

for at den laver en force eller en normal shut down ....

tjen 100 point her... http://www.eksperten.dk/spm/292368