Fpath = Shell.GetFolder(SHF_FONTS);
fonts = File.Find(_SourceFolder.."AutoPlay\\Docs\\Fonts\\Arabic", "*.ttf", false, false, nil, nil);
for i,y in pairs (fonts) do
File.Copy(y, Fpath, false, false, false, true);
split = String.SplitPath(y);
File.Copy(y, Fpath, true, true, false, true, nil);
System.RegisterFont(Shell.GetFolder(SHF_FONTS), split.Filename..split.Extension, true);

ar_selected = CheckBox.GetChecked("ar");
en_selected = CheckBox.GetChecked("en");
os = System.GetOSName();
Fpath = Shell.GetFolder(SHF_FONTS);
-- ÌãíÚ ÍÇáÇÊ ÇáÇÎÊíÇÑÇÊ
-- First Case if User wants to setup en & ar fonts
if ar_selected == true and en_selected == true then
	ar_t = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\Fonts\\Arabic", "*.ttf", false, false, nil, nil);
	en_t = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\Fonts\\English", "*.ttf", false, false, nil, nil);
	all_t = {}
	all_t = ar_t
	total_size = 0
	for a,z in pairs (en_t) do
		Table.Insert(all_t, a, z);
	end
	count = Table.Count(all_t);
	Label.SetText("all", count);
	total_size = 0
	for i,y in pairs (all_t) do
		get_size = File.GetSize(y);
		total_size = total_size + get_size
		end
		total_size = String.GetFormattedSize(total_size, FMTSIZE_AUTOMATIC, true);
		Label.SetText("sz", total_size);
	--------------------------------
	for i,y in pairs (all_t) do
		File.Copy(y, Fpath, false, false, false, true);
		split = String.SplitPath(y);
		File.Copy(y, Fpath, true, true, false, true, nil);
		System.RegisterFont(Shell.GetFolder(SHF_FONTS), split.Filename..split.Extension, true);
		Label.SetText("current_num", i);
		Progress.SetCurrentPos("Progress1", i * 100 / count);
end

fonts_path = Shell.GetFolder(SHF_FONTS);

fonts = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\Fonts\\", "*.TTF", true, true, nil, nil);

for x,y in pairs (fonts) do

File.Copy(y, fonts_path, false, false, false, true);

end

System.RegisterFont

programs = {}
programs[1] = "c:\program files\program1.exe"
programs[2] = "c:\program files\program2.exe"
programs[3] = "c:\program files\program3.exe"
programs[4] = "c:\program files\program4.exe"
programs[5] = "c:\program files\program5.exe"

for i,y in pairs (programs) do
Dialog.Message("Notice",i.."--"..y)
end