Funktionen in Windows7

[Freiwilderer]

Hi,
ich hab n kleines problem
und zwar muss ich folgende funktionen umsetzen, die dann auf nem Win7 Rechner auch funktionieren sollen.

Windows Herunter fahren
Ein anderes programm beenden
Windowstaste unterdrücken
Alt+Tab unterdrücken
Windowstaste + D unterdrücken
und nach möglichkeit sogar Strg+Alt+Entf

irgendwie hab ich noch keine möglichkeit gefunden das umzusetzen, alle Beispiele, die ich gefunden hab, haben nicht funktioniert. Falls jemand auch nur für eine Funktion ne idee hat, wäre ich sehr dankbar.

und bitte keine fragen, warum ich das machen möchte ;) ... an dem programm sollen menschen arbeiten, die wirklich nur daran arbeiten sollen. Ich hab auch ein PW vor das beenden des Programms gesetzt, um zu verhindertn, dass da was anderes angestellt werden kann.

mfg

Freiwilderer

[Bernhard Geyer]

Kannst Du uns auch verraten für was das nötig ist? Hört sich für mich so nach dem Kiosk-Modus an.

[Freiwilderer]

hi,
joa, kommt so ungefähr hin. is zwar keine kasse für n kiosk, aber eine kasse ;)

warum?

[mkinzler]

Mit Kiosk war auch der Kiosk-Modus gemeint. :wink:

[Freiwilderer]

ich weiß ;)
fands trotzdem lustig ^^

naja, is ja ganz nett, ... aber ideen habt ihr keine ? ...
ich sehe schon mein wochenende den bach runter gehen ... muss montag spätestens laufen ;)

[mkinzler]

Richte das Programm als Shell ein, dann gibt es keinen Desktop

[himitsu]

Es ist in der DP ein Kisok-Programm zu finden ... vielleicht läßt sich da was abgucken?

[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:

Zitat von Freiwilderer (Beitrag 1035678)

(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 ^^

[mkinzler]

Und genau deshalb sollte man vorher schauen, ob es schon einen Beitrag gibt!

[Freiwilderer]

ich finde solche diskussionen ehrlich gesagt ziemlich anstrengend...
ich schreib das jetzt noch und dann wars das für mich mit der diskussion.

is es nich total egal, wenn n paar sachen mehrfach in nem forum stehen? ...
abgesehen davon hab ich diese shutdown funktion letztens so nich gefunden, jedenfalls nicht so, dass se auch funktioniert hätte ...
kann natürlich an mir gelegen haben, aber so, wie se da jetzt steht, läuft se bei mir ...

abgesehen davon, war das ja nichmal das hauptthema des threats, sondern nur ein kleiner teil ...

und nochmal ... ich versteh einfach nich, wieso man sich über sowas aufregt oder überhaupt sowas
"Für Intressierte gibt es diesen Code schon tausend mal im Forum, man muss nur die Suchfunktion bemühen. "
schreibt ... irgendwann is das halbe forum mit beiträgen voll, in denen nur suchfunktion oder google steht ... oder gleich solche links (die ich übrigens trotzdem sehr lustig finde) Link

ende vom lied is, jetzt haben wir zu dritt vier beiträge geschrieben, die total sinnlos sind, nix bringen und das an nem sonntag ^^

moderation gut und schön, aber solang es zum thema gehört und nich in flooding ausartet, lasst mich doch bitte einfach das schreiben, was ich möchte.

so, schönes restwochenende noch,
bis dann

[mkinzler]

Es ist wirklich schade, dass viele unseren Forenregeln egal sind, noch schlimmer vielleicht unbekannt, da man die Nutzungbedingen einfach ungelesen abnickt.
Wir haben hier bewusst wenige Regeln, die sich aber bewährt habe.
Eine davon ist es, wenn möglich, eine Frage nicht zu wiederholen ( sollte diese nicht geklärt worden sein, kann man ja den alten Thread verewenden)
Ein anderer Grunsatz wäre auch eine Frage pro Thread :wink:

[Freiwilderer]

ok, ich schreib doch noch einmal ... ;)
1. wie gesagt, das, was ich gefunden hatte, hat bei mir nich funktioniert.
deswegen hab ichs mit in die fragenliste genommen.
2. hab ich schon in nem anderen forum n rüffler bekommen, weil ich n beitrag von 2002 wieder hoch geholt hab ... das sieht nunmal jeder anders ;)
3. die regeln sind in der tat übersichtlich und ich weiß, dass es verdammt klugscheißerisch klingt aber lies mal die hier ;D

Zitat:

Bitte nicht vom Thema abschweifen
Bleibe mit Deiner Antwort beim Ausgangs-Thema. Eine abschweifende Antwort oder gar eine Antwort, die mit dem jeweiligen Thema nichts mehr gemeinsam hat, hilft niemandem und bei dermaßen vielen neuen Beiträgen würden wir ins absolute Chaos abdriften, wenn sich jeder Diskussionsverlauf gleich über mehrere Themen erstrecken würde. Wir behalten es uns ausdrücklich vor, Beiträge zu entfernen, wenn sie sich zu weit vom Ausgangs-Thema entfernen.

4. ... ich wollte nich gleich 6 neue themen aufmachen ... wäre euch das lieber gewesen? dann mach ich das beim nächsten mal ;)

5. sorry, wenn ich n bisschen angepampt klinge heute ... hab n tierischen kater und muss hier den mist fertig machen ;)

[mkinzler]

Zitat:

sorry, wenn ich n bisschen angepampt klinge heute ... hab n tierischen kater und muss hier den mist fertig machen

Dafür können wir aber wirklich nichts

[Freiwilderer]

sagt ja auch keiner
deswegen entschuldige ich mich ja dafür und bitte um nachsicht ;)