» Autoplay Media Studio

Zloy_Gelud

Цитата:

WinApi.SetWindowTrans(Application.GetWndHandle(), 200);

спасибо!

Цитата:

Чет мне кажется через ActiveX и JS/VBS можно намутить..но геморно.

мд... ну лан с этим

есть некий файл c содержанием, к примеру:

Код: 5800eba07e326a07e9afac8ef3a1ba1c2636edba2167

Pazan

Код: strText = TextFile.ReadToString("C:\\MAC.txt");
strMAC = String.Mid(strText, 3, 2);
strMAC = strMAC..String.Mid(strText, 8, 3);
strMAC = strMAC.. String.Mid(strText, 15, 4);
strMAC = strMAC..String.Right(strText, 3);
if (strMAC == System.GetLANInfo().NIC) then
    
else

end

lorents

Цитата:

нажимал на кнопку например Free user

Я тоже этим интересуюсь (не файлообменником, но кнопку надо чтоб нажимало) может что-нибудь вместе придумаем, например у кнопки есть ссылка, может просто загрузить в ВЕБ объект эту ссылку, а потом после ожидания переходило по ссылке из ВЕБа, но как я знаю, на ЛетИтБит.нет ссылка доступна сразу, без ожидания, а показывается только через минуту.

Yakim777
ЛетИтБит сейчас еще просит вводить код зашиты, так что сейчас о нем можно забыть
я сейчас толком и не представляю как сделать

Zloy_Gelud
на выходных потестю. спс

lorents
да, я давно не скачивал, но я про другое, может на рапиде тоже ссылка уже в веб странице, но показывается только после истечения таймера

Yakim777
к сложалению нет, не показывает,

Можно ли добавить иконку из DLL/EXE файла в объект Tree или ListBoxEx?

Добавлено:
Интересуют любые средства, т.к. стандарными это невозможно..
Или же..получить контекст иконки, а затем нарисовать ее с помощью API в проекте?

Добавлено:
Что здесь не так?

Код: hWND = Application.GetWndHandle();
Result = DLL.CallFunction("shell32.dll", "ExtractIcon", hWND..",\"".._SystemFolder.."\\shell32.dll\",-1", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

Zloy_Gelud
Имя API-функции нужно указывать то, что в Alias: "ExtractIconA".

osip1974
Извини за столь поздний ответ..

Цитата:

как эти файлы правильно разместить в папку с прогой и в каком виде,названии,расширении?

Описано в доках.

Цитата:

где надо расположить папку "Soft"-локально на диске или после запуска вашего проекта непосредственно в проекте?Если да, то в каком месте (папке)?

В папке 'CD_Root'. Можешь в другом месте, но тогда это укажи в скрипте 'Include.lua'

Цитата:

Создаётся файл базы данных.Где его надо сохранить-в папке "Docs",под каким именем?

Сохраняй в папке 'Docs' c любым именем и расширением XDB.
З.Ы. Будут еще вопросы - спрашивай.

tavria2 -- отлично!

Добавлено:
Помоему получился довольно любопытный примерчик.

Код: hWND = Application.GetWndHandle();                -- дескриптор окна
hDC = WinApi.GetDC(hWND);                        -- контекст устройства
strPathFile = _SystemFolder.."\\shell32.dll";    -- путь к библиотеке
nXPos = 30;    nYPos = 30;                            -- верхний левый угол иконки
for i=1, 10 do                                    -- выборка первых 10 значков
    -- дескриптор значка
    hIcon = DLL.CallFunction("shell32.dll", "ExtractIconA", hWND..",\""..strPathFile.."\","..i, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
    -- рисуем значок
    DLL.CallFunction("user32.dll", "DrawIcon", hDC..","..nXPos..","..nYPos..","..hIcon, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
    -- освобождаем память, связанную со значком
    DLL.CallFunction("user32.dll", "DestroyIcon", hIcon, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
    nYPos = nYPos + 32;
end

Zloy_Gelud

Цитата:

Появилась еще проблема..при разворачивании проекта иконки не перерисовываются. Как пофиксить?

Иконки будут исчезать при каждой перерисовке окна проекта.
Когда окну необходимо перерисоваться, то Windows посылает определённое сообщение WM_PAINT, следовательно нужно поместить отрисовку графики в обработчик этого события, но так, как в AMS невозможно сделать обработку WM_PAINT, то естественно не сможешь сделать отрисовку.

Вот это жаль конешно!

Помогите пожалуйста, хочу сделать оболочку для exeшника, картина такая:

На странице 2 Inputa и 3 кнопки.
2 кнопки представлены к 2 Inputaм, то есть одна будет называться Открыть файл, другая Сохранить файл.
3 кнопка будет конвертировать то, что выбрано в Inputах.
====================
код кнопки 1 "Открыть файл":
====================
IN_FILE = Dialog.FileBrowse(true, "Выберите файл", _DesktopFolder, "All Files (*.*)|*.*|", "", "", false, false);
if IN_FILE ~= "CANCEL" then
Input.SetText("Input1", IN_FILE[1]);
else
Input.SetText("Input1", Input.GetText("Input1"));
end

======================
код кнопки 2 "Сохранить файл":
======================
OUT_FILE = Dialog.FileBrowse(false, "Save As", "c:\\", "All Files (*.*)|*.*|", "", "", false, true);
if OUT_FILE ~= "CANCEL" then
Input.SetText("Input2", OUT_FILE[1]);
else
Input.SetText("Input2", Input.GetText("Input2"));
end
======================

Вот а 3 кнопка должна с помощью exe, который конвертирует только через командную строку, взять пути к файлам из Inputов и

сконвертировать в выбранную папку и определенный файл.
Аргументы(с помощью которых он конвертирует файл в командной строке) exeшника такие:
convers.exe(пробел)-c(пробел)Путь_файла_из_Input1(пробел)Путь_файла_из_Input2

Не знаю как это сделать, пробывал через File.Run вот так:
File.Run("convers.exe", "-c", "", SW_SHOWNORMAL, false);
Но здесь можно тока добавить аргумент "-с", а как добавить пути к файлу, чтобы его конвертировать, ведь надо чтобы аргумент

конвертирования, тобишь "-с" был вместе с директориями файла, иначе exeшник не будет его конвертировать в командной строке.
Помогите пожалуйста!

AleksTrin, что-то типа этого.

Цитата:

result = Input.GetText("Input1");
File.Run("AutoPlay\\Docs\\convers.exe", "-c "..result, "", SW_SHOWNORMAL, false);

Чтобы было точнее, приведи формат командной строки программы.

Так я же приводил, вот:
converse.exe -c ПУТЬ1 ПУТЬ2

converse.exe - это сама программа которая конвертирует
-с - это параметр для конвертирования
ПУТЬ1 - это какой файл мы берем
ПУТь2 - это куда сохраняем файл после конвертации

Добавлено:
Сделал вот так:
IN_FILE = Input.GetText("Input1")
OUT_FILE = Input.GetText("Input2")
File.Run("convers.exe", "-c "..IN_FILE..OUT_FILE,"", SW_SHOWNORMAL, false);

Но стало появляться в самом exeшнике такое сообщение:
"Abnormal program termination" (Неправильное завершение программы)

Хотя заметил, что когда пишешь для определенного файла, то все норм получается, например:
File.Run("convers.exe", "-c C:\\1\\movie.avi C:\\1\\movie.mpg","", SW_SHOWNORMAL, false);

Добавлено:
Все разобрался, нужно писать так:
Кнопка 3:
IN_FILE = Input.GetText("Input1")
OUT_FILE = Input.GetText("Input2")
File.Run("convers.exe", "-c "..IN_FILE.." "..OUT_FILE,"", SW_SHOWNORMAL, false);

Добавлено:
Lexua
Спасибо, за помощь!
Я счастлив!

Теперь другая проблема, с другим файлом. Он должен обратно конвертировать, все правильно делаю вроде, но меня смущает то, что в формате командной строки имеется знак >, через командную строку с этим знаком все получается, а в программе нет, почему?
File.Run("convers-R.exe", "-d "..IN_FILE.." > "..OUT_FILE,"", SW_SHOWNORMAL, false);

Формат командной строки такой:
convers-R.exe -d ПУТЬ1 > ПУТЬ2

Помогите пожалуйста!

AleksTrin

Цитата:

convers-R.exe -d ПУТЬ1 > ПУТЬ2

Тут никак - батник пиши и его запускай из проги.

Цитата:

батник пиши и его запускай из проги.

а чтобы бантик не был виден у пользователя

Код: File.Open("autorun.bat", "", SW_HIDE);

Привет всем!
Ребята у меня такая проблема, надо срочно склепать програмку типо базы данных!
Суть:

Есть человек, о нём извесна инфа. Эта иформация заполняется в Grid и потом сохраняется, ну допустим в ИНИ!

Проблема:

Мой Grid ни как не хочит автоматически выравнивать столбцы, либо я прописываю для каждого отдельно, либо привязываю к окну и при изменении окна пропорционально меняются столбцы!
Но это всё не то!

И самый главный вопрос!
Как можно распичатать Gird 21 х 21 на листке А4????
Пожалуйста посоветуйте что-нибудь!
Софтина почти готова, тормозят мелочи!
EXEL я не хочу юзать, нужна специальная софтина, по этому и делаю в АМС!

Так выглядит мой 21x21 Gird

Код: --// Intialisierung von Title
Grid.SetCellText("ObjStamBl", 0, 0, "Kuerzel Schicht", true);
Grid.SetCellText("ObjStamBl", 0, 1, "Schicht-bezeichnung", true);
Grid.SetCellText("ObjStamBl", 0, 2, "Uhrzeit Beginn", true);
Grid.SetCellText("ObjStamBl", 0, 3, "Uhrzeit Ende", true);
Grid.SetCellText("ObjStamBl", 0, 4, "Uhrzeit Beginn Pause", true);
Grid.SetCellText("ObjStamBl", 0, 5, "Uhrzeit Ende Pause", true);
Grid.SetCellText("ObjStamBl", 0, 6, "Arbeitszeit", true);
Grid.SetCellText("ObjStamBl", 0, 7, "Pausenzeit", true);
Grid.SetCellText("ObjStamBl", 0, 8, "Anzahl", true);
Grid.SetCellText("ObjStamBl", 0, 9, "Position", true);
Grid.SetCellText("ObjStamBl", 0, 10, "Mo", true);
Grid.SetCellText("ObjStamBl", 0, 11, "Di", true);
Grid.SetCellText("ObjStamBl", 0, 12, "Mi", true);
Grid.SetCellText("ObjStamBl", 0, 13, "Do", true);
Grid.SetCellText("ObjStamBl", 0, 14, "Fr", true);
Grid.SetCellText("ObjStamBl", 0, 15, "Sa", true);
Grid.SetCellText("ObjStamBl", 0, 16, "So", true);
Grid.SetCellText("ObjStamBl", 0, 17, "FE", true);
Grid.SetCellText("ObjStamBl", 0, 18, "Mo n FE", true);
Grid.SetCellText("ObjStamBl", 0, 19, "AT n FE", true);
Grid.SetCellText("ObjStamBl", 0, 20, "Bemerkung", true);

А как сделать bat файл, чтобы он понимал пути из программы!
Помогите, что-то не могу понять!

AleksTrin сюда

lorents
Да как батник делать я знаю, вот не знаю как в батнике сделать пути из Inputов(то есть из самой программы), вот в чем проблема!
Хотя бы примерчик дайте какой-нибудь по взаимодействию кода из батника с кнопкой программы!

lorents

Код: File.Open("autorun.bat", "", SW_HIDE);
^^^^^^

Lexua

Цитата:

Уверен, что такой параметр там есть?

а ты напиши и сам увидишь

Lexua,lorents, СПАСИБО БОЛЬШОЕ! Все получилось!

Добавлено:
А нельзя сделать так, чтобы после конвертирования exeшник закрывался, а то он просит чтобы пользователь нажал кнопку для завершения.
И еще например когда хочешь выбрать файл в Input, но затем передумываешь и нажимаешь отмена, то в самом Inputе появляется слово CANCEL, можно как-нибудь от него избавится, ну или хотя бы другую надпись сделать, типа:"Не выбрано"?

Цитата:

а ты напиши и сам увидишь

написал батник просто не выполняется...

Lexua

Цитата:

батник просто не выполняется...

а может не показывается, прочти на первой части форума об SW_HIDE

lorents
прочел. попробовал. справедливо для Shell.Execute и работает, а вот с File.Run нет.
про File.Open точно не скажу(вроде работает), но поскольку там нет параметра WaitForReturn и соответственно я бы не рекомендовал использовать данную функцию для выполнения командных файлов.


Цитата:

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

в батнике добавь строу exit

по второму вопросу

Цитата:

if IN_FILE == "CANCEL" then
Input.SetText("Input1", "");
end