Не работает GetBinaryType

← →
AllDontFire (2003-01-30 12:01) [0]

Привет Всем!
Как правильно использовать функцию GetBinaryType?
Если можно, покажите кусок программы.
Заранее спасибо.

← →
Игорь Шевченко © (2003-01-30 12:13) [1]

var
BinaryType : DWORD;

if GetBinaryType(PChar("c:\windows\system\user32.dll", BinaryType) then
....

← →
AllDontFire (2003-01-30 13:39) [2]

Вот, в том то и дело, что этот IF всё время False возвращает.

← →
Anatoly Podgoretsky © (2003-01-30 13:49) [3]

Может ты неверно вызываешь, подумай о телепатии.

← →
AllDontFire (2003-01-30 15:15) [4]

Телепатия это ..external..stdcall.. что-ли?

Так GetBinaryType описана в делфи в модуле Windows,
вызываю сразу, в OnClick.

← →
gsu © (2003-01-30 15:47) [5]

If the file is executable, the return value is nonzero. The function sets the variable pointed to by lpBinaryType to indicate the file"s executable type

← →
Anatoly Podgoretsky © (2003-01-30 15:55) [6]

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

← →
AllDontFire (2003-01-30 17:38) [7]

procedure TForm1.Button4Click(Sender: TObject); var BinaryType : DWORD; begin BinaryType:=0; if GetBinaryType(PChar("c:\1.exe"),BinaryType) then Showmessage(Inttostr(BinaryType)) Else showmessage("error") end;

Всё время выдаёт error.

← →
Игорь Шевченко © (2003-01-30 17:51) [8]

И какой же Error выдается ?

файла нет ?

Где GetLastError?

← →
AllDontFire (2003-01-31 09:50) [11]

GetLastError()=120
Из Windows.pas :
{ This function is only valid in Windows NT mode. }
{$EXTERNALSYM ERROR_CALL_NOT_IMPLEMENTED}
ERROR_CALL_NOT_IMPLEMENTED = 120;

В хелпе GetBinaryType не говорится про GetLastError.
Из Quik info по GetBinaryType:
Win95 NO
Win32s Yes

Под 98-й не работает что ли?

>Под 98-й не работает что ли?

А голова на что дана человеку ?

Не работает GetBinaryType Найти похожие ветки