Шпион Клавиатуры

[Killbrum]

Как можна программно заблокировать клавишы Alt+tab, ctr+c, ctr+v ? Я просто делаю античит. Но там есть уязвимости. И мне например надо чтоб пользователи немогли скопировать один файл. Как это можна зделать? Помогите пожалуйста!

[eoln]

ctr+c, ctr+v - я так понимаю это команды копирования файла? Запрещать их - это не выход. Есть ещё и многие другие способы копирования (хотя бы перетаскивание мыши). На счёт Alt+tab - для перехода по таскбару есть ещё и комбинация с шифтом, к тому же окно можно свернуть множеством способов. Совершенно не ясно что за файл и откуда его нельзя копировать, и нужен ли этот файл программе или это просто кряк, но можно запретить доступ к файлу.

var
  mode_: cardinal;
begin
  mode_ := fmShareExclusive;
  sysutils.FileOpen('имя_файла', mode_)
end;

[Killbrum]

Дело в том что мы ставим сервер. И нам надо сделать так чтоб на него можна было зайти только через лаунчер, в котором вмонтирован античит. При нажатии в лаунчере кнопки "Старт" происходит разпаковка из лаунчера в папку игры игрового запускающего файла. И сразу идет запуск. Сорцов от того файла у меня нет. И нам надо както сделать чтоб лаунчер ( в котором висит античит) всегда был запущен когда запущена игра. В принцепе все хорошо. Но любой может свернуть игру (когда она уже запущена) и скопировать этот файл. А после вобще не запускать лаунчер, и играть с читами. Потому я и хочу чтоб както запретить копирование запускного файла. И сделать чтоб игру без лаунчера нельзя было запустить

[eoln]

Делаем так
1) Распаковали из лаучера (например игра.exe)
2) Запустили игра.exe
3) Запрещаем доступ
var
mode_: cardinal;
begin
mode_ := fmShareExclusive;
FILEINDEX:=sysutils.FileOpen('игра. exe', mode_)
end;
4) отслеживаем завершение программы игра.exe и выполняем снятие защиты (sysutils.FileClose(FILEINDEX)), а затем удаляем игра.exe

Но, надо следить чтобы лаучер не выключали через диспетчер или подобные программы, к тому же потом undelet'ом можно восстановить данные - чтобы этого не произошло перед удалением надо изменить несколько байтов в файле игра.exe (например первые 1024 заменит нулями)

[Killbrum]

А как тогда бинарно или шестнадцатирично изменять байты?

[Killbrum]

Может ктото помочь?

[eoln]

var
  f: file of byte;
  b: byte;
begin
  b := 0; //0..255
  assign(f, 'имя_файла');
  reset(f);
  seek(f, 1); //переход на позицию
  write(f, b); //запись в файл
  closefile(f)
end;

[Killbrum]

[DCC Error] Unit1.pas(40): E2010 Incompatible types: 'TPersistent' and 'Text'

[JTG]

assignFile(f, 'имя_файла');

[Killbrum]

о щас все работает ))))) оно затирает то что программа для винды ))))

А в ShellExecute можна так выставить? Ну чтобы fmShareExclusive?