ucompinst.pas

装DevExpress控件时很麻烦,总提示某某控件得先装才行。于是做了这个工具。稍改改就可以用于自己的控件安装了。

unit uCompInst;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Registry, Buttons;

//type

function CloseDelphi: Boolean;

implementation

function ReadRegValue(Key, Name: string; out Value: string): Boolean;
var
  R: TRegistry;
begin
  Result := False;
  Value := '';
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_CURRENT_USER;
    if R.OpenKey(Key, False) then
      if R.ValueExists(Name) then begin
        Value := R.ReadString(Name);
        Result := True;
      end;
  finally
    R.Free;
  end;
end;

function CloseDelphi: Boolean;
begin
  Result := False;
  Exit; //调试时用

  while not Result and ((FindWindow('TAppBuilder', nil) <> 0) or (FindWindow('TAppBuilder', nil) <> 0)) do
  begin
    Application.BringToFront;
    Result := Application.MessageBox('请先关闭所有Delphi环境。', '',
      MB_OKCANCEL + MB_ICONWARNING) = IDCANCEL;
  end;
end;

function IDEDCC32Path: string;
begin
  Result := '';
  ReadRegValue('SOFTWARE\Borland\BDS\4.0', 'App', Result);
  if Result <> '' then
    Result := IncludeTrailingPathDelimiter(ExtractFilePath(Result));
end;

function IDEDCC32File: string;
begin
  Result := IDEDCC32Path;
  if Result<>'' then
  begin
    if FileExists(Result) then Exit;
    Result := '';
  end;
end;

end.