Вверх ↑
Этот топик читают: Гость
Ответов: 1258
Рейтинг: 47
#16: 2019-02-18 10:15:14 ЛС | профиль | цитата
3042, не знаю, у меня на 8-ке все отлично работает. Но спасибо.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 1258
Рейтинг: 47
#17: 2019-03-04 13:06:41 ЛС | профиль | цитата
Автозагрузка при старте системы

2 варианта автозагрузки - из реестра и через ярлык. Почему-то у меня при (неручном авто запуске, если выйти и войти в систему заново) автозагрузке все пишущие элементы реестра пишут следующую ошибку "String debug: Не удалось записать в реестр". Чтото вроде этого ругается. Хотя стартует нормально и пишет в реестр позже тоже. А при ручном запуске все ок. Как побороть это поведение? Или хотябы отключить этот месседж. При автозапуске по ярлыку все ок, без ошибок.

Add(MainForm,2953706,21,105)
{
Width=639
Height=158
Caption=" Тест автозагрузок"
link(onCreate,15868457:doEvent1,[])
}
Add(MultiElementEx,13867723,259,136)
{
@Hint=#42:Проверка/установка автозагрузки по реестру|
}
BEGIN_SDK
Add(EditMultiEx,7514820,21,21)
{
@Color=0
WorkCount=#10:doautoload|
Width=475
Height=312
link(doautoload,7742914:doEvent,[(109,27)(109,62)])
}
Add(Registry,4695230,203,189)
{
@Color=0
HKey=1
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Point(doExistsValue)
Point(onExistsValue)
Point(doDeleteValue)
link(Data,12532593:FString,[(209,177)(160,177)(160,226)(111,226)])
link(Value,4550065:Var1,[(223,149)])
}
Add(IndexToChanel,7742914,196,56)
{
@Color=0
link(onEvent1,4695230:doDeleteValue,[(240,62)(240,139)(191,139)(191,216)])
link(onEvent2,12532593:doString,[(240,69)(240,129)(93,129)(93,188)])
}
Add(Application,10256750,172,98)
{
@Color=0
}
Add(Memory,7023666,266,105)
{
Default=String(MyProgramm)
}
Add(FormatStr,12532593,105,182)
{
Mask=""%1""
Point(FString)
link(onFString,5986247:doExistsValue,[(149,188)(149,226)(107,226)(107,265)])
link(Str1,10256750:AppFileName,[(111,156)(178,156)])
}
Add(Registry,5986247,119,245)
{
@Color=0
HKey=1
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Point(doExistsValue)
Point(onExistsValue)
link(Value,4550065:Var2,[(139,199)(237,199)])
link(onExistsValue,7572346:doEvent,[(173,258)(173,251)])
}
Add(IndexToChanel,7572346,196,245)
{
link(onEvent1,4695230:doWrite,[(240,251)(240,227)(191,227)(191,202)])
}
Add(GetDataEx,4550065,231,144)
{
Angle=1
link(Data,7023666:Value,[(272,149)])
}
END_SDK
Add(Dir,1549068,217,35)
{
}
Add(Edit,15875715,238,84)
{
Left=35
Top=50
Width=485
link(Str,1549068:StartUpDir,[])
}
Add(MultiElement,13022249,245,224)
{
@Hint=#41:Проверка/установка автозагрузки по ярлыку|
AddHint(36,43,197,26,@Hint)
}
BEGIN_SDK
Add(EditMulti,13931332,21,21)
{
EventCount=1
WorkCount=2
Width=531
Height=368
link(doWork1,7522738:doEvent1,[(70,27)(70,153)])
link(doWork2,254638:doFileExists,[(57,34)(57,251)])
}
Add(Application,8184377,889,483)
{
}
Add(Icon,5250328,721,462)
{
@Hint=#5:#main|
Icon=[ZIP7E03000078DAA552310EC2300C74948181814E880D467E015F61E3195919F8136FE005E523986B2D5996ED86A16E4E89E2B3EF5C85A8E01B069AE35E89F6D8CFC07475020A1DE6DCB5D2EAB83D9EEFF1C34CAD513CA47CA44040361E523EEEDDB2FD5D55EAC746E4A7364428E5DB94F23BF3A636ACD0921FB5613951454BC486EBDCFFAB205B3EEE351B4BDC922984BC34BE53D41271DB27DB9E22F7F71DAE7FCF7481EC11D8019B1CAD32BF0AF30830F0DD6247CD143F2B40DB52]
}
Add(Registry,9110487,721,462)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Value="Noteboo4ka"
@IsLib=True
Point(doExistsValue)
Point(onExistsValue)
link(onExistsValue,1532260:doCase,[(765,475)(765,468)])
}
Add(IndexToChanel,9099141,777,525)
{
link(onEvent1,11166641:doEvent1,[])
link(onEvent2,9650527:doEvent1,[(818,538)(818,545)])
}
Add(Hub,11166641,833,525)
{
link(onEvent1,1460556:doWork1,[(868,531)])
link(onEvent2,7098634:doWrite,[])
}
Add(Hub,9650527,833,539)
{
link(onEvent1,7098634:doDeleteValue,[])
link(onEvent2,1460556:doWork2,[])
}
Add(ChanelToIndex,2394600,889,567)
{
link(onIndex,10780099:doWork3,[(943,573)])
}
Add(HubEx,1460556,864,546)
{
Angle=1
link(onEvent,2394600:doWork2,[(868,580)])
}
Add(HubEx,10780099,939,469)
{
Angle=3
}
Add(Registry,5695913,721,525)
{
elink(9110487)
Point(doExistsValue)
Point(onExistsValue)
link(onExistsValue,9099141:doEvent,[(765,538)(765,531)])
}
Add(Registry,7098634,889,525)
{
elink(9110487)
Point(doDeleteValue)
link(Data,8184377:AppFileName,[])
}
Add(Case,1532260,777,462)
{
Value=Integer(1)
DataOnTrue=Integer(1)
link(onTrue,10780099:doWork2,[])
}
Add(FileTools,3587179,119,126)
{
link(onEnd,11627000:doCase,[])
link(FileName,3729938:Var2,[])
}
Add(Dir,10666466,119,28)
{
}
Add(MultiElement,9331928,119,77)
{
link(Data1,10666466:StartUpDir,[(125,69)(146,69)])
link(Data2,881871:FString,[(132,72)(251,72)])
}
BEGIN_SDK
Add(EditMulti,696806,21,21)
{
DataCount=2
VarCount=1
Width=153
Height=95
link(Var1,13452598:GetData,[(27,102)(48,102)])
}
Add(EventFromData,13452598,42,63)
{
link(onEvent,1957166:doStrCat,[])
}
Add(StrCat,1957166,98,63)
{
link(onStrCat,13452598:doData,[(142,69)(142,57)(30,57)(30,69)])
link(Str1,696806:Data1,[(104,35)(27,35)])
link(Str2,696806:Data2,[(111,45)(34,45)])
}
END_SDK
Add(Case,11627000,168,126)
{
Value=Integer(1)
DataOnTrue=Integer(1)
link(onTrue,11441865:doWork2,[])
}
Add(FileTools,254638,119,224)
{
link(onEnd,7780904:doEvent,[])
link(FileName,9045753:Var2,[])
}
Add(GetDataEx,3729938,119,112)
{
link(Data,9331928:Var1,[])
}
Add(IndexToChanel,7780904,168,224)
{
link(onEvent1,1159756:doEvent1,[])
link(onEvent2,3072385:doEvent1,[(209,237)(209,244)])
}
Add(Hub,1159756,224,224)
{
link(onEvent1,8729603:doWork2,[(253,230)(253,349)])
link(onEvent2,9578657:doEvent1,[])
}
Add(Hub,3072385,224,238)
{
link(onEvent1,4330426:doDelete,[(265,244)(265,258)])
link(onEvent2,8729603:doWork1,[(259,251)(259,342)])
}
Add(Dir,15502881,448,161)
{
}
Add(ShortCut,6815779,371,287)
{
Description="Файл"
Arguments=" "
Point(Icon)
link(FileName,14559423:Var2,[])
link(ShortcutName,7545423:FString,[(384,275)(475,275)])
link(WorkingDirectory,15502881:CurrentDir,[(391,269)(454,269)])
link(Icon,16224080:Var2,[])
}
Add(Hub,9578657,329,231)
{
link(onEvent1,12413787:doPart,[])
link(onEvent2,6815779:doCreate,[(357,244)(357,293)])
}
Add(FilePartElm,12413787,413,231)
{
Mode=2
link(onPart,7545423:doString,[])
link(FileName,16224080:Var3,[(419,215)])
}
Add(FormatStr,7545423,469,231)
{
Mask="%1%2.lnk"
Point(FString)
link(Str1,15502881:StartUpDir,[])
}
Add(FileTools,4330426,280,238)
{
DelToRecycle=1
link(FileName,9045753:Var3,[(286,199)])
}
Add(ChanelToIndex,8729603,280,336)
{
link(onIndex,11441865:doWork3,[(519,342)])
}
Add(HubEx,11441865,515,133)
{
Angle=3
link(onEvent,13931332:onEvent1,[(519,27)])
}
Add(Application,10835401,336,161)
{
}
Add(GetDataEx,14559423,371,210)
{
Angle=3
link(Data,3320686:Var3,[])
}
Add(GetDataEx,16224080,399,210)
{
Angle=3
link(Data,14559423:Var3,[])
}
Add(GetDataEx,9045753,119,194)
{
Angle=3
link(Data,3729938:Var1,[(113,199)(113,117)])
}
Add(FilePartElm,5389824,182,35)
{
Mode=2
link(onPart,881871:doString,[])
link(FileName,3320686:Var1,[(188,23)(349,23)])
}
Add(Hub,7522738,84,147)
{
link(onEvent1,5389824:doPart,[(161,153)(161,41)])
link(onEvent2,3587179:doFileExists,[(108,160)(108,153)])
}
Add(GetDataEx,3320686,343,210)
{
Angle=3
link(Data,10835401:AppFileName,[(342,215)])
}
Add(FormatStr,881871,245,35)
{
Mask="%1.lnk"
Point(FString)
}
END_SDK
Add(Hub,15868457,105,119)
{
OutCount=3
link(onEvent1,15875715:doText,[(179,125)(179,90)])
link(onEvent2,13022249:doWork1,[(182,132)(182,230)])
link(onEvent3,2836181:doData,[(161,139)(161,146)])
}
Add(DoData,2836181,203,140)
{
Data=Integer(1)
link(onEventData,13867723:doautoload,[(247,146)(247,142)])
}


Редактировалось 3 раз(а), последний 2019-03-04 13:09:25
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 1258
Рейтинг: 47
#18: 2019-03-11 13:39:34 ЛС | профиль | цитата
Автоувеличение версии программы и добавление даты редактирования.


Работает при нажатии кнопки SaveAs и Build, не реагируя на Run и Save.

Обсуждение: http://forum.hiasm.com/topic/67309/2

Add(MainForm,2953706,21,105)
{
}
Add(ScriptEvents,88089,462,77)
{
Script=#15:function Load()|3:end|0:|0:|15:function Save()|31: ' _Date = Time("D:M:Y h:m:s")|43: ' sdk.SetProp(15432977, "Default", _Date) |3:end|0:|21:function SaveBefore()|4: |3:end|0:|15: |26:Function CmdEvent(Command)|26: If Command = "build" Then|17: Dim num as Real|19: Dim ver as String|21: Dim Title as String|24: Dim strTitle as String|46: num = Real(SDK.GetProp(11511461, "Version"))|48: SDK.SetProp(11511461, "Version", Str(num+0.1))|40: ver = SDK.GetProp(11511461, "Version")|47: SDK.SetProp(4593378, "Default", Str(num+0.1))|0:|7: End If|28: If Command = "saveas" Then|2: |29: _Date = Time("D:M:Y h:m:s")|42: sdk.SetProp(15432977, "Default", _Date) |0:|7: End If|13:End |
}
Add(Memory,15432977,567,77)
{
@Hint=#25:Дата пересохранения схемы|
Default=String(11:03:2019 13:40:07)
}
Add(Memory,4593378,518,77)
{
@Hint=#12:Версия билда|
Default=String(1.0)
}
Add(SDKBtn,2695686,357,77)
{
Width=65
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|3:end|0:|16:function Click()|0:|41: SDK.SetProp(11511461, "Version", "1.0")|40: SDK.SetProp(4593378, "Default", "1.0")|0:|3:end|
Caption="ResetVer"
}
Add(Version,11511461,238,77)
{
Version="1.0"
Description="VersionTest 1.0"
InternalName="VersionTest 1.0.exe"
E-mail="azizazizovGAVyandex.ru.ru"
AddHint(-75,34,30,13,Version)
}


Версия реагирующая на каждый запуск и Save:


Add(MainForm,2953706,21,105)
{
}
Add(ScriptEvents,88089,462,77)
{
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|29: _Date = Time("D:M:Y h:m:s")|46: sdk.SetProp(15432977, "Default", _Date) |3:end|0:|15: |26:Function CmdEvent(Command)|26: If Command = "build" Then|17: Dim num as Real|19: Dim ver as String|21: Dim Title as String|24: Dim strTitle as String|46: num = Real(SDK.GetProp(11511461, "Version"))|48: SDK.SetProp(11511461, "Version", Str(num+0.1))|40: ver = SDK.GetProp(11511461, "Version")|47: SDK.SetProp(4593378, "Default", Str(num+0.1))|0:|7: End If|13:End |
}
Add(Memory,15432977,567,77)
{
@Hint=#16:Дата модификации|
Default=String(11:03:2019 13:30:34)
}
Add(Memory,4593378,518,77)
{
@Hint=#12:Версия билда|
Default=String(1.0)
}
Add(SDKBtn,2695686,357,77)
{
Width=65
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|3:end|0:|16:function Click()|0:|41: SDK.SetProp(11511461, "Version", "1.0")|40: SDK.SetProp(4593378, "Default", "1.0")|0:|3:end|
Caption="ResetVer"
}
Add(Version,11511461,238,77)
{
Version="1.0"
Description="VersionTest 1.0"
InternalName="VersionTest 1.0.exe"
E-mail="azizazizovGAVyandex.ru.ru"
AddHint(-75,34,30,13,Version)
}


