Вверх ↑
Этот топик читают: Гость
Ответов: 22
Рейтинг: 2
#1: 2019-10-29 08:02:20 ЛС | профиль | цитата
Ребят, доброго времени суток! задался такой идеей для комфорта! В голове такая идея!
Хочу что-бы в одной програмке можно было указывать место положения .exe файла и после этого запускать програмку кнопкой соответствующей!
Где розовый квадратик - мы указываем путь к .exe файлу (Каждый розовый квадратик, к своей кнопке "Запустить" привязывается)
То есть указал я к 7 программам пути, сохранил кнопкой save и теперь могу запускать эту програмку и выбирать что нужно мне запустить!
А в полях "Название" Для удобства дать возможность прописывать названия к той или иной программе (Так же с возможностью сохранять это всё)
Искал ролики на ютубе, ни чего такого не нашёл к сожалению. Поиск по форуму так же не дал результатов.
Как мне это реализовать? Что к чему?
Буду рад вашей помощи многоуважаемые мастера! Можете хоть накидать малюсенький пример этой работы? что-бы я посмотрел что за что отвечает!


Редактировалось 1 раз(а), последний 2019-10-29 10:05:12
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2019-10-29 11:42:10 ЛС | профиль | цитата
Система -> WinExec
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4621
Рейтинг: 746
#3: 2019-10-29 12:10:41 ЛС | профиль | цитата
Из своих запасов - пример работы со списком программ и запуском выбранной. А уж свои "розовые квадратики" пробуй сам прикрутить. Вероятно, надо будет обратить внимание на компонент ChildPanelEx и ChildScrollBox (вместо списка строк).

