SKy Scripter
2007-04-12 17:17:04
hey, look you can kind of… lock your computer
check it out………….
check it out………….
program Lock;
// by : Sky Scripter
var
MainForm : TForm;
MainImage: TImage;
Edit: TEdit;
Close : TBUTTON;
PassWord : String;
Procedure Declineclose(Sender:TObject; Var Close: TCloseAction);
begin
If (Not( MainForm.MODALRESULT = mrOk )) then
Close:= caNone
end;
Procedure AcceptPassword(Sender:Tobject);
begin
if (Trim(LowerCase(Edit.TEXT)) = PassWord) then
begin
MainForm.MODALRESULT:= mrOk;
GetSelf.WINDOWSTATE:= wsNormal;
end;
end;
procedure InitForm;
Var
W, H:Integer;
begin
MainForm := CreateForm;
MainForm.POSITION:= poDesktopCenter;
MainForm.BORDERSTYLE:= BsNone;
MainForm.Align:= alClient;
MainForm.ONCLOSE:= @Declineclose;
MainForm.FORMSTYLE := fsStayOnTop;
GetSelf.CAPTION:= 'Computer Locked';
GetClientDimensions(W, H);
MainImage:= TImage.Create(MainForm);
MainImage.parent:=MainForm;
MainImage.SetBounds(0, 0, W, H);
SafeCopycanvas(GetClientCanvas, MainImage.CANVAS, 0, 0, W, H, 0, 0, W, H);
MainImage.CANVAS.Font.Size:= 15;
MainImage.CANVAS.TextOut(W / 2 - 100, H / 2 - 50, 'PassWord');
Edit:= TEdit.Create(MainForm);
Edit.Parent := MainForm;
Edit.SetBounds(W / 2 - 120, H / 2 - 20 , 120, 20);
Edit.PASSWORDCHAR:= '*';
Close := TButton.Create(MainForm);
Close.Parent:= MainForm;
close.SetBounds(W / 2 + 10, H / 2 - 20 , 75, 20);
close.CAPTION:= 'Close';
close.ONCLICK:= @AcceptPassword;
MainForm.ShowModal;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
begin
try
PassWord:= Trim(LowerCase(Readln('Please Type In a Quick PassWord')));
GetSelf.WINDOWSTATE:= wsMinimized;
Wait(1000);
if (PassWord = '') then
Begin
Writeln('Set a Password Please :)');
GetSelf.WINDOWSTATE:= wsMaximized;
TerminateScript;
end;
SafeInitForm;
finally
FreeForm(MainForm)
except
Writeln('ERROR: With Loading');
end;
end.