unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetFileVersion(AFileName: String): String;
var
VerInfoSize: DWord;
VerInfo: Pointer;
VerValueSize: DWord;
VerValue: PVSFixedFileInfo;
Dummy: DWord;
begin
Result := '';
VerInfoSize := GetFileVersionInfoSize(PChar(AFileName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(AFileName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
Result := IntTostr(dwFileVersionMS shr 16);
Result := Result + '.' + IntTostr(dwFileVersionMS and $FFFF);
Result := Result + '.' + IntTostr(dwFileVersionLS shr 16);
Result := Result + '.' + IntTostr(dwFileVersionLS and $FFFF);
end;
FreeMem(VerInfo, VerInfoSize);
end;
function IsFlashInstalled: String;
const
KEY_FLASH = 'CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}';
var
reg: TRegistry;
begin
Result := '';
reg := TRegistry.Create(KEY_READ);
with reg do
begin
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey(KEY_FLASH+'\Version', False) then
Result := ReadString('');
CloseKey;
if OpenKey(KEY_FLASH+'\InprocServer32', False) then
Result := Result + ', OCX: '+GetFileVersion(ReadString(''));
finally
CloseKey;
Free
end
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ver: String;
begin
ver := IsFlashInstalled;
if ver <> '' then
ShowMessage('Flash 버전: '+ver)
else
ShowMessage('Flash 설치되어 있지 않음');
end;
end.
|
|
