Entwickler-Ecke :: Thema anzeigen - taskmnager, runterfahren, alt f4...

-Torch- - Mi 22.01.03 23:03
Titel: taskmnager, runterfahren, alt f4...

also: ich will einen passwortcheck machen. den will ich nur bei mir benutzen!
das is ja auch noch einfach... aber ich will, das der
1. nicht mit <ALT> + <F4> zu schließen ist
2. nicht durch den taskmanager zu schließen ist
3. einen button haben soll mit "herunterfahren"
4. beim 3. fehlversuch automatisch herunterfährt
achja, und der soll das datum und die uhrzeit speicher, wenn das falsch
eingegeben wurde...
wie könnt ich das denn angehen?
hat einer quellcodes?

schonmal thx!

MfG |-Torch-|

Delete - Mi 22.01.03 23:44

Welches OS? Unter NT-basierenden System brauchen wir hier gar nicht weiter zu diskutieren.

Alt+F4 dürfte aber kein Problem sein:

Quelltext

1:
2:
3:
4:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caNone;
end;

Runterfahren unter Windows 9x geht relativ einfach:

Quelltext

1:	ExitWindowEx(EWX_POWEROFF);

Zum Speichern in eine einfache Textdatei kuck dir mal AssignFile und folgende an. Zur Not könnte man auch eine StringList nehmen.

-Torch- - Do 23.01.03 00:02
Titel: hm...

Also, das is für windows 98. brauch ich da irgendwelche anderen uses? und welche variablen?
irgendwie geht das nämlich nicht!?! und wie mach ich das mit den 3
fehlversuchen? und bei dem alt f4 ausschalten muss ich doch die tasten angeben, oder?
also so is der code, wie ich ihn vorher hatte/habe!
was muss da noch hin, und wo?
(sorry, das ich so nerve, aber ich bin noch ein noob..! :oops:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

unit pw;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button3: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Button2: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  IF edit2.Text = ('passwort')
  then close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

Delete - Do 23.01.03 00:10

Ich habe dir doch Code gepostet. Natürlich würde ich bei FormClose noch eine if-Abfrage mit einer globalen Variable machen, sonst geht es nie zu.

Das gleiche gilt für das Passwort. Auch eine globale Variable nehmen und die bei jedem Fehlversuch hochzählen. Wenn sie bei 3 angekommen ist, dann laß wegen mir den Rechner explodieren oder mach sonst was.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!