Brauche hilfe bei passwort abfrage !

[fkerber]

Hi!

Habe folgendes eingebaut/geändert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hTaskBar: THandle;
begin
 if ((Edit1.Text = 'Username') and (Edit2.Text = 'Passwort')) then
  begin
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
    //Taskbar wieder sichtbar machen
    hTaskBar:=FindWindow('Shell_TrayWnd', nil);
    ShowWindow(hTaskBar, SW_SHOWNORMAL);

    sndPlaySound(PChar('Granted.wav'),SND_ASYNC);
    Timer1.Enabled:=false;
    Application.Terminate;
  end
 else
  sndPlaySound(PChar('denied.wav'),SND_ASYNC);
end;


//im onCloseQuery-Event des Forms folgendes hingeschrieben:
CanClose:=false;

Das mit dem Ini solltest du ja dann selbst hinbekommen.


Ciao Frederic