Funktionen in Windows7

[Freiwilderer]

hi,
habs grad ausprobiert ... irgendwie geht das bei mir nich ...
legt zwar n neuen user an, aber die ausgeschalteten funktionen hat der trotzdem noch ...

trotzdem danke für den vorschlag, das sah sehr vielversprechend aus

edit:
mein fehler, funktion von der einen funktion falsch verstanden ... klappt prima das programm
muss nur mal gucken, ob man das einfache drücken auf die windowstaste auch abstellen kann...

[mkinzler]

Was hast du probiert? Welcher Benutzer?

[Freiwilderer]

habe das kiosk programm ausprobiert, und das legt n neuen windows benutzer an

edit:
also, in dem kiosk programm läuft leider alles über registry einträge. hatte eigentlich gehofft, dass ich das so machen könnte, dass die funktionen nach beenden des programms wieder da sind, aber so kann ich auch damit leben.

was mir jetzt noch fehlt is:

Windows Herunter fahren
Ein anderes programm beenden
Alt+Tab unterdrücken
Strg+Alt+Entf

vielleicht fällt jemandem noch was dazu ein?

[Remko]

Another approach is be to create a seperate desktop for your program (see MSDN CreateDesktop/OpenDesktop/SwitchDesktop: http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx).

Additionally you can further restrict the user (eg block access to cmd prompt, regedit and taskmanager) by setting up policies or registry entries.

Using SasLibEx it's also possible to block Ctrl-Alt-Delete (the Secure Attention Sequence) while your program is running.

[Freiwilderer]

thank you,
ill check it out as fast as possible (I've got a additional Task for an update program...)

Windows herunterfahren läuft jetzt auch (für interessierte hier kurz der quelcode zum Windows runter fahren)

Delphi-Quellcode:

procedure TfMain.SpeedButton1Click(Sender: TObject);
begin
   if (MessageDlg('Wollen Sie den PC wirklich Herunterfahren?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
   begin
      Shutdown(EWX_POWEROFF or EWX_FORCE);
   end;
end;

function TfMain.Shutdown(RebootParam: Longword): Boolean;
var
   TTokenHd: THandle;
   TTokenPvg: TTokenPrivileges;
   cbtpPrevious : DWORD;
   rTTokenPvg: TTokenPrivileges;
   pcbtpPreviousRequired: DWORD;
   tpResult: Boolean;
const
   SE_SHUTDOWN_NAME = 'seshutdownPrivilege';
begin
   if Win32Platform = VER_PLATFORM_WIN32_NT then
   begin
      tpResult := OpenProcessToken(GetCurrentProcess(),
               TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
               TTokenHd);
      if tpResult then
      begin
         tpResult := LookupPrivilegeValue(nil,
                                  SE_SHUTDOWN_NAME,
                                  TTOKENPvg.Privileges[0].Luid);
         TTokenPvg.privilegeCount := 1;
         TTokenPvg.privileges[0].attributes := SE_PRIVILEGE_ENABLED;
         cbtpPrevious := SizeOf(rTTokenPvg);
         pcbtpPreviousRequired := 0;
         if tpResult then
            Windows.AdjustTokenPrivileges(TTokenHd,
                                   False,
                                   TTokenPvg,
                                   cbtpPrevious,
                                   rTTokenPvg,
                                   pcbtpPreviousRequired);
      end;
   end;
   Result := ExitWindowsEx(RebootParam,0);
end;

[Luckie]

Zitat von Freiwilderer:

(für interessierte hier kurz der quelcode zum Windows runter fahren)

Für Intressierte gibt es diesen Code schon tausend mal im Forum, man muss nur die Suchfunktion bemühen.

[Freiwilderer]

macht ja nix ...
stehts halt noch mal mehr drin, oder ?
... ich persönlich hasse es nur, wenn ich zb bei google nen beitrag in nem forum finde, wo es um genau das problem geht, das ich grad habe und unten drunter steht nur: "habs gelöst" ... wenns von der sorte beiträge zu viele gibt, dann bringt die suchfunktion irgendwann nix mehr ^^
naja, jedenfalls schreib ich nach möglichkeit die Lösungen in meine themen rein ^^