Ich versuche schon länger, nen Windows apsswortschutz selber zu machen (in Delphi)
bei der anmeldung ersxcheint ein vollbild mit psswortabfrage. STRg+Alt+Entf hab ich ausgeschaltet
mit SIP_Screensaver (;-) hier aus'm board den Trick)
Jetzt fehlt mir nurnoch en Trick, damit ich Alt+f4 ausschalten kann, damit kann man das ganze nämlich kinderleicht umgehn!
Kann mir jemand helfen??

Ich hab zwar selber fast keine Ahnung von Delphi, aber könnte man nicht einfach einfach eine andere Funktion auf ALT+F4 legen?

Haben ist besser als brauchen.

Muh... is kinderleicht =) Ich suchs dir schnell raus.

So, ich habs... hoffentlich ist Buran nicht schneller! *fg*
Quellcode:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FALSE;
end;

Ist ganz einfach... wenn das fenster jetzt geschlossen werden soll geht es einfac nicht. Wenn es dann wirklich geschlossen werden soll setzte CanClose auf TRUE..

Ist auch einfach als die andere Lösung, ist aber auch was ganz anderes =)

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

{...}
public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
// set your applications message handler to your new one
Application.OnMessage := AppMessage;
end;

{...}

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
// let your application handle all messages initially
Handled := FALSE;
case Msg.Message of
WM_SYSKEYDOWN :
if Msg.wParam = VK_F4 then
Handled := TRUE; // don't allow ALT-F4
end;
end;

denke das sollte funzen

@retro das is unfair, stell dich gefälligst hinten an *g*
aber hast recht, das ist wirklich einfacher

du spielverderber!

(retro, editier schnell deinen post und füg da das von buran ein :D)

danke, hab's schon hingekreigt, is wirklich kinderleicht! Jettz hab ich abba noch ne andere Frage:
Ich würde gern en chattool für's Lan mach'n hab abba keinen Plan, wo ich ansetzten soll (wegen der dateiübertragung)
könnte mir da nochma jemand helfen??

ich könnte dir den Source von einem meiner Projekte geben...
ist ein Multiroom Chatprogramm ... (Server + Client)
allerdings funzt es nicht ganz so wie ich will da Winsock mir immer wieder ein par Nahrichten verschluckt beziehungsweise mit anderen zusammenwürfelt

Hey Buran, Zeeke hat mich doch überredet! =D

Und das Chat-Programm läßt sich genauso einfach realisieren :) Ich such dir mal schnell was zusammen! ;)

P.S.: Wehe jemand is schneller *fg*

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

Wie wärs mit IRC? :)

cu,
Prefect

Widelands - Gemütliche Aufbaustrategie, Free Software
Noch ein Blog - Lerne, wie die Welt wirklich ist, aber vergiss niemals, wie sie sein sollte.

So, ist nen bissel an Code, D5 ist voraussetzung und du brauchst 2 Komponenten, nämlich TServerSocket & TClientSocket - in der Internet Kategorie zu finden.

Client:Quellcode:
procedure TForm1.VerbindenClick(Sender: TObject);
begin
  ClientSocket1.Port := 80; //Port des Servers
  ClientSocket1.Host := '192.168.0.2'; //IP des Servers
  ClientSocket1.Active := True; //Connecten
end;

procedure TForm1.SendenClick(Sender: TObject);
begin
  if ClientSocket1.Socket.Connected = True then
  begin
    ClientSocket1.Socket.SendText('huhu'); //Den Text -huhu- senden
  end;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  TmpStr: String;
begin
  TmpStr := Socket.ReceiveText; //Empfangenden Text in TmpStr schreiben
  Edit1.Text := TmpStr;
end;

So, dürfte eigentlich leicht zu verstehen sein! ;)
Jetzt gehts an den Server:Quellcode:
procedure TForm1.VerbindenClick(Sender: TObject);
begin
  ServerSocket1.Port := 80; //Port der/des Clients (muss mit dem Client übereinstimmen)
  ServerSocket1.Active := True; //Verbindung herstellen
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  TmpStr: String;
begin
  TmpStr := Socket.ReceiveText; //Schreibt empfangenden Text in TmpStr
  Edit1.Text := TmpStr;
end;

So kannst du nen schönen Text im ping-pong verfahren immer hin und her senden! Wie es mit mehreren Clients geht hab ich noch nicht ausprobiert, dürfte aber keine Probleme geben! Streams kannste genau auf die selbe weise verschicken...

Was du mit dem Text nu anstellst ist deine Sache =) Das mit TmpStr ist keine Saubere Lösung, aber soll hier auch nur nen Beispiel sein, falls es Fehler gibt - ich bin noch nen bissel hier *g*

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

danke schonma, ich werd morgen ma ausprobiern

bei mehreren Clients kann der Server dynamisch pro client einen neuen Socket erstellen und ihn damit ansprechen....so machs ich zumindest

Jep, so hab ich das in nem VB-Chat, den ich vor einiger Zeit mal geschrieben hab, auch gemacht (also einen Socket, der bei ner incoming Connection reagiert und ein Event auslöst, aber die Verbindung nicht annimmt sondern stattdessen nen neuen Socket öffnet und dem dann sagt, er soll die Verbindung annehmen).

TheTinySteini
Coder Poke646
"Don't Panic" - Hitchhiker's Guide to the Galaxy