- 27 Ocak 2007
- 3,176
- 1
- 578
EKRAN KORUCU
Ekran koruyuculari normal bir program gibi yazilir. Derlenirken uzantisi SCR olarak kayit edilir. Windows ekran koruyucuyu çalistirirken bazi özel komut satiri parametreleri kullanir.* Alt + Tab ve Ctrl+Alt+Del Tuslarini önleyecek olan kod satiri :
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0); * Baslat Çubugunu gizleme
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_HIDE); * Fare' nin gizlenmesi
ShowCursor(false); * Fare ve Klavyeden bir olay yapildiginda ekran koruyucuyu sonlandirma
if ((ox=0) and (oy=0)) or ((Abs(ox-x)<5) And (Abs(oy-y)<5)) Then * Formun tam ekran haline getirilmesi
Object Inspector' den WindowState / wsMaximized yapilir.* Ekran koruyucu uygulamasi SCR olarak kaydedilmesi
Project / Options / Application
KODU:
Kod:
[B]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin[/B][SIZE=2]
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);
ShowCursor(true);
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_show);//baslati göster
[B]end; [/B]
[B]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);[/B]
[B]begin[/B]
[B]if[/B] ((ssAlt in Shift) and (Key = VK_F4))[B] then[/B] Key := 0;
[B]if[/B] ((ssAlt in Shift) and (Key = VK_TAB)) [B]then[/B] Key := 0;
[B]end;[/B]
{$J+}
[B]procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
const [/B]ox:integer=0; oy:integer=0;
[B]begin[/B]
[B]if[/B] ((ox=0) and (oy=0)) [B]or[/B] ((Abs(ox-x)<5) [B]And[/B] (Abs(oy-y)<5)) [B]Then[/B]
[B]begin[/B]
ox:=x;
oy:=y;
ShowCursor(false);
[B]end else
begin[/B]
ShowCursor(true);
[B]end;[/B]
procedure TForm1.Timer1Timer(Sender: TObject);
[B]begin[/B]
image1.Left:=random(400);
image1.top:=random(500);
[B]end;[/B] [/SIZE]