Add(MainForm,2953706,49,105)
{
Width=238
Height=339
Caption="Запуск"
BorderStyle=1
Position=1
link(onCreate,1723745:doWork,[])
}
Add(Label,7477746,49,224)
{
Left=10
Top=5
Width=212
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Выберите программу для запуска:"
}
Add(ListBox,15979616,602,406)
{
Left=10
Top=25
Width=210
Height=125
DataType=1
Point(String)
Point(doSelect)
Point(onSelect)
link(onClick,2362391:doWork2,[])
link(onSelect,2362391:doWork3,[(655,426)])
}
Add(Button,10247625,70,588)
{
Left=55
Top=240
Width=120
Height=25
Caption="Запустить"
link(onClick,16214821:doExec,[])
}
Add(Button,14034881,49,294)
{
Left=75
Top=280
Width=70
Caption="Выход"
link(onClick,1498359:doWork,[])
}
Add(LineBreakEx,1498359,105,294)
{
Caption="exit"
}
Add(LineBreakEx,10017364,0,126)
{
Caption="exit"
Type=1
link(OnEvent,2953706:doClose,[])
}
Add(Ini,12258220,441,399)
{
FileName="apps.cfg"
Key="path"
Type=1
Point(doSectionNames)
Point(onSectionNames)
Point(doEraseSection)
link(onResult,14110590:doValue,[(499,405)(499,391)])
link(onSectionNames,8458824:doEvent1,[])
AddHint(-12,-47,56,13,FileName)
}
Add(Hub,12274421,287,406)
{
OutCount=3
link(onEvent1,15986310:In,[])
link(onEvent2,12258220:doSectionNames,[])
link(onEvent3,14534594:In,[])
}
Add(LineBreakEx,7553609,231,406)
{
@Color=16755455
Caption="load"
Type=1
link(OnEvent,12274421:doEvent1,[])
}
Add(LineBreakEx,1723745,112,119)
{
@Color=16755455
Caption="load"
}
Add(LineBreak,152143,546,434)
{
Caption="sel0"
link(Out,15979616:doSelect,[])
Primary=[14534594,-217,-14]
}
Add(Hub,8458824,497,406)
{
link(onEvent1,15979616:doAdd,[])
}
Add(LineBreak,14554306,546,413)
{
Caption="cl1"
link(Out,15979616:doClear,[])
Primary=[15986310,-196,-7]
}
Add(LineBreak,11120211,392,399)
{
Caption="get"
link(Out,12258220:doRead,[])
Primary=[12285981,273,14]
}
Add(Memory,14110590,749,385)
{
link(onData,9348136:doText,[])
}
Add(LineBreakEx,14952601,749,434)
{
Caption="exe"
Type=3
link(_Data,14110590:Value,[])
}
Add(WinExec,16214821,147,588)
{
Point(WorkingDir)
link(FileName,10359912:getVar,[])
link(WorkingDir,15042917:GetData,[(167,581)(216,581)])
}
Add(LineBreakEx,10359912,147,553)
{
Caption="exe"
Type=2
}
Add(LineBreakEx,11171889,217,588)
{
Caption="exit"
}
Add(HubEx,2362391,651,413)
{
link(onEvent,12285981:In,[])
}
Add(Label,9348136,805,385)
{
Left=10
Top=180
Width=213
Height=42
Caption="Путь"
AutoSize=1
}
Add(Message,4072402,462,532)
{
Message="Удалить выбранный пункт?"
Caption="Удаление"
Type=2
Icon=2
Point(onYES)
link(onYES,1545928:doEvent1,[])
}
Add(Hub,1545928,525,539)
{
link(onEvent1,3430881:doData,[])
link(onEvent2,8965817:doWork,[])
}
Add(LineBreak,10944719,392,420)
{
Caption="del"
link(Out,12258220:doEraseSection,[])
Primary=[13270349,294,119]
}
Add(DoData,3430881,623,539)
{
Data=String()
link(onEventData,13270349:In,[])
link(Data,15979616:String,[])
}
Add(LineBreakEx,8965817,560,546)
{
@Color=16755455
Caption="load"
}
Add(ChildForm,142575,455,168)
{
FirstUsage=0
link(onEvent1,12573672:doWork,[])
}
BEGIN_SDK
Add(EditMulti,11576497,21,21)
{
EventCount=1
WorkCount=1
Width=601
Height=557
link(doWork1,3712864:doShowModal,[(45,27)(45,139)])
}
Add(MainForm,3712864,147,105)
{
Left=35
Top=105
Width=369
Height=196
Caption="Добавление программы"
BorderStyle=3
Point(doShowModal)
}
Add(Label,11252075,56,210)
{
Left=10
Top=10
Width=103
Height=17
Caption="Видимое название:"
}
Add(Edit,3777375,343,196)
{
Left=10
Top=30
Width=190
Text=""
}
Add(Label,8861366,56,280)
{
Left=10
Top=60
Width=100
Height=17
Caption="Путь к программе:"
}
Add(Edit,8562508,385,182)
{
Left=10
Top=80
Width=250
Text=""
}
Add(Button,1259951,168,182)
{
Left=270
Top=80
Width=80
Caption="Обзор..."
link(onClick,180963:doExecute,[])
}
Add(ODialog,180963,217,182)
{
Filter="Все файлы|*.*"
Title="Выбор программы"
StartDir=""
FileName=""
link(onExecute,1083736:doWork2,[])
}
Add(Button,5368771,133,434)
{
Left=190
Top=125
Width=120
Height=25
Caption="Отмена"
link(onClick,6104991:doWork,[])
}
Add(LineBreakEx,6104991,189,434)
{
Caption="exit"
}
Add(Button,11849371,133,343)
{
Left=45
Top=125
Width=120
Height=25
Caption="ОК"
link(onClick,9106398:doEvent1,[])
}
Add(LineBreakEx,7425038,70,126)
{
Caption="exit"
Type=1
link(OnEvent,3712864:doClose,[])
}
Add(Hub,9106398,196,343)
{
OutCount=3
link(onEvent1,10086940:doWrite,[(341,349)(341,300)])
link(onEvent2,11576497:onEvent1,[(465,356)(465,27)])
link(onEvent3,14651861:doWork,[])
}
Add(LineBreakEx,14651861,231,357)
{
Caption="exit"
}
Add(Ini,10086940,364,287)
{
FileName="apps.cfg"
Key="path"
Type=1
link(Section,3777375:Text,[(377,257)(349,257)])
link(Value,8562508:Text,[])
AddHint(-13,41,56,13,FileName)
}
Add(DropFile,8503235,217,238)
{
link(onDropFile,1083736:doWork3,[(277,244)])
}
Add(HubEx,1083736,273,182)
{
link(onEvent,8562508:doText,[])
}
END_SDK
Add(LineBreakEx,12573672,511,168)
{
@Color=16755455
Caption="load"
}
Add(InfoTip,10745322,378,119)
{
Info=#17:Добавление новой |18:программы в список|
Width=190
Height=116
}
Add(InfoTip,10271226,21,490)
{
Info=#26:Запуск выбранной программы|
Width=323
Height=158
}
Add(InfoTip,3663966,392,497)
{
Info=#28:Удаление программы из списка|
Width=337
Height=102
}
Add(BitBtn,338928,392,168)
{
Left=10
Top=155
Width=22
Height=22
Hint="Добавить программу в список"
Caption=""
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF69827D66F8EC172C13FC0FC22036A9FA852B85FF87EC0A0163109B54FDE2B5E2FFC3F7868331884DAA7E992699FFD107A3C118C42655BF5287D2FF84E309600C62E3531BBB2A76BFCE249DFF86D30DFF9BCF35FF6FB7C4EEBFF34AE7FFA96752C118C4068981E4406A406A417A60FAF5A7EAFFCFBE944D1206E981E9379D6DFABFFD5D3B0AAE795CF3BFE07A011883D8E8F2203D30FD393B73F6DB2FB5FFEFBADAF5BFF746EFFF01DB02FE87EE0EFD5F76B70C8C416C9018480EA406A416A4075F9838AD70FA5FFDA81A8C416C52C3DF639DC7FF86E70D600C6293AADF77B3EFFF96D72D600C6293AA3F707B203CAC406C52F5D79DAEDB0F4BFF2036ADF229007BB6C489]
link(onClick,142575:doWork1,[])
}
Add(BitBtn,10458785,406,532)
{
Left=40
Top=155
Width=22
Height=22
Hint="Удалить программу из списка"
Caption=""
Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47F1006387881BFB59D5CEFFE7D5BBF25FC4ECE67F59FB7BFF55DC1EFDD7F27906C62036480C24075203520BD203D32F6C7AFB7F48D97F9230480F4CBF7EE087FFED2BFF9384417A60FA8BBAFFEF77CFFCFFDF371F627674EDFFFF89CDFFFFA7B64330880D1203C981D480D482F48CC6FDC063006EB1ED65]
link(onClick,4072402:doMessage,[])
}
Add(EventFromData,15042917,210,539)
{
link(onEvent,15045584:doPart,[])
}
Add(InfoTip,7844409,224,322)
{
Info=#24:Загрузка списка программ|
Width=477
Height=137
}
Add(FilePartElm,15045584,259,539)
{
Mode=0
link(onPart,15042917:doData,[(303,545)(303,533)(191,533)(191,545)])
link(FileName,10106629:getVar,[])
}
Add(LineBreakEx,10106629,259,511)
{
Caption="exe"
Type=2
}

Редактировалось 1 раз(а), последний 2019-10-29 12:12:30
карма: 26

0
Ответов: 22
Рейтинг: 2
#4: 2019-10-30 18:40:36 ЛС | профиль | цитата
О! Прям как я представлял себе работу! Щас попробую сделать как необходимо! Спасибо тебе Netspirit! Буду пробовать!
карма: 0

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