Сегодня Воскресенье | Дата: 19.11.2017 | Время: 22:47
Доброго времени суток, Гость! Авторизуйся или зарегистрируйся
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » ОБЩЕНИЕ » Общий раздел » Полезные скрипты для Delphi 7
Полезные скрипты для Delphi 7
Вторник, 23.12.2014, 19:12
Mr_Diamond
Регистрация: 28.11.2014
Сообщения: 3
Статус сети:
Репутация:
Награды:
0
Замечания:
Всем доброго дня суток! Представляю вам скрипты для программы 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;

Форум » ОБЩЕНИЕ » Общий раздел » Полезные скрипты для Delphi 7
Страница 1 из 11
Поиск:

  Яндекс.Метрика Индекс цитирования
Copyright © 2014 | Хостинг от uCoz