» Autoplay Media Studio

Djon1970
Я извиняюсь, не ту ссылку вставил
FileCopy.apz

AutoPlay.Media.Studio.v7.5.1008.0.TEAM-Full.KaTэlэmsэz
http://www.tekdosya.com/files/XZ17912PP/f5412ab4de732d4da8034de5fdbbd569/AutoPlay.Media.Studio.v7.5.1008.0.TEAM-Full.KaT__l__ms__z.7z.html

Mars803
Не плохой пример!

lazweder -- это для Вареза! Здесь только обсуждение.

AleksTrin
там пока парочка не существенных недоработок, в частности если сделать список history.txt большим, то выпадающий список будет намнооого больше в длину чем необходимо, во вторых я еще намеревался добавить функцию для обработки того что написали в input1, а то юзеру придется ручками это ковырять в подключаемом скрипте

lorents

Лови

Mars803
было бы не плохо сделать тоже самое только через ComboBox
а так хорошая идея

Djon1970
Спасибо! Как вы все смогли получить доступ на офф. сайт?

Вот есть код:
IN_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "Все файлы (*.*)|*.*|", "", "", false, false);
if IN_FILE[1] ~= "CANCEL" then
Input.SetText("Input1", IN_FILE[1]);
end

А что нужно в него добавить, чтобы выбранный путь с файлом, появился также и во 2 инпуте, но так, чтобы расширение файлов отличалось, ну например, в первом инпуте выбранный файл будет с расширением *.rart, а во втором должен отображаться уже просто как *.rar, как такое можно замутить?

lorents
Да зарегился там и все.

На тебе еще один прикольный пример с той страницы

Mars803

Спасибо, помогло!!!

Djon1970
спасибо!

Цитата:

Да зарегился там и все.

А я думал, там типа есть сложности с регистрацией

Есть Раньше наши почтовики в зоне РУ не проходили, спецом регился на Яху

GOOSE

Цитата:

Раньше наши почтовики в зоне РУ не проходили, спецом регился на Яху

Они и счас вроде не проходят.. По-прежнему рекомендуют:
- Hotmail.com
- Yahoo.com
- Gmail.com

Repiata kak sdelat takoe
xochu vivesti imia "Moi dokumenti"

beru put gde lejit papka "My Documents" i poluchaetsa tipa: C:\Documents and Settings\Gocha\My documents
kak obrezat "C:\Documents and Settings\Gocha\" chtob vivelsa tolko "My documents"

i kak iz reestra v lubom vinde poluchit put k papke profila usera (C:\Documents and Settings\USERNAME) i k "my douments" bez SHell.GetFolder

spasibo za vnimanie i starania

Gocha1

Цитата:

kak obrezat "C:\Documents and Settings\Gocha\" chtob vivelsa tolko "My documents"

Код: function _Folder_GetName(path)
local nPos = String.ReverseFind(String.TrimRight(path, "\\"), "\\", false);
if nPos ~= -1 then
return String.Mid(path, nPos + 1, -1);
else
return path;
end
end

