Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

lock95 © (2004-04-21 17:52:00)
Подскажите уважаемые мастера. Нужно сделать программу которая запускается и проверяет свой файл на контрольную сумму, если сумма не совпадает программа прекращает свою работу (это для отслеживания изменений в своей программе от всяких умников). Проблема в том что получить доступ на чтения самой себя проги не предоставляется возможным… Копирование и последующее чтение не предлагать т.к. очень просто обмануть этот метод…

lock95 (2004-04-22 16:33:00) [1]
Вопрос снят все заработало
Отдельное спасибо VMcL

VMcL (2004-04-21 20:28:00) [2]
>>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);

lock95 (2004-04-21 18:40:00) [3]
Пардон ошибочка

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

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

lock95 (2004-04-21 18:38:00) [4]
Попробую...

clickmaker (2004-04-21 18:35:00) [5]

> 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:21:00) [6]
открываю через
assignFile(f,'c:\dump.dmp');
reset(f,1);
BlockRead(f, Buf, SizeOf(Buf), NumRead);

и т.п.

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

Алхимик (2004-04-21 18:13:00) [7]

> lock95 ©

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

clickmaker (2004-04-21 18:12:00) [8]
А как файл открываешь? код приведи

lock95 (2004-04-21 18:06:00) [9]
Если бы так, я бы не спрашивал
Спасибо…

Anatoly Podgoretsky (2004-04-21 17:55:00) [10]
Неправда, получение доступа на чтение возможно и это единственно возможный режим, если ты не принял конечно мер препятсвующих этому.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »