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.