strMyDoc = Shell.GetFolder(SHF_MYDOCUMENTS);
Dialog.Message("Notice",_Folder_GetName(strMyDoc), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

Zloy_Gelud
Thanks!

+ nashol otkuda beret put:
HKCU\Software\Ms\Win\CurVers\Explorer\User Shell Folder\Personal

Добавлено:
a kak zashitit faili .dat pri sozdanii na Hard Drive Folder

Gocha1
О защите ты можешь почитать в шапке Варезника.

Добавлено:
Gocha1
Если не хочешь использовать Shell.GetFolder (хотя незнаю почему..), то можешь попробывать замутить средствами API (не забудь подключить тогда плагин Memory):

Код: function _Folder_GetName(path)
local nPos = String.ReverseFind(String.TrimRight(path, "\\"), "\\", false);
if nPos ~= -1 then
return String.Mid(path, nPos + 1, -1);
else
return path;
end
end

CSIDL_PERSONAL = 5;

function _WinAPI_ShellGetSpecialFolderPath(CSIDL, bCreate)
if not bCreate then bCreate = 0 else bCreate = 1 end
local ret = "";
local bufPath = Memory.Allocate(1024);
local res = DLL.CallFunction("shell32.dll", "SHGetSpecialFolderPathA", "0,"..bufPath..","..CSIDL..","..bCreate, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
if res ~= "0" then
ret = Memory.GetString(bufPath, -1, "Ascii");
end
Memory.Free(bufPath);
return ret;
end
Dialog.Message("Notice", _Folder_GetName(_WinAPI_ShellGetSpecialFolderPath(CSIDL_PERSONAL)), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

ia imel vidu v papke dat01 chto faili.dat - esli posmotret v hex uvidish naprimer Oggs poimesh chto etot fail ne kakoita dat a ogg, pereimenoval i vso u menia source faili s proekta, vot v dannom sluchi chtob po drugomu sozdaval faili ili chtob vkluchival v .cdd eto xot zaparolen,
a te obuchalki chto dal kindly zachem komuta lamat tot kod ili shifrovat, esli kto do etava doidet to on i to smojet bez sdelat takoi je avtoran bez raspakovki .cdd

Добавлено:
esho, kak uznat iazik ustanovlennovo Windows? to est na kakom iazike Windows, eto nujno iz za tavo chto esli Eng to dlia nekotorix igr chtob soxraniali ne budet nujen procedura i obiasnenia i konpki dlia pereimenovania papki na angl. My documnts, a esli wind Rus to i papka je budet na ruskom Moi dokumenti to nujno chtob bilo vidno moi knopki dlia proceduri pereimenovania

Добавлено:
izvinite no xochu esho zadat vopros znatkam, ia vpervie v dannom razdele...

ia proveraiu versiu directx takim obrazom:

version_is = "4.09.00.0904";
dx = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\DirectX", "Version", true);
if (dx==version_is) then
result true


no kak zdes proverit versia menshe ili bolshe, toest, esli 4.09.00.0903 - true, esli 4.09.00.0905 - false,
esli 4.09.00.0804 - true, esli 4.09.00.1004 - false, chtob v celikom proverial chisla bolshe ili menshe
itogo kak sravnit DX i VERSION_IS

Gocha1

Цитата:

ia imel vidu v papke dat01 chto faili.dat

Их никак не защитишь.

Цитата:

esho, kak uznat iazik ustanovlennovo Windows? to est na kakom iazike Windows

Код: function _WinAPI_GetSystemDefaultLCID()
return tonumber(DLL.CallFunction("kernel32.dll", "GetSystemDefaultLCID", "", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL));
end

LCID = _WinAPI_GetSystemDefaultLCID()
if (LCID ~= 0) then
if (LCID == 1049) then
-- Russian
elseif (LCID == 1033) then
-- English
end
else
-- Не определено
end

tavria2 Добрый вечер!
Некоторое время назад Вы выкладывали код, который делает окно проекта "невтопленным"
хотел спросит а как сделать чтобы окно проекта становилось обратно "втопленным"
Вот ваш код

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
WinApi.SetWindowLong(Application.GetWndHandle(), GWL_EXSTYLE, 0, false);
nWidth = Window.GetSize(Application.GetWndHandle()).Width;
nHeight = Window.GetSize(Application.GetWndHandle()).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

lorents
Перед изменением стиля окна, запомни то, которое было, а затем уже можешь восстанвливать это значение.

lorents

Код: GWL_EXSTYLE = -20
hWnd = Application.GetWndHandle();
WinApi.SetWindowLong(hWnd, GWL_EXSTYLE, 768, false);
nWidth = Window.GetSize(hWnd).Width;
nHeight = Window.GetSize(hWnd).Height;
Window.SetSize(hWnd, nWidth + 1, nHeight + 1);
Window.SetSize(hWnd, nWidth, nHeight);

tavria2
Спасибо!

Цитата:

Может у тебя не подключен плагин WinApi?

да нет подключен

Zloy_Gelud
skolko iskal i muchalsa na kod iazika windows, reshil moi mnogie voprosi
+ ochen rad na kod proverki DirectX, vse k luchemu, i jelaiu tebe v jizni toje

Zloy_Gelud
vot snova

u menia vot tak pereimenovania papki "Moi dokumenti"


no kogda s pomoshiu standartnovo sposoba pereimenivaiu papku (Folder.Rename) v texte Paragraph ne obnovliaet tekushee imia. esli v ruchniu delat pereimenovanie to obnovliaet po MouseMove

v chem mojet bit dela, pomogite
spasibo

Добавлено:
kstati esho, AMS ne raspaznaiot text napisanni v Unicode, toje nado ispravit

Цитата:

no kogda s pomoshiu standartnovo sposoba pereimenivaiu papku (Folder.Rename) v texte Paragraph ne obnovliaet tekushee imia. esli v ruchniu delat pereimenovanie to obnovliaet po MouseMove

Ну можешь в таймере получать название папки или после переименования заново получить ее название и вывести в Параграф.

Цитата:

kstati esho, AMS ne raspaznaiot text napisanni v Unicode, toje nado ispravit

Это к разработчикам АМС обратись.

Цитата:

Ну можешь в таймере получать название папки или после переименования заново получить ее название и вывести в Параграф.

dela v tom chto vivod delaiu spomoshiu togo koda chto ti dal obrezat put i ostavit tolko "moi dokumenti", no Shell.GetFolder ne iasna imenno otkuda beret put karoche.
poetomu pereimenovanie proisxodit ne v sisteme a imenno papki samoi. poetomu v sisteme ostaetsa staraia imia papki i potomu v paragraphe vivod delaet toje samoe

Всем привет!
Народ подскажите как сделать в текстовом поле ссылку на страницу в проекте?

Например:
Есть текстовое поле: "какой сегодня замечательный день"

Я хочу чтобы при клике на слово "сегодня" выполнялась функция Page.Jump("Page10");
т.е. осуществлялся переход на другую страницу в моем автозапуске?

Gocha1
А если тупо так

Код: Paragraph.SetText("Paragraph1", "Текущие имя: My Documents");