Вторник, 23.12.2014, 19:12
|
|
|
Всем доброго дня суток! Представляю вам скрипты для программы Delphi 7, которых еще не было на этом форуме. Надеюсь вам все понравится. В сборку входит: • Защита по имени процесса • Смена всех скинов одной кнопкой • Смена цвета скина • Поверх всех окон Видео демонстрация: // Защита по имени процесса uses TlHelp32, 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; //Скрипт защиты по имени процесса (на таймер) if processExists('Имя процесса.exe') then Application.Destroy; // Диалог выбора скинов uses acSelectSkin, SelectSkin(sSkinManager1); // Поверх всех окон if sCheckBox1.Checked = True then Form1.FormStyle := fsStayOnTop; if sCheckBox1.Checked = False then Form1.FormStyle := fsNormal; // Смена цвета скина (на TrackBar или на ScrollBar) sSkinManager1.HueOffset := sTrackBar1.Position;
|
|