unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, XPMan,Registry, DB, ADODB, SsBase, StTrIcon, Menus, ImgList,Tlhelp32,shellapi, ExtCtrls ; type TForm1 = class(TForm) pckapat: TButton; reset: TButton; Edit2: TEdit; giris: TButton; sifrele: TButton; Edit1: TEdit; DBEdit1: TDBEdit; DBEdit2: TDBEdit; Label1: TLabel; Label2: TLabel; barla: TButton; medin: TButton; XPManifest1: TXPManifest; coz: TButton; sifre: TButton; Button1: TButton; PopupMenu1: TPopupMenu; ac1: TMenuItem; ImageList1: TImageList; tasksageng: TButton; tasksagser: TButton; Timer1: TTimer; procedure resetClick(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure barlaClick(Sender: TObject); procedure medinClick(Sender: TObject); procedure sifreClick(Sender: TObject); procedure cozClick(Sender: TObject); procedure girisClick(Sender: TObject); procedure sifreleClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure pckapatClick(Sender: TObject); procedure ifrele1Click(Sender: TObject); procedure ac1Click(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure tasksagengClick(Sender: TObject); procedure tasksagserClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); private public end; var Form1: TForm1; implementation uses Unit2; //Explorer.exe kapatmak eniden başlatmak /////////////////////////////////////////// function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; //gorev cubugu maus sağ tuş engeli //////////////////////////////////////////////////////////// Procedure RegYaz(Baslik:String; Deger : dWord); var Reg : TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; // Dalın ana başlığı secilir... Reg.OpenKey('\Software\Microsoft\Windows\CurrentVe rsion\Policies\Explorer', False); // ilgili dal acılır... If NOT Reg.ValueExists(Baslik) then Reg.CreateKey(Baslik); // Baslık Yoksa Oluşturulur... Reg.WriteBinaryData(Baslik, Deger, SizeOf(Deger)); // Baslik icin değer yazılır... Reg.CloseKey; // Key kapatılır... Reg.Free; end; ///////////////////////////////////////////////////// //bilgisayarı kapatma kodu function WindowsExit(RebootParam: Longword): Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd) ; if tpResult then begin tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid) ; TTokenPvg.PrivilegeCount := 1; TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; cbtpPrevious := SizeOf(rTTokenPvg) ; pcbtpPreviousRequired := 0; if tpResult then Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg, cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired) ; end; end; Result := ExitWindowsEx(RebootParam, 0) ; end; /////////////////////////////////////////// //ctrl+alt+del tuşlarını kapatmak procedure DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = True then begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; ////////////////////////////////////////////////////// //basılan tuşları kitlediğim procedure function DisableSysKeys(ADisable: Boolean): Boolean; stdcall; external 'SysKeyHook.dll'; function AreSysKeysDisabled: Boolean; stdcall; external 'SysKeyHook.dll'; procedure TForm1.resetClick(Sender: TObject); begin WindowsExit(EWX_REBOOT or EWX_FORCE) ; end; procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text=DBEdit1.Text then Edit2.Enabled:=True; end; procedure TForm1.Edit2Change(Sender: TObject); begin if Edit2.Text=DBEdit2.Text then giris.Enabled:=True; end; procedure TForm1.barlaClick(Sender: TObject); begin WinExec('C:\Program Files\4T Sağlık\Medin Hastane\Barla.exe',sw_show); end; procedure TForm1.medinClick(Sender: TObject); begin WinExec('C:\Program Files\4T Sağlık\Medin Hastane\Medin.exe',sw_show); end; procedure TForm1.sifreClick(Sender: TObject); begin DisableSysKeys(True); sifrele.Enabled:=False; DisableTaskMgr(True); EnableWindow(FindWindowEx(FindWindow('Progman', nil), 0, 'ShellDll_DefView', nil), false); //masa ustunu kullanılmaz yap EnableWindow(FindWindowEx(FindWindow('Shell_TrayWn d', nil),0,'Button',nil),false);//başlat butonunu kapatır end; procedure TForm1.cozClick(Sender: TObject); begin sifrele.Enabled:=True; DisableSysKeys(False); DisableTaskMgr(False); EnableWindow(FindWindowEx(FindWindow('Progman', nil), 0, 'ShellDll_DefView', nil), True); //masa usutunu kullanır yap EnableWindow(FindWindowEx(FindWindow('Shell_TrayWn d', nil),0,'Button',nil),True);//başlat butonunu cozer end; procedure TForm1.girisClick(Sender: TObject); begin tasksagser.Click; coz.Click; Edit1.Clear; Edit2.Clear; Edit2.Enabled:=False; giris.Enabled:=False; end; procedure TForm1.sifreleClick(Sender: TObject); begin tasksageng.Click; Timer1.Enabled:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; procedure TForm1.FormCreate(Sender: TObject); begin tasksageng.Click; Timer1.Enabled:=True; end; procedure TForm1.pckapatClick(Sender: TObject); begin WindowsExit(EWX_POWEROFF or EWX_FORCE) ; end; procedure TForm1.ifrele1Click(Sender: TObject); begin sifre.Click; end; procedure TForm1.ac1Click(Sender: TObject); begin Form1.Show; end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=VK_F10 then form2.Show; end; procedure TForm1.tasksagengClick(Sender: TObject); begin RegYaz('notraycontextmenu', 1); killtask('explorer.exe'); end; procedure TForm1.tasksagserClick(Sender: TObject); begin RegYaz('notraycontextmenu', 0); killtask('explorer.exe'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin sifre.Click; Timer1.Enabled:=False; end; end. __________________