Редактировалось 4 раз(а), последний 2019-03-13 09:12:12
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#19: 2019-03-11 13:59:09 ЛС | профиль | цитата
Aziz писал(а):
Работает при нажатии кнопки SaveAs и Build, не реагируя на Run и Save.

Твой скрипт можно упростить (это на будущее), тк переменные там нигде толком и не нужны

Function CmdEvent(Command)
If Command = "build" Then
SDK.SetProp(11511461, "Version", Str(Real(SDK.GetProp(11511461, "Version")) + 0.1))
SDK.SetProp(4593378, "Default", SDK.GetProp(11511461, "Version"))
Else If Command = "saveas" Then
sdk.SetProp(15432977, "Default", Time("D:M:Y h:m:s"))
End If
End
карма: 22

0
Ответов: 1258
Рейтинг: 47
#20: 2019-03-11 16:43:28 ЛС | профиль | цитата
nesco, сенкс, эти переменные - массив были нужны вроде для отображения информации в визуальной метке редактора?
И еще глядя на код скрипта в схеме - меня радует что он расположен в одной строке. Значит не только я один такой любитель все лепить в одну сверхдлинную строку)
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 2
Рейтинг: 0
#21: 2019-11-13 15:17:15 ЛС | профиль | цитата
Поделитесь, если есть, рабочим примером для чтения по запросу кнопки, mysql сервера какой то таблици и вывода ее в окно программы, зарание благодарен
Пробовал запустить отсюда https://forum.hiasm.com/topic/66765 не заработал, хотя и прописал свою бд, и свои поля, поиск к сожелению не работает по форуму, других примеров не удалось найти.

Редактировалось 3 раз(а), последний 2019-11-13 15:24:05
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#22: 2019-11-13 15:54:05 ЛС | профиль | цитата
%HiAsm%\Elements\Delphi\Example\DataBase\ - примеры для работы с различными БД, в том числе и с MySQL. А вообще-то, Вы промахнулись, создав своё сообщение здесь. Для подобных вопросов существуют специальные разделы форума:

Редактировалось 2 раз(а), последний 2019-11-13 15:54:57
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
22
Сообщение
...
Прикрепленные файлы
(файлы не залиты)