16,749
社区成员
发帖
与我相关
我的任务
分享
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RzLabel, ExtCtrls, jpeg, RzPanel, Mask, RzEdit, RzBtnEdt,
RzButton, FileCtrl, Registry,ShellAPI;
type
TForm1 = class(TForm)
Image1: TImage;
RzLabel1: TRzLabel;
RzLabel2: TRzLabel;
RzLabel3: TRzLabel;
RzGroupBox1: TRzGroupBox;
RzButtonEdit1: TRzButtonEdit;
RzButtonEdit2: TRzButtonEdit;
RzBitBtn1: TRzBitBtn;
FileOpenDialog1: TFileOpenDialog;
procedure RzButtonEdit1ButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RzBitBtn1Click(Sender: TObject);
procedure RzButtonEdit2ButtonClick(Sender: TObject);
private
{ Private declarations }
public
procedure SeekDir;
{ Public declarations }
end;
var
Form1: TForm1;
Ddir: string;
implementation
{$R *.dfm}
procedure TForm1.SeekDir;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Uninstall\', false);
if reg.KeyExists('Embarcadero RAD Studio 2010') then
if reg.KeyExists('RAD Studio') then
begin
RzLabel1.Caption := '版本: Embarcadero RAD Studio 2010 & RAD Studio';
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Uninstall\Embarcadero RAD Studio 2010', false);
ddir:='"'+reg.ReadString('installLocation')+'\bin\brcc32'+'"';
end
else
RzLabel1.Caption := '版本: Embarcadero RAD Studio 2010'
else if reg.KeyExists('RAD Studio') then
begin
RzLabel1.Caption := '版本: RAD Studio';
ddir:='"'+reg.ReadString('installLocation')+'\bin\brcc32'+'"';
end;
reg.Destroy;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SeekDir;
end;
procedure TForm1.RzBitBtn1Click(Sender: TObject);
var
SPath,EPath,S:string;
begin
SPath:=' "'+RzButtonEdit1.Text+'"';
EPath:=' "'+RzButtonEdit2.Text+'"';
S:=' /k '+ddir+spath+epath ;
ShellExecute(Handle,nil,'cmd.exe',PWideChar(s),nil,SW_SHOW);
// ShowMessage(s);
end;
procedure TForm1.RzButtonEdit1ButtonClick(Sender: TObject);
var
sdir: string;
begin
if FileOpenDialog1.Execute then
begin
RzButtonEdit1.Text := FileOpenDialog1.FileName;
RzButtonEdit2.Text := ExtractFilePath(FileOpenDialog1.FileName);
end;
end;
procedure TForm1.RzButtonEdit2ButtonClick(Sender: TObject);
begin
if FileOpenDialog1.Execute then
RzButtonEdit2.Text := FileOpenDialog1.FileName;
end;
end.