Современные технологии разработки программного обеспечения. Сивохин А.В - 15 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

15
type
TIOO = class(TForm)
ListBox1: TListBox;
BtnCancel: TBitBtn;
BitBtn3: TBitBtn;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure BtnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GIO(olenames, progid:tstrings);
private
progids:tstrings;
{ Private declarations }
public
selected_progid:string;
{ Public declarations }
end;
var
IOO: TIOO;
implementation
uses registry;{, oledbu, oleu;}
{$R *. DFM}
procedure tioo. GIO(olenames, progid:tstrings);
var
i:integer;
oletype, clsid:string;
keynames:tstrings;
begin
keynames:=tstringlist. create;
try
with tregistry. create do
try
rootkey:=HKEY_CLASSES_ROOT;
if not openkey('\', false) then exit;
getkeynames(keynames);
with keynames do
for i:=0 to count-1 do 
type
TIOO = class(TForm)
ListBox1: TListBox;
BtnCancel: TBitBtn;
BitBtn3: TBitBtn;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure BtnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure GIO(olenames, progid:tstrings);
private
progids:tstrings;
{ Private declarations }
public
selected_progid:string;
{ Public declarations }
end;
var

IOO: TIOO;
implementation

uses registry;{, oledbu, oleu;}

{$R *. DFM}
procedure tioo. GIO(olenames, progid:tstrings);

var
i:integer;
oletype, clsid:string;
keynames:tstrings;
begin
keynames:=tstringlist. create;
try
with tregistry. create do
try
rootkey:=HKEY_CLASSES_ROOT;
if not openkey('\', false) then exit;
getkeynames(keynames);
with keynames do
for i:=0 to count-1 do
                                   15

Страницы