Эми программаны ачып берейин. Программаны ДЕЛФИ 5 тилинде жасадым негизги коду тъмъндъгџчъ: (// кийин келџџчџ сєздєр тџшџндџрмєлєр же программа тили менен айтканда комментарийлер)
unit USetup; // модульдун аты
interface
uses // башка модульдарды жџктєє
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,WinProcs, ShellAPI, RxCombos, AHMSystemClass, AHMTSystemManager,
ComCtrls, Buttons, RXCtrls;
Type // типтерди аныктоо
TMainForm = class(TForm)
GroupBox1: TGroupBox;
Label5: TLabel;
Label_SDIR: TLabel;
Label6: TLabel;
Label_SYSDIR: TLabel;
AHMSystemManager1: TAHMSystemManager;
BitBtnOrnot: TBitBtn;
BitBtnExit: TBitBtn;
StatusBar1: TStatusBar;
RxLabel1: TRxLabel;
Label1: TLabel;
Label_FDIR: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtnOrnotClick(Sender: TObject);
procedure BitBtnExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
var S_Dir:string; //Учурда программа жуктолгон католог
Sys_Dir:string; //Системалык католог
Font_Dir:string; //Шрифтер катологу
{$R *.DFM}
// керектџџ баштыктарды табуу процедурасы
procedure TMainForm.FormCreate(Sender: TObject);
var
pcSystemDirectory,pcWindowsDirectory: PChar;
dwSDSize : DWORD;
begin
GetDir(0,S_Dir); //Учурда программа жуктолгон католог
//Системалык катологду табуу
dwSDSize := MAX_PATH + 1;
GetMem( pcSystemDirectory, dwSDSize );
try
if Windows.GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
Sys_Dir:=pcSystemDirectory;
finally
FreeMem( pcSystemDirectory );
end;
//Windows катологуyy табуу
dwSDSize := MAX_PATH + 1;
GetMem( pcWindowsDirectory, dwSDSize );
try
if Windows.GetWindowsDirectory( pcWindowsDirectory, dwSDSize ) <> 0 then
Font_Dir:=pcSystemDirectory;
finally
FreeMem( pcSystemDirectory );
end;
Font_Dir:=Font_Dir+'\Fonts';
end;
// баштыктар жєнџндє маалыматты колдонуучуга чагылдыруу
procedure TMainForm.FormActivate(Sender: TObject);
begin
Label_SDIR.Caption:=S_Dir;
Label_FDIR.Caption:=Font_Dir;
Label_SYSDIR.Caption:=Sys_Dir;
end;
// негизги процедура баскычтарды кєчџрџџ жана орнотуу
procedure TMainForm.BitBtnOrnotClick(Sender: TObject);
var s1,s2:string;
p1,p2:PChar;
i:integer;
begin i:=0;
// kbdinall.dll файлын орнотуу
s1:=S_Dir+'\kbdinall.dll';
s2:=SYS_Dir+'\kbdinall.dll';
p1:=PChar(s1);p2:=PChar(s2);
CopyFile(p1,p2,false);
// Шрифтерди орнотуу
s1:=S_Dir+'\0jana_.ttf'; s2:=Font_Dir+'\0jana_.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jana_.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jana_b.ttf'; s2:=Font_Dir+'\0jana_b.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jana_b.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jana_bi.ttf'; s2:=Font_Dir+'\0jana_bi.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jana_bi.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jana_i.ttf'; s2:=Font_Dir+'\0jana_i.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jana_i.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0janc_.ttf'; s2:=Font_Dir+'\0janc_.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0janc_.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0janc_b.ttf'; s2:=Font_Dir+'\0janc_b.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0janc_b.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0janc_bi.ttf'; s2:=Font_Dir+'\0janc_bi.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0janc_bi.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0janc_i.ttf'; s2:=Font_Dir+'\0janc_i.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0janc_i.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jant_.ttf.ttf'; s2:=Font_Dir+'\0jant_.ttf.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jant_.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jant_b.ttf'; s2:=Font_Dir+'\0jant_b.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jant_b.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jant_bi.ttf'; s2:=Font_Dir+'\0jant_bi.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jant_bi.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
s1:=S_Dir+'\0jant_i.ttf'; s2:=Font_Dir+'\0jant_i.ttf';p1:=PChar(s1);p2:=PChar(s2);CopyFile(p1,p2,false);
if AddFontResource('0jant_i.ttf'
![Подмигивание Подмигивание](./im/emoticons/ironical1.gif)
=1 then inc(i);
// kbdinall_ru.reg файлын аткартуу
ShellExecute(handle, 'open','kbdinall_ru.reg' , '','', SW_SHOWNORMAL);
if i>=12 then RxLabel1.Caption:='Баскычтар ийгиликтуу орнотулду!';
BitBtnOrnot.Enabled:=False;
end;
// программадан чыгуу
procedure TMainForm.BitBtnExitClick(Sender: TObject);
begin
Close;
end;
// компьютерди єчџрџп-жандырууну уюштуруу
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AHMSystemManager1.CallShutdown;
end;
end.