Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.49 MB
Время: 0.012 c
4-88301
Timon
2003-01-24 22:12
2003.03.27
Клавиатура !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


14-88152
xxxCrazyManxxx
2003-03-13 02:13
2003.03.27
Help IPScaner


4-88311
Ergoist
2003-01-30 05:01
2003.03.27
Заголовок формы+координаты мыши


1-87899
Andrey V.
2003-03-16 19:57
2003.03.27
Как в TSpeedButtone прижать , скажем , влево caption ?


3-87794
ddd
2003-03-07 12:59
2003.03.27
sql кто на втором месте?