Определить, установлен ли Macromedia Flash

Delphi , Графика и Игры , Векторная графика

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

program SeekFlash;

 uses
   Forms, Windows, INIFiles, SysUtils, Dialogs, ShellApi;

 {$R *.RES}

 type
   TVersionInfo = record
     dwSignature,
     dwStrucVersion,
     dwFileVersionMS,
     dwFileVersionLS,
     dwProductVersionMS,
     dwProductVersionLS,
     dwFileFlagsMask,
     dwFileFlags,
     dwFileOS,
     dwFileType,
     dwFileSubtype,
     dwFileDateMS,
     dwFileDateLS: DWORD;
   end;


 var
   //Reg:TRegistry; 
  Ini: TIniFile;
   Text: array[1..4] of string;

   AppPath, IniFile, MySec: string;
   SetupFile, RunFile, SetupClass: string;

   VersionStr, BrowserStr: string;

   {RegSubKey,} OpenBrowser, PlugInName, UseExt: string;
   MainVersion: Word;
   // FoundOne :Boolean; 

  PVer, DPchar, POpenBrowser: PChar;
   MyPoint: Pointer;
   PLen: Cardinal;
   version: ^TVersionInfo;
   DumD: DWORD;
   LWord, HWord: Word;

   CheckHandle: Hwnd;

   //--------------------------- 
  //Gets the Plugin (file-) Version 
  //--------------------------- 
procedure GetVersion(pluginName: string);
 begin
   DPChar := StrAlloc(255);
   DPchar := PChar(PluginName);

   PVer := StrAlloc(getFileVersionInfoSize(DPchar, Plen));
   getFileVersionInfo(DPChar, 0, 255, PVer);
   VerQueryValue(Pver, '\', MyPoint, Plen);

   Version := myPoint;

   dumD  := Version.dwFileVersionMS;
   hword := dumD shr 16;
   lword := dumD and 255;

   MainVersion := hword;
   VersionStr  := IntToStr(Hword) + '.' + IntToStr(LWord);

   dumD  := Version.dwFileVersionLs;
   hword := dumD shr 16;
   lword := dumD and 255;

   versionStr := versionStr + '.' + IntToStr(Hword) + '.' + IntToStr(lWord);
 end;

 begin
   appPath := extractFileDir(Application.exeName);


   // runFile:= 'test.htm'; 
  //runFile must be a html File to determin wich browser(NC or IE) is used 
  POpenBrowser := StrAlloc(255);
   FindExecutable(PChar(extractFileName(runFile)),
     PChar(extractFileDir(runFile)), POpenBrowser);
   OpenBrowser := POpenBrowser;

   if not Fileexists(openBrowser) then
   begin
     MessageDlg(Text[4], mtInformation, [mbOK], 0);
     halt;
   end;


   //set the FileLocations for Netscape or IE 
  if Pos('NETSCAPE.EXE', uppercase(trim(OpenBrowser))) <> 0 then
   begin //found Netscape 
    BrowserStr := 'Netscape Comunicator';
     PlugInName := Copy(OpenBrowser, 1, Pos('NETSCAPE.EXE',
       uppercase(trim(OpenBrowser))) - 1);
     PluginName := PlugInName + 'Plugins\NPSWF32.dll';
   end
   else
   //found IEExplorer 
  begin
     BrowserStr := 'Internet Explorer';

     DPChar := StrAlloc(255);
     GetSystemDirectory(DPChar, 255);
     PluginName := DPChar + '\Macromed\Flash\swflash.ocx';
     DPChar     := nil;
   end;

   GetVersion(pluginName);

   //returned Version Number, may be checked 
  while mainVersion < 4 do
   begin
     if messagedlg(Text[2], mtInformation, [mbYes, mbNo], 0) = 6 then
     begin
       //installFlash; 
    end
     // if message 
    else
       halt;

     getVersion(pluginName);
   end; // while mainVer 
end.

Программа на языке Delphi, которая проверяет, установлен ли Macromedia Flash (Adobe Flash Player) на системе и спрашивает пользователя о его установке, если он не установлен.

Вот разбивка кода:

1. Процедура GetVersion получает номер версии указанного плагина (Macromedia Flash). Она использует функцию Windows API GetFileVersionInfo, чтобы получить информацию о файловой версии, а затем парсит номера версий из записи TVersionInfo.
2. Основной программный код сначала извлекает путь к директории исполняемого файла с помощью функции ExtractFileDir.
3. Затем он пытается найти исполнительный файл браузера (Netscape или Internet Explorer), поиском файла с именем NETSCAPE.EXE или iexplore.exe. Если найден, то устанавливает переменную BrowserStr соответственно.
4. В зависимости от обнаружения Netscape или Internet Explorer программа устанавливает имя плагина в either NPSWF32.dll (для Netscape) или swflash.ocx (для Internet Explorer).
5. Процедура GetVersion вызывается с именем плагина как аргументом, чтобы получить его номер версии.
6. Если основной номер версии меньше 4, программа спрашивает пользователя о установке Flash с помощью диалогового окна сообщения. Пользователь может выбрать установку или отмена. Если пользователь выбирает установку, то процедура installFlash (не показанная в этом коде) будет вызвана. В противном случае программа завершается.

Программа использует несколько функций Windows API, включая:

• GetFileVersionInfo
• ExtractFileDir
• FindExecutable
• ExtractFileName

Обратите внимание, что этот код является специфичным для Delphi и может не работать в том виде на других платформах.

Определить, установлен ли Macromedia Flash на компьютере, и если нет, предложить установку.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Векторная графика ::