Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:24 PM
Начало » Статьи » Мои статьи

Патч для Hitman2:Sillent Assassin
Патч для Hitman.

Создаем Форму помещаем на ней 3 кнопки:
1) Активировать чит код;
2) Деактивировать чит код;
3) Выход.
У кнопки 1 в свойстве Name указываем Activate
У кнопки 2 в свойстве Name указываем Deactivate
У кнопки 3 в свойстве Name указываем Exit
unit Patch;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Activate: TButton;
Deactivate: TButton;
Exit: TButton;
procedure ActivateClick(Sender: TObject);
procedure DeactivateClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ActivateClick(Sender: TObject);
var
f:TStrings;
begin
f:=TStringList.Create();
f.LoadFromFile('D:\Games\Hitman2\hitman2.ini'); \\ Загружаем файл ‘hitman2.ini’
f.Add('EnableCheats 1'); \\ Добавляем строку ‘Enable Cheats 1’
f.SaveToFile('D:\Games\Hitman2\hitman2.ini'); \\ Сохраняем файл в ‘hitman2.ini’
f.Free; \\ Освобождаем память
end;

procedure TForm1.DeactivateClick(Sender: TObject);
var
f1:TStrings;
i:integer; \\ Счетчик
begin
f1:=TStringList.Create();
f1.LoadFromFile('D:\Games\Hitman2\hitman2.ini'); \\ Загружаем файл ‘hitman2.ini’
for i:=0 to f1.Count-1 do \\ Запускаем цикл
begin
if f1.Strings[i]='EnableCheats 1' then \\ Если найдена строка с текстом (Enable Cheats 1), то
f1.Delete(i); \\ Удаляем ее
end;
f1.SaveToFile('D:\Games\Hitman2\hitman2.ini'); \\ Сохраняем в файл ‘hitman2.ini’
f1.Free; \\ Освобождаем память
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
close; \\ Выход
end;

end.

Категория: Мои статьи | Добавил: Admin (2006-12-18)
Просмотров: 1834 | Комментарии: 1 | Рейтинг: 0.0 |

Всего комментариев: 1
0
1 3BEPEK   [Материал]
Не... ну не позорься ты ради бога...

Имя *:
Email *:
Код *: