| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Не работает GetBinaryType [D4, Win95/98]

AllDontFire ©   (2003-01-30 12:01:00) 

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

---

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

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

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

---

AllDontFire   (2003-01-31 09:50:00) [2]

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

---

Anatoly Podgoretsky   (2003-01-30 18:14:00) [3]

Где GetLastError?

---

gsu   (2003-01-30 18:05:00) [4]

файла нет ?

---

Игорь Шевченко   (2003-01-30 17:51:00) [5]

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

---

AllDontFire   (2003-01-30 17:38:00) [6]

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.

---

Anatoly Podgoretsky   (2003-01-30 15:55:00) [7]

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

---

gsu   (2003-01-30 15:47:00) [8]

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

---

AllDontFire   (2003-01-30 15:15:00) [9]

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

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

---

Anatoly Podgoretsky   (2003-01-30 13:49:00) [10]

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

---

AllDontFire   (2003-01-30 13:39:00) [11]

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

---

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

var
BinaryType : DWORD;

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

---

Наверх