VPF::Как определить - Форум программистов

ChihPih

Дата 26.12.2006, 06:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 3.12.2006

Репутация: нет
Всего: 22

Привет всем!
Подскажите, как определить не запуская приложение какое оно(DOS или Win32)? smile

--------------------

www.info-x.org - информационный ресурс о ОС FreeBSD. Форум.

W4FhLF

Дата 26.12.2006, 09:21 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

Легко, держи:

Код



function IsWin32(Path: pChar): boolean;
var
  idh: PImageDosHeader;
  inh: PImageNtHeaders;
  hFile, BytesReaded: dword;
  Buffer: array [0..512] of Byte;
begin
  Result := False;
  hFile := CreateFile(Path, GENERIC_READ , FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
  if ReadFile(hFile, Buffer, 512, BytesReaded, 0) then
  begin
    idh := @Buffer;
    if idh^.e_magic = IMAGE_DOS_SIGNATURE then
    begin
      inh := pointer(dword(@Buffer) + idh^._lfanew);
      if inh^.Signature = IMAGE_NT_SIGNATURE then Result := True;
    end;
  end;
  CloseHandle(hFile);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  if IsWin32('C:\Program Files\Asm\resrebld.EXE') then
    ShowMessage('This file is Win32 application')
  else
    ShowMessage('This file is not Win32 application')
end;

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

ChihPih

Дата 26.12.2006, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 3.12.2006

Репутация: нет
Всего: 22

Пасибо огромное!

--------------------

www.info-x.org - информационный ресурс о ОС FreeBSD. Форум.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »