Как получить доступ к своему же файлу?

← →
lock95 © (2004-04-21 17:52) [0]

Подскажите уважаемые мастера. Нужно сделать программу которая запускается и проверяет свой файл на контрольную сумму, если сумма не совпадает программа прекращает свою работу (это для отслеживания изменений в своей программе от всяких умников). Проблема в том что получить доступ на чтения самой себя проги не предоставляется возможным… Копирование и последующее чтение не предлагать т.к. очень просто обмануть этот метод…

← →
Anatoly Podgoretsky © (2004-04-21 17:55) [1]

Неправда, получение доступа на чтение возможно и это единственно возможный режим, если ты не принял конечно мер препятсвующих этому.

← →
lock95 © (2004-04-21 18:06) [2]

Если бы так, я бы не спрашивал
Спасибо…

← →
clickmaker © (2004-04-21 18:12) [3]

А как файл открываешь? код приведи

← →
Алхимик © (2004-04-21 18:13) [4]

> lock95 ©

Дык умники и проверку контрольной суммы вырежут нафиг.

← →
lock95 © (2004-04-21 18:21) [5]

открываю через
assignFile(f,"c:\dump.dmp");
reset(f,1);
BlockRead(f, Buf, SizeOf(Buf), NumRead);

и т.п.

Умники пускай отдыхают после AspPACа

← →
clickmaker © (2004-04-21 18:35) [6]

> lock95 © (21.04.04 18:21) [5]

hFile := CreateFile("c:\dump.dmp", GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
ReadFile(hFile, Buf, SizeOf(Buf), NumRead, nil);

← →
lock95 © (2004-04-21 18:38) [7]

Попробую...

Пардон ошибочка

assignFile(f,"c:\MyProge.exe");< она стартует и читает себя
reset(f,1);
BlockRead(f, Buf, SizeOf(Buf), NumRead);

Я просто не тот исходник взял

>>lock95 © (21.04.04 18:40) [8]

assignFile(f,"c:\MyProge.exe");< она стартует и читает себя
FileMode := fmOpenRead or fmShareDenyNone;
reset(f,1);
BlockRead(f, Buf, SizeOf(Buf), NumRead);

Вопрос снят все заработало
Отдельное спасибо VMcL

Как получить доступ к своему же файлу? Найти похожие ветки