|
Вторник, 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;
|
|
