Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
xmih
Возможно как-то так:
Глобальные функции
Код: function AddItem(sFolderPath)
local nCount = ComboBox.GetCount("ComboBox1");
if (Folder.DoesExist(sFolderPath)) then
local tFilePaths = File.Find(sFolderPath.."\\", "*.txt", false, false, nil, nil);
if (tFilePaths) then
for n, sFilePath in tFilePaths do
sFilename = String.SplitPath(sFilePath).Filename;
for nCount=1, nCount do
if (ComboBox.GetItemText("ComboBox1", nCount) == sFilename) then
bExist = true;
break;
else
bExist = false;
end
end
if (not bExist) then
ComboBox.AddItem("ComboBox1", sFilename, sFilePath);
end
end
end
end
end |
On Show
Код: -- Мониторинг папки с интервалом в 100 мсек
Page.StartTimer(100); |
On Timer
Код: -- Измени на свою папку для мониторинга
AddItem(_SourceFolder); |
On Select ComboBox'a
Код: local nSelected = ComboBox.GetSelected("ComboBox1");
if (nSelected ~= -1) then
local cFilePath = ComboBox.GetItemData("ComboBox1", nSelected);
Paragraph.SetText("Paragraph1", TextFile.ReadToString(cFilePath));
end |
qqwwrr
Если честно, то мне совсем не хочется писать за тебя весь проект, да и времени на ето нету. Тем более, если б ты полистал несколько предыдущих страниц, то заметил бы пост, где приведен код, отображающий некоторые устройства (проц, видеокарта, хард, память и др.).
|
Всего записей: 3266 | Зарегистр. 30-05-2007 | Отправлено: 01:28 21-04-2008 | Исправлено: Zloy_Gelud, 01:37 21-04-2008 |
|
). Так там как раз и выводится список установл. программ. 
