Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Определить тип EXE-файла

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

 function GetEXEType(FileName: string): string;
 var
   BinaryType: DWORD;
 begin
   if GetBinaryType(PChar(FileName), Binarytype) then
     case BinaryType of
       SCS_32BIT_BINARY: Result := 'Win32 executable';
       SCS_DOS_BINARY: Result   := 'DOS executable';
       SCS_WOW_BINARY: Result   := 'Win16 executable';
       SCS_PIF_BINARY: Result   := 'PIF file';
       SCS_POSIX_BINARY: Result := 'POSIX executable';
       SCS_OS216_BINARY: Result := 'OS/2 16 bit executable'
         else
           Result := 'unknown executable'
     end
   else
     Result := 'File is not an executable';
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   label1.Caption := GetEXEType('c:\windows\notepad.exe');
 end;


 { 
 Windows NT/2000: Requires Windows NT 3.5 or later. 
 Windows 95/98: Unsupported. 
}

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.