Сниплеты - заготовки кода

Вверх ↑

Форумы СхемыСниплеты - заготовки кода ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 1297

Рейтинг: 47

#16: 2019-02-18 10:15:14 ЛС | профиль | цитата

3042, не знаю, у меня на 8-ке все отлично работает. Но спасибо.

карма: 3

Hiasm + Flowstone + CopperCube + GoDot + JS

Ответов: 1297

Рейтинг: 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

Ответов: 1297

Рейтинг: 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

Разработчик

Ответов: 26170

Рейтинг: 2127

#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

Ответов: 1297

Рейтинг: 47

#20: 2019-03-11 16:43:28 ЛС | профиль | цитата

nesco, сенкс, эти переменные - массив были нужны вроде для отображения информации в визуальной метке редактора?
И еще глядя на код скрипта в схеме - меня радует что он расположен в одной строке. Значит не только я один такой любитель все лепить в одну сверхдлинную строку)

карма: 3

Hiasm + Flowstone + CopperCube + GoDot + JS

Ответов: 2

Рейтинг: 0

#21: 2019-11-13 15:17:15 ЛС | профиль | цитата

Поделитесь, если есть, рабочим примером для чтения по запросу кнопки, mysql сервера какой то таблици и вывода ее в окно программы, зарание благодарен
Пробовал запустить отсюда https://forum.hiasm.com/topic/66765 не заработал, хотя и прописал свою бд, и свои поля, поиск к сожелению не работает по форуму, других примеров не удалось найти.

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

карма: 0

Главный модератор

Ответов: 2999

Рейтинг: 396

#22: 2019-11-13 15:54:05 ЛС | профиль | цитата

%HiAsm%\Elements\Delphi\Example\DataBase\ - примеры для работы с различными БД, в том числе и с MySQL. А вообще-то, Вы промахнулись, создав своё сообщение здесь. Для подобных вопросов существуют специальные разделы форума:

Помощь по пакету Windows

Между делом

Игра в слова

Редактировалось 2 раз(а), последний 2019-11-13 15:54:57

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Форумы СхемыСниплеты - заготовки кода ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)