function TForm1.IsPE(f_name: string): boolean;
Var
buf: array[0..3] of char;
f : file;
begin
AssignFile(f,f_name);
{$i-}
Reset(f);
if IOResult<>0 then exit;
{$i+}
BlockRead(f,buf,2);
if (ord(buf[0])+ord(buf[1]))<>$4D5A then
Result:=false;
CloseFile(f);
end;

При выполнении этой процедуры Delphi выдает ошибку "Access Violation"!
А при запуске из Винды прога закрывается!
В чем ошибка???????

| Сообщение посчитали полезным:

Приведи пример использования ф-и

| Сообщение посчитали полезным:

А втом самом AssignFile. Используй лучше FileOpen(PCHar('MyFile.exe'),fmShareDenyNone). В личку я тебе про это уже писал.
Вообще с таким вопросами обращайся лучше www.delphimaster.ru. Тематика форума здесь несколько иная.

| Сообщение посчитали полезным:

YDS пишет:
Используй лучше FileOpen(PCHar('MyFile.exe'),fmShareDenyNone)
Дело скорее всего не в этом, AssignFile использовал много раз, все шло гладко.

ЗЫ: AssignFile работает немного быстрее чем FileOpen

АФФТАР выложи сорец или хотяб пример использования, проверю

| Сообщение посчитали полезным:

sniperZ вот так попробуй

f : file of byte;

либо так

Reset(f,1);

Все будет работать.

-----
StarForce и Themida ацтой!

| Сообщение посчитали полезным:

Спасибо,Maximus!!!
Reset(f,1);-работает!!!
Тему можно закрывать.

| Сообщение посчитали полезным:

работает, то работает... но я бы не советовал использовать паскалевский
метод доступа, хотя бы потоки заюзай или как советовал YDS, меньше
проблем будет

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

Лутше юзать createfilea/readfilea, при чтении с сидюков траблы не будет и ваще быстрее

| Сообщение посчитали полезным:

Luminescent пишет:
Лутше юзать createfilea/readfilea, при чтении с сидюков траблы не будет и ваще быстрее
А какие траблы? Не разу не слышал. Объясни.

| Сообщение посчитали полезным:

Какие траблы? я когда с сидюков читал писало чёто вроде "I/O Error"
Потом сделал на апи всё работало

| Сообщение посчитали полезным:

Hellspawn
Сколько использовал паскалевские методы никогда проблем не возникало, хотя работает медленний, т.к. там полно обработок исключительных ситуаций.

а Reset(f,1); это старая фишка
1 - в данном случае = количеству считываемых и записываемых байт за одну операцию

-----
Подписи - ЗЛО! Нужно убирать!

| Сообщение посчитали полезным:

Сидюк находится на каком то уровне блокировки и читать надо только с флагом SHARE_READ, по крайней мере у меня только так читало.

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

PE_Kill пишет:
Сидюк находится на каком то уровне блокировки и читать надо только с флагом SHARE_READ, по крайней мере у меня только так читало.
Не смеши, заблокирон. Просто все файлы на CD доступны только для чтения и атрибут у всех файлов соответствующий.
А для того чтобы открыть файл только для чтения с помощью AssignFile, нужно переменной FileMode присвоить 0.

| Сообщение посчитали полезным:

nice пишет:
Сколько использовал паскалевские методы никогда проблем не возникало, хотя работает медленний, т.к. там полно обработок исключительных ситуаций.

возмножно, но лучше всё таки юзать апи, быстро и сердито да вообще зачем ему дельфи?
пусть на паскале и пишет (Free Pascal)

-----
[nice coder and reverser]

| Сообщение посчитали полезным:

xShadow А 0 - это не равно fmShareCompat? Я говорил про константу, а не про ее значение.

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным: