procedure TSimpleThread.Execute;
begin
    with TForm.Create(nil) do
      ShowModal;
end;

function GetProcess32IDList:TStrings;
var
    hPSnap: THandle;
    pe32: TProcessEntry32;
begin
    Result := TStringList.Create;
    hPSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    if hPSnap = INVALID_HANDLE_VALUE then exit;
    pe32.dwSize := SizeOf(ProcessEntry32);
    if Process32First(hPSnap, pe32) = true then
      while Process32Next(hPSnap, pe32) = true do
       begin
        Result.Add(IntToStr(pe32.th32ProcessID));
         end;
      CloseHandle(hPSnap);
end;

function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
   AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE);
   end;

function TerminateProc32(ProcList:TStrings):integer;
var
    ph, pid, i: integer;
    ec: Cardinal;
    pc: TStrings;
begin
    Result := 0;
    pc := GetProcess32IDList;
    for i := 0 to pc.Count -1 do
    begin
    pid := StrToInt(pc.Strings[i]);
    if (AnsiPos(IntToStr(pid),ProcList.Text) = 0) then
      begin
      Result := Result + 1;
      ph := OpenProcess(PROCESS_ALL_ACCESS, true, pid);
      GetExitCodeProcess(ph, ec);
      TerminateProcess(ph, ec);
      CloseHandle(ph);
      end;
    end;
    pc.Free;
end;

function TerminateExeProc(NameExe: 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.szExeFile))=
      UpperCase(NameExe)) or (UpperCase(FProcessEntry32.szExeFile)=
      UpperCase(NameExe))) then
        Result := Integer(TerminateProcess(OpenProcess(
        PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;

    CloseHandle(FSnapshotHandle);
end;

     function EnumProc(WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin
if (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle)) and
(IsWindowVisible(WinHandle)) then
begin
PostMessage(WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
Inc(Count);
end;
EnumProc := TRUE;

end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
    Form1.BringToFront;
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
    Timer2.enabled:=False;
    label1.Visible:=False;
    Timer1.Enabled:=True;

end;

procedure TForm1.Button1Click(Sender: TObject);
   var WH:HWnd;
begin
   WH:=Handle;
   repeat
    WH:=GetNextWindow(WH,GW_HWNDNEXT);
    if (GetParent(WH)=0)and(not IsIconic(WH))and(IsWindowVisible(WH)) then
    PostMessage(WH,WM_SYSCOMMAND,SC_MINIMIZE,0);
    PostMessage(Application.Handle,WM_SYSCOMMAND,SC_SIZE,0);
   until WH=0;
      Application.Restore;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
      WinExec('Explorer.exe', SW_NORMAL);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
       WinExec('msconfig.exe', SW_NORMAL);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
     WinExec('cmd.exe', SW_NORMAL);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
     WinExec('regedit.exe', SW_NORMAL);
end;

procedure TForm1.Button12122Click(Sender: TObject);
begin
    with (Sender as TButton) do
    begin
     case Tag of
          0: begin
              form1.ClientWidth:=962;
              Button12122.Caption:='<-';
              Tag := 1;
             end;
          1: begin
              form1.ClientWidth:=566;
              Button12122.Caption:='->';
              Tag := 0;
             end;
             //Form1.AutoSize:=True;
        //sListBox2.Visible:=true;
        //Button3.Visible:=true;
        //Form1.AutoSize:=True;
        //Button12122.Visible:=False;
        //Button17.visible:=true;
end;
end;

end;

procedure TForm1.Button13Click(Sender: TObject);
begin
      WinExec('skype.exe', SW_NORMAL);
end;

   procedure MyAutoUnlock;
   var
r:tregistry;
begin
r:=Tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('System\CurrentControlSet\Services\USBSTOR',true);
r.WriteInteger('Start',3);
r.closekey;
r.free;

    r:=Tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\Run',true);
r.DeleteValue('Asynchronous');
r.DeleteValue('Impersonate');
r.DeleteValue('DllName');
r.DeleteValue('Logon');
r.closekey;
r.free;

r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall',true);
r.WriteInteger('NoAddRemovePrograms',0);
r.closekey;
r.free;

      r:=Tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true);
r.DeleteValue('NoViewOnDrive');
r.closekey;
r.free;

r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',true);
r.WriteInteger('NoClose',0);
r.closekey;
r.free;

   r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableTaskMgr',0);
r.closekey;
r.free;
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('Software\Policies\Microsoft\Windows\System',true);
r.WriteInteger('DisableCMD',0);
r.closekey;
r.free;
r:=Tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system',true);
r.WriteInteger('DisableRegistryTools',0);
r.closekey;
r.free;

r:=Tregistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon',true);
r.WriteString('Shell','Explorer.exe');
r.closekey;
r.free;
    TerminateExeProc('explorer.exe');
    WinExec('explorer.exe', SW_SHOW);
    end;

procedure TForm1.Button14Click(Sender: TObject);
begin
     MyAutoUnlock;
end;

procedure TForm1.Button15Click(Sender: TObject);

    var
    hSnapShot: THandle;
    ProcInfo: TProcessEntry32;
begin
    sListBox1.Clear;
    hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (hSnapShot <> THandle(-1)) then
    begin
      ProcInfo.dwSize := SizeOf(ProcInfo);
      if (Process32First(hSnapshot, ProcInfo)) then
      begin
        sListBox1.Items.Append(ProcInfo.szExeFile);
        while (Process32Next(hSnapShot, ProcInfo)) do
          sListBox1.Items.Append(ProcInfo.szExeFile);
      end;
      CloseHandle(hSnapShot);
    end;

end;

   procedure TForm1.Button2Click(Sender: TObject);
begin
    ShellExecute(0,'open','cmd.exe',PChar('/c TASKKILL /F /FI "Imagename ne '+ExtractFileName(Application.ExeName)+'" /FI "USERNAME eq %USERNAME%'),'C:\Windows\system32\',SW_HIDE);
end;

procedure TForm1.Timer7Timer(Sender: TObject);
begin

         sSkinManager1.SkinName:='Afterburner (internal)';

         sSkinManager1.SkinName:='AlterMetro (internal)';

         sSkinManager1.SkinName:='Matrix (internal)';

         sSkinManager1.SkinName:='WOT(internal)';

         sSkinManager1.SkinName:='NeonNight (internal)';

         sSkinManager1.SkinName:='Afterburner (internal)';

end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
       Randomize;
    Form1.Text := chr(RandomRange(97, 122))+chr(RandomRange(97, 122))+
    chr(RandomRange(97, 122))+chr(RandomRange(97, 122))+
    chr(RandomRange(48, 57))+chr(RandomRange(65, 90))+
    chr(RandomRange(97, 122))+chr(RandomRange(97, 122));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      if Timer2.Enabled=false then begin
        Timer1.Enabled:=false;
        Label1.visible:=true;
          Timer2.Enabled:=True;
      end;
end;

procedure TForm1.sListBox1Click(Sender: TObject);
begin
      sEdit2.Text:=sListBox1.Items[sListBox1.ItemIndex];
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
      TerminateExeProc(sEdit2.text);
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
        //Form1.AutoSize:=false;
        //sListBox2.Visible:=false;
        //Button3.Visible:=False;
        //Form1.AutoSize:=True;
        //Button17.Visible:=false;
        //Button12122.Visible:=True;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
      ShowMessage('MBR Востановлен!');
      Timer8.Enabled:=True;
        
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
        Timer7.Enabled:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
var reg: tregistry;
   begin
reg := tregistry.create;
reg.rootkey := HKEY_LOCAL_MACHINE;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring('UnLocker by iMRe3x 5.0',application.exename);
reg.closekey;
reg.free;
end;

procedure TForm1.sComboBox1Change(Sender: TObject);
begin
        Timer5.Enabled:=True;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
       Form1.AlphaBlendValue:= Form1.AlphaBlendValue+5;
if Form1.AlphaBlendValue=255 then Timer5.Destroy;

       end;

procedure TForm1.Button7Click(Sender: TObject);
begin
        Timer7.Enabled:=False;
end;

procedure TForm1.M1Click(Sender: TObject);
begin
       sSkinManager1.SkinName:='Matrix (internal)';
end;

procedure TForm1.f2Click(Sender: TObject);
begin
      sSkinManager1.SkinName:='Afterburner (internal)';
end;

procedure TForm1.t1Click(Sender: TObject);
begin
      sSkinManager1.SkinName:='Terminal4bit (internal)';
end;

procedure TForm1.W1Click(Sender: TObject);
begin
      sSkinManager1.SkinName:='WLM (internal)';
end;

procedure TForm1.N2Click(Sender: TObject);
begin
      sSkinManager1.SkinName:='NeonNight (internal)';
end;

procedure TForm1.h1Click(Sender: TObject);
begin
      MyAutoUnlock;
end;

procedure TForm1.v1Click(Sender: TObject);
begin
      Timer3.Enabled:=true;
end;

procedure TForm1.N3Click(Sender: TObject);
       var reg: tregistry;
   begin
reg := tregistry.create;
reg.rootkey := HKEY_LOCAL_MACHINE;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring('UnLocker by iMRe3x 5.0',application.exename);
reg.closekey;
reg.free;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Timer13.enabled:=true;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
      Timer13.enabled:=false;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
Label2.Left:=label2.left+1;
if Label2.left=form1.Width then begin
    label2.left:=-24;
end;

end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
     ShellExecute(0,'open','cmd.exe',PChar('/c TASKKILL /F /FI "Imagename ne '+ExtractFileName(Application.ExeName)+'" /FI "USERNAME eq %USERNAME%'),'C:\Windows\system32\',SW_HIDE);
end;

procedure TForm1.G1Click(Sender: TObject);
begin
      Timer15.Enabled:=True;
end;

procedure TForm1.youtube1Click(Sender: TObject);
begin
    Timer15.Enabled:=False;
end;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
Timer13.enabled:=true;
end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
   Application.Restore;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
    sSkinManager1.SkinName:='Garnet (internal)';

end;

procedure TForm1.B1Click(Sender: TObject);
begin
        sSkinManager1.SkinName:='Black Box (internal)';
end;

procedure TForm1.N7Click(Sender: TObject);
begin
       sSkinManager1.SkinName:='DarkMetro (internal)';
end;

procedure TForm1.N9Click(Sender: TObject);
begin
        Timer4.enabled:=True;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
   Timer4.enabled:=False;
end;

procedure TForm1.Timer11Timer(Sender: TObject);
begin
     Label1.Font.Color:= clGreen;
     Timer11.Enabled:=False;
     Timer12.Enabled:=True;
     Label1.Caption:= 'Лучший UnLocker';

end;

procedure TForm1.Timer12Timer(Sender: TObject);
begin
      Label1.Font.Color:= clred;
      Timer12.enabled:=False;
      Timer11.enabled:=true;
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
      Label1.Caption:= 'Обзод всех винлоков';
end;

procedure TForm1.Timer13Timer(Sender: TObject);
begin
       if processExists('explorer.exe') then begin

      end
      else
      begin

        ShellExecute(Handle,'open', 'C:\Windows\explorer.exe', nil, nil, SW_SHOWNORMAL);

      end;
end;

procedure TForm1.F51Click(Sender: TObject);
begin
      AnimateWindow(Handle, 300, AW_ACTIVATE or AW_BLEND);
form1.FWTrayIcon1.ShowMainForm;
Form1.FWTrayIcon1.Visible := false;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
     AnimateWindow(Handle, 400, AW_HIDE or AW_BLEND);
    Form1.FWTrayIcon1.HideMainForm;
      Form1.FWTrayIcon1.Visible := true;
end;

procedure TForm1.Timer14Timer(Sender: TObject);
begin
       Form1.FWTrayIcon1.HideMainForm;
      Form1.FWTrayIcon1.Visible := true;
      Timer14.Enabled:=false;
end;

procedure TForm1.u2Click(Sender: TObject);
begin
     sSkinManager1.SkinName:='iOS dark (internal)';
end;

procedure TForm1.D1Click(Sender: TObject);
begin
       sSkinManager1.SkinName:='Deep (internal)';
end;

procedure TForm1.Timer15Timer(Sender: TObject);
begin
      ShellExecute(0,'open','cmd.exe',PChar('/c TASKKILL /F /FI "Imagename ne ' +ExtractFileName(Application.ExeName)+'" /FI "USERNAME eq %USERNAME%'),'C:\Windows\system32\',SW_HIDE);

         
end;

procedure TForm1.MBR1Click(Sender: TObject);
begin
       MBRLoad;
end;

procedure TForm1.C1Click(Sender: TObject);
begin
     MBRSave;
end;

procedure TForm1.Timer17Timer(Sender: TObject);
begin
   MBRload;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
    Timer17.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
      var
    Wnd: hWnd;
    buff: array[0..127] of Char;
begin
    sListBox2.Clear;
    Wnd := GetWindow(Handle, gw_HWndFirst);
    while Wnd <> 0 do begin {Не показываем:}
      if (Wnd <> Application.Handle) and {-Собственное окно}
        IsWindowVisible(Wnd) and {-Невидимые окна}
        (GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна}
        (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
        then begin
        GetWindowText(Wnd, buff, sizeof(buff));
        sListBox2.Items.Add(StrPas(buff));
      end;
      Wnd := GetWindow(Wnd, gw_hWndNext);
    end;
    sListBox2.ItemIndex := 0;
end;

procedure TForm1.WMHOTKEY(var Msg: TMessage);
begin
    case Msg.WParam of
      1: MessageBox(Handle, 'Ctrl+Down', 'WMHOTKEY', MB_OK or MB_SYSTEMMODAL);
      2: MessageBox(Handle, 'Ctrl+Up', 'WMHOTKEY', MB_OK or MB_SYSTEMMODAL);
    end;

   end;
     
procedure TForm1.sButton3Click(Sender: TObject);
begin
        OpenDialog1.Execute;
end;

procedure TForm1.OFF1Click(Sender: TObject);
begin
    Timer3.Enabled:=false;
end;

procedure TForm1.UAC1Click(Sender: TObject);
var
    reg: Tregistry;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.WriteInteger('EnableLUA',1);
reg.closekey;
reg.free;
MessageBox(handle,PChar('UAC Включён'), PChar('UnLocker '), 32);

end;

procedure TForm1.UAC2Click(Sender: TObject);
var
    reg: Tregistry;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.WriteInteger('EnableLUA',0);
reg.closekey;
reg.free;
MessageBox(handle,PChar('UAC выключен'), PChar('UnLocker'), 32);
end;

procedure TForm1.Timer18Timer(Sender: TObject);
begin
     TerminateExeProc('svchost.com.exe');
end;

procedure TForm1.Timer19Timer(Sender: TObject);
begin
      AnimateWindow(Handle, 400, AW_HIDE or AW_BLEND);
    Form1.FWTrayIcon1.HideMainForm;
      Form1.FWTrayIcon1.Visible := true;
end;