Автозагрузка шрифтов и новой раскладки клавиатуры

Похоже... очень похоже!

Но я где-то видел касательно визуал_бейсика, как прописываются в реестре фонты..

Как сделать так, чтобы был произведен насильный оверрайт данного фонт_файла?

Вы хотите автомотизировать установку шрифтов. Типа - поставил диск и - суп сварился.
...

На одном компе у меня две Винды МЕ и ХР, два Фотошопа - 7 в МЕ, 8 - в ХР. Одна прога издательская установлена и там, и там.

Эми программаны ачып берейин. Программаны ДЕЛФИ 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'=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'=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'=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'=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'=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'=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'=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'=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'=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'=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'=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'=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.

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000419]
"Layout Text"="Русская"
"Layout File"="kbdinall.dll"

Но новый шрифт не прописался (см. первый рисунок - img )