Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Не работает 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 выдается ?

---

← →
gsu   (2003-01-30 18:05) [9]

файла нет ?

---

← →
Anatoly Podgoretsky   (2003-01-30 18:14) [10]

Где 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-й не работает что ли?

---

← →
Игорь Шевченко   (2003-01-31 10:01) [12]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.008 c