античит

[silveran]

Сообщение от *PB*

Программа проверяет наличие файла в одной папке с исполняемым файлом если есть, то запускает.

Prog.s = ProgramFilename() ; Абсолютный путь к запущенному EXE.
Path.s = GetPathPart(Prog) ; Папка в которой находится работающая программа.

If FileSize(Path+"pr10.exe") >= 0 ; Файл существует на диске.
  RunProgram(Path+"pr10.exe")     ; Запуск программы.
Else
  MessageRequester("", "На диске нет файла"+Chr(10)+Path+"pr10.exe")
EndIf

Как находить работающие процессы (программы) и убивать их, показывал в предыдущем примере.

спасибо большое.. выручили.. шас буду експерементировать
ещё раз благодарю.
ЗЫ
походу тут 99% сидят лингвистов и острословов балагуров. делов то оказалось на мизер, а флуда на тонну(( чтож всем кто помог желаю удачи, остальным идти лесом!!

[Маггок]

Костя я чет непонял твою анти-читовскую програмку..
Ток что переустановил комп

1.у мня нету не каких прог на игру
2.гружу игру и без конечные ошыбки с твоими файлами pr20.exe pr17.exe pr10.exe
3.че мне зделать чтоб я мог играть?