Всем привет. нарисовал свой маленький HTA скриптик "файл-браузер".
все файлы будут только - видео (фильмы и мультяшки). написал на замену довольно-таки тяжелому софту "xbmc", задача простая нужно - меню со списком файлов и каталогов в папке(ах). клик - файл открылся в проигрывателе. всё управление хочу заточить на три кнопки "вверх" "вниз" и "ввод" (они эмулируются пультом д/у).
осталось решить два вопроса:
1) что бы ссылки не меняли цвет после "клика"
2) можно ли сделать видимый курсор, чтобы было видно
подскажите кто что знает...
[more]
file_browser.hta
<HTML> <TITLE>media file browser</TITLE>
<HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1251">
<HTA:Application
ID="MFB"
Border = Thick
windowState = maximize
BorderStyle = Complex
ShowInTaskBar = Yes
APPLICATIONNAME="media file browser"
SCROLL=yes
SINGLEINSTANCE=Yes
MaximizeButton = No
MinimizeButton = No
navigable=No
singleInstance=yes>
</HEAD>
<SCRIPT>
var BackFolder="";
var TekFolder="";
function window.onload() {
oTekFolder.innerHTML = "<p><a NAME=\"D:\\films\\\" onClick=\"GoBackFolder()\">D:\\films</a></p>";
TekFolder = "D:\\films\\";
BackFolder = TekFolder;
oFolders.innerHTML = "Список папок";
oFiles.innerHTML = "Список файлов";
oRoot.innerHTML = "<p><a NAME=\"D:\\films\" onClick=\"UpdateFolder(name)\">Фильмы</a></p><p><a NAME=\"D:\\mults\" onClick=\"UpdateFolder(name)\">Мультики</a></p>";
UpdateForm();
}
function UpdateFolder(in_str){
BackFolder=TekFolder;
oTekFolder.innerHTML = "<p><a NAME=\""+in_str+"\" onClick=\"GoBackFolder()\">"+in_str+"</a></p>";;
TekFolder = in_str;
UpdateForm();
}
function GoBackFolder(){
TekFolder=BackFolder;
oTekFolder.innerHTML = "<p><a NAME=\""+TekFolder+"\" onClick=\"GoBackFolder()\">"+TekFolder+"</a></p>";
UpdateForm();
}
function UpdateForm() {
// Общий обьект ф. системы
var fso = new ActiveXObject("Scripting.FileSystemObject");
// Проверка существоания текущей папки
if (!fso.FolderExists(TekFolder)) { oFolders.innerHTML="Папка не существует"; oFiles.innerHTML=""; return(0) };
// обработка подпапок
fldr_list = fso.GetFolder(TekFolder);
fldr_list_enum = new Enumerator(fldr_list.SubFolders);
oFolders.innerHTML = "";
for (; !fldr_list_enum.atEnd(); fldr_list_enum.moveNext())
{
oFolders.innerHTML = oFolders.innerHTML +
"<p><a name=\""+fldr_list_enum.item()+"\" id=\""+fldr_list_enum.item()+"\" onClick=\"UpdateFolder(name)\">"+fldr_list_enum.item()+"</a></p>";
}
// обработка файлов
fldr_list = fso.GetFolder(TekFolder);
files_list_enum = new Enumerator(fldr_list.Files);
oFiles.innerHTML = "";
for (; !files_list_enum.atEnd(); files_list_enum.moveNext())
{
oFiles.innerHTML = oFiles.innerHTML + "<p><a href=\""+files_list_enum.item()+"\" color:#80ffff>"+files_list_enum.item()+"</a></p>";
}
// выход
}
</SCRIPT>
<BODY BGCOLOR="black">
<SPAN STYLE="font:15 pt; color:white;">Корневые папки:</SPAN>
<SPAN STYLE="font:20 pt; color:#80ffff;"><PRE ID=oRoot> </PRE></SPAN>
<hr>
<SPAN STYLE="font:15 pt; color:white;">Текущая папка:</SPAN>
<SPAN STYLE="font:20 pt; color:#80ffff;"><PRE ID=oTekFolder> </PRE></SPAN>
<hr>
<SPAN STYLE="font:15 pt; color:white;">Список подпапок:</SPAN>
<SPAN STYLE="font:20 pt; color:#80ffff;"><PRE ID=oFolders> </PRE></SPAN>
<hr>
<SPAN STYLE="font:15 pt; color:white;">Список файлов:</SPAN>
<SPAN STYLE="font:20 pt; color:#80ffff;"><PRE ID=oFiles> </PRE></SPAN>
<hr>
</BODY>
</HTML>
[/more]
- но думаю справлюсь