Вверх ↑
Этот топик читают: Гость
Ответов: 139
Рейтинг: 4
#1: 2008-05-22 23:36:26 ЛС | профиль | цитата
Сделал простенький файловый менеджер на основе компонента ShellBrowser 1.0 fixed, может переименовывать, копировать, перемещать, создавать папки, но вот не знаю как получить сетевое окружение, как-то компонет Dir можно использовать, ну или доработать его?
Схему показать не могу, так как не удается прекрепить файл к сообщению или можно ее втиснуть в само сообщение?
карма: 0

0
Ответов: 446
Рейтинг: 7
#2: 2008-05-22 23:43:30 ЛС | профиль | цитата
Ну раз запостил придется либо показывать, либо удалять
Если хочешь показать исходный код программы и выставить ее на суд общественности, НО не получается выложить ее на этом форуме, тогда воспользуйся любым бесплатным файлообменником ( с минимумом рекламы ) и выложи здесь ссылку, и у каждого появится возможность скачать и посмотреть на программу и исходники
карма: 0
Время верстки: Текущее время: %time%
0
Ответов: 2060
Рейтинг: 28
#3: 2008-05-23 00:10:29 ЛС | профиль | цитата
pav, Вставка и копирование схем на форуме
карма: 1

0
Ответов: 2125
Рейтинг: 159
#4: 2008-05-23 00:19:22 ЛС | профиль | цитата
Данный компонент не поддерживает shell extensions
Если написать в командной строке explorer ::{208D2C60-3AEA-1069-A2D7-08002B30309D}, увидишь сетевое окружение.
То есть это такой "виртуальный" каталог, содержимое которого считывается через COM-объект.
карма: 1

0
Ответов: 205
Рейтинг: 3
#5: 2008-05-23 00:37:25 ЛС | профиль | цитата
explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} а вотт ток отобразится мой компьютер
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2008-05-23 08:25:51 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2025-01-09 05:40:52
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2008-05-23 23:37:24 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2025-01-09 05:40:52
карма: 0

0
Ответов: 3851
Рейтинг: 159
#8: 2008-05-23 23:50:28 ЛС | профиль | цитата
используй тэги "code" вместо "wiki"
карма: 0
начавший
0
Ответов: 139
Рейтинг: 4
#9: 2008-05-23 23:58:31 ЛС | профиль | цитата
Что-то не получается отредактировать сообщение, у кого есть права может поможет.
карма: 0

0
Ответов: 5227
Рейтинг: 587
#10: 2008-05-24 08:55:03 ЛС | профиль | цитата
pav, неплохо , нужно наверно было в "схемы" положить.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 2125
Рейтинг: 159
#11: 2008-05-24 15:47:57 ЛС | профиль | цитата
А чё на панельках (ChildPanel) сэкономил?
Кстати, раз левая и правая панель одинаковые, может можно было использовать ChildPanelEx в динамическом режиме?
Тогда хоть десять панелей
------------ Дoбавленo:

pav писал(а):
как получить сетевое окружение


Если обратиться опять-же к скриптам, то можно много чего интересного получить
Add(MainForm,5571891,21,105)
{
Left=20
Top=105
Height=312
}
Add(VBJScript,611918,336,189)
{
WorkPoints=#6:doList|
EventPoints=#6:onItem|
Script=#19:Sub doWork(dt, idx)|44: set sh = CreateObject("Shell.Application")|34: set fld = sh.NameSpace(CInt(dt))|25: for each x in fld.Items|21: sys.onItem x.Name|6: next|7:End Sub|
link(onItem,16176128:doAdd,[])
}
Add(Button,10429832,105,168)
{
Left=30
Top=20
link(onClick,10185215:doEvent1,[])
}
Add(ListBox,16176128,406,189)
{
Left=25
Top=50
Width=350
Height=220
}
Add(Hub,10185215,161,168)
{
link(onEvent1,16176128:doClear,[(384,174)(384,202)])
link(onEvent2,358507:doData,[(205,181)(205,195)])
}
Add(DoData,358507,217,189)
{
link(onEventData,15046379:doSplit,[])
link(Data,7549645:String,[])
}
Add(ComboBox,7549645,210,98)
{
Left=105
Top=20
Width=270
Height=22
Strings=#14:ssfDESKTOP = 0|15:ssfPROGRAMS = 2|15:ssfCONTROLS = 3|15:ssfPRINTERS = 4|15:ssfPERSONAL = 5|16:ssfFAVORITES = 6|14:ssfSTARTUP = 7|13:ssfRECENT = 8|13:ssfSENDTO = 9|17:ssfBITBUCKET = 10|17:ssfSTARTMENU = 11|24:ssfDESKTOPDIRECTORY = 16|14:ssfDRIVES = 17|15:ssfNETWORK = 18|15:ssfNETHOOD = 19|13:ssfFONTS = 20|17:ssfTEMPLATES = 21|23:ssfCOMMONSTARTMENU = 22|22:ssfCOMMONPROGRAMS = 23|21:ssfCOMMONSTARTUP = 24|24:ssfCOMMONDESKTOPDIR = 25|15:ssfAPPDATA = 26|17:ssfPRINTHOOD = 27|20:ssfLOCALAPPDATA = 28|18:ssfALTSTARTUP = 29|24:ssfCOMMONALTSTARTUP = 30|23:ssfCOMMONFAVORITES = 31|21:ssfINTERNETCACHE = 32|15:ssfCOOKIES = 33|15:ssfHISTORY = 34|21:ssfCOMMONAPPDATA = 35|15:ssfWINDOWS = 36|14:ssfSYSTEM = 37|20:ssfPROGRAMFILES = 38|18:ssfMYPICTURES = 39|15:ssfPROFILE = 40|17:ssfSYSTEMx86 = 41|23:ssfPROGRAMFILESx86 = 48|
Text=""
}
Add(StrPart,15046379,273,189)
{
Char="="
link(onSplit,611918:doList,[])
}
карма: 1

0
Ответов: 5227
Рейтинг: 587
#12: 2008-05-24 21:46:40 ЛС | профиль | цитата
pav, предлагаю идею:

В пример возьму себя ;), я человек пожизни рассеяный с уличы "Бассеяной", неважно, таких людей много, и Вы нам можете помочь. К чему клоню: нужно доработать Вашу
программу для копирования файлов на Flash неакопитель с шифрованием, не так обидно будет флэшки терять (я допустим за последние пол года потерял уже 3, но на одной были семейные фотографии, печально, но факт) но как говорится мал золтник но дорог , дерзайте, и польза будет однозначно, после последней потери для себя решил: делать буду, вот только времени на работе в последнее время нет, а дома подавно
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 139
Рейтинг: 4
#13: 2008-05-24 23:42:51 ЛС | профиль | цитата
Кажется получилось получить сетевое окружение, но точно не уверен так как дома нет лок. сети, а на работу выйду только через три недели, возможно это вовсе из другой оперы Может кто проверит? Для этого пришось подредактировать элемент Dir.
hiDir.pas
code_9134.txt

Dir.ini

...
*NetHood=Папка "Сетевое окружение"|3|2
andrestudio, у самого со временем не очень, да и смогу ли, это ведь всего лишь третья моя программа. Я не против, если бы кто помог бы в этом и добавил что-нибудь свое.
tsdima, на панельках не экономил, если честно я сними пока не разбирался.
Тут новая проблема нарисовалась - не придумаю как группу файлов копировать, хотя ShellBrowser позволяет это делать.

карма: 0

0
Ответов: 5227
Рейтинг: 587
#14: 2008-05-24 23:49:42 ЛС | профиль | цитата
pav, разве проблема ;)

code_9135.txt
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_9135.txt [426B] [484]
Ответов: 139
Рейтинг: 4
#15: 2008-05-25 00:21:03 ЛС | профиль | цитата
Так и я такую же схему для проверки сделал Проблема-как это в своей схеме сделать, но правда я пока и не очень то и думал, мне только сегодня вечером это в голову взбрело
------------ Дoбавленo:

Вот схема с подправленным компоненом Dir

#sha
Add(MainForm,1051149,7,7)
{
Left=20
Top=105
Width=721
Height=573
Caption="Файловый менеджер"
BorderStyle=1
DragForm=0
Position=1
link(onCreate,7529429:doData,[(48,27)(48,13)])
}
Add(ShellBrowser,4476034,42,119)
{
Left=10
Top=80
Width=345
Height=375
Color=15793151
DefaultDir="c:"
ShellSort=0
ShowUpDir=0
AutoDblClicks=0
Point(doShellUpdate)
Point(onChangeDir)
Point(doStyle)
Point(doShellSort)
link(onClick,13931579:doTrim,[])
link(onChangeDir,12533759:doText,[(86,139)(86,233)(37,233)(37,342)])
}
Add(Edit,1922926,196,112)
{
Left=10
Top=35
Width=345
Color=-16777197
Text="Переименуйте файл (папку) и нажмите Enter"
link(onEnter,9306951:doValue,[])
}
Add(DirTools,8886816,308,441)
{
AllowUnDo=1
Point(doRename)
link(onOK,6770754:doEvent1,[])
link(Source,3220673:Var,[(314,359)(216,359)])
link(Dest,5665790:Var,[(321,363)(307,363)])
}
Add(Memory,14605166,196,154)
{
Point(Data)
link(Data,1922926:Text,[])
}
Add(Memory,9306951,252,119)
{
link(onData,2723147:doData,[])
}
Add(GetIndexData,5665790,301,252)
{
Count=4
link(Data1,9306951:Value,[(307,191)(258,191)])
link(Data2,15791687:Value,[(314,206)(629,206)])
link(Data3,8135721:Var3,[(321,240)(229,240)(229,380)])
link(Data4,1727215:Var1,[(328,240)(392,240)(392,380)])
}
Add(DoData,2723147,308,119)
{
Data=Integer(0)
link(onEventData,110809:doEvent1,[])
}
Add(Hub,6555803,140,112)
{
OutCount=3
link(onEvent1,1922926:doText,[])
link(onEvent2,14605166:doValue,[(187,125)(187,160)])
link(onEvent3,13689419:doData,[(184,132)(184,202)(30,202)(30,293)])
}
Add(Hub,110809,357,119)
{
InCount=2
OutCount=3
link(onEvent1,11832687:doWork2,[(401,125)(401,202)(247,202)(247,279)])
link(onEvent2,9057264:doWork1,[(401,132)(401,178)(172,178)])
link(onEvent3,8886816:doRename,[(414,139)(414,243)(296,243)(296,468)])
}
Add(ShellBrowser,5492202,434,119)
{
Left=360
Top=80
Width=345
Height=375
Color=15793151
DefaultDir="c:"
ShellSort=0
ShowUpDir=0
AutoDblClicks=0
Point(doShellUpdate)
Point(onChangeDir)
Point(doStyle)
Point(doShellSort)
link(onClick,5426267:doTrim,[])
link(onChangeDir,8391971:doText,[(470,139)(470,342)])
}
Add(Edit,1283150,567,119)
{
Left=360
Top=35
Width=345
Color=-16777197
Text="Переименуйте файл (папку) и нажмите Enter"
link(onEnter,15791687:doValue,[])
}
Add(Button,7709810,182,476)
{
Left=200
Top=465
Width=90
Caption="Удалить"
link(onClick,8886816:doDelete,[(285,482)(285,461)])
}
Add(Memory,4823370,567,161)
{
Point(Data)
link(Data,1283150:Text,[])
}
Add(Memory,15791687,623,126)
{
Default=Integer(1)
link(onData,15811091:doData,[])
}
Add(GetIndexData,3220673,210,245)
{
link(Data1,14605166:Value,[(216,215)(202,215)])
link(Data2,4823370:Value,[(223,219)(573,219)])
}
Add(DoData,15811091,672,126)
{
Data=Integer(1)
link(onEventData,110809:doEvent2,[(712,132)(712,104)(345,104)(345,132)])
}
Add(Hub,14771426,518,119)
{
OutCount=3
link(onEvent1,1283150:doText,[])
link(onEvent2,4823370:doValue,[(558,132)(558,167)])
link(onEvent3,3532432:doData,[(562,139)(562,195)(443,195)(443,293)])
}
Add(Hub,6770754,371,441)
{
InCount=2
link(onEvent1,4476034:doShellUpdate,[(409,447)(409,197)(35,197)(35,139)])
link(onEvent2,5492202:doShellUpdate,[(426,454)(426,139)])
}
Add(Trim,13931579,91,119)
{
Char=""
link(onTrim,6555803:doEvent1,[(135,125)(135,118)])
}
Add(Trim,5426267,476,119)
{
Char=""
link(onTrim,14771426:doEvent1,[])
}
Add(Button,6842963,182,427)
{
Left=10
Top=465
Width=90
Caption="Копировать"
link(onClick,8886816:doCopy,[(289,433)(289,447)])
}
Add(DoData,9677754,553,287)
{
Data=Integer(2)
link(onEventData,11832687:doWork3,[(596,293)(596,326)(263,326)])
}
Add(GetDataEx,1727215,448,371)
{
Angle=1
link(Data,8391971:Text,[(510,380)])
}
Add(DoData,13689419,42,287)
{
Data=Integer(0)
link(onEventData,675480:doEvent1,[])
}
Add(HubEx,9057264,168,217)
{
Angle=1
link(onEvent,2748755:doEvent1,[(172,552)])
}
Add(DoData,3532432,455,287)
{
Data=Integer(1)
link(onEventData,77847:doEvent1,[])
}
Add(DoData,13235170,140,294)
{
Data=Integer(3)
link(onEventData,11832687:doWork1,[(183,300)(183,262)(263,262)])
}
Add(InfoTip,14993733,35,42)
{
Info=#29:Переименование файлов и папок|12:в левом окне|
Width=365
Height=179
}
Add(Edit,12533759,49,336)
{
Left=10
Top=60
Width=345
Color=15793151
ReadOnly=0
}
Add(Edit,8391971,504,336)
{
Left=360
Top=60
Width=345
Color=15793151
ReadOnly=0
}
Add(Hub,9693225,63,413)
{
link(onEvent1,4476034:doStyle,[(107,419)(107,283)(30,283)(30,146)])
link(onEvent2,5492202:doStyle,[(289,426)(289,146)])
}
Add(DriveBox,9295852,42,56)
{
Left=10
Top=5
Width=285
Height=21
Color=15793151
link(onSelect,14610167:doWork2,[])
}
Add(DriveBox,16706592,413,49)
{
Left=360
Top=5
Width=285
Height=21
Color=15793151
link(onSelect,13465175:doWork2,[])
}
Add(Hub,2748755,280,546)
{
link(onEvent1,3220673:doIndex,[(333,552)(333,402)(191,402)(191,251)])
link(onEvent2,2839214:doIndex,[(345,559)(345,538)])
}
Add(HubEx,11832687,259,266)
{
link(onEvent,5665790:doIndex,[(284,279)(284,258)])
}
Add(Hub,675480,84,287)
{
link(onEvent1,9057264:doWork2,[(129,293)(129,230)])
link(onEvent2,13235170:doData,[])
}
Add(Hub,77847,497,287)
{
link(onEvent1,9057264:doWork3,[(541,293)(541,230)])
link(onEvent2,9677754:doData,[(541,300)(541,293)])
}
Add(GetDataEx,8135721,119,371)
{
Angle=3
link(Data,12533759:Text,[(55,380)])
}
Add(Button,1893139,189,595)
{
Left=295
Top=465
Width=90
Caption="Создать папку"
link(onClick,14885286:doString,[(282,601)(282,608)])
}
Add(InfoTip,12117509,406,42)
{
Info=#29:Переименование файлов и папок|13:в правом окне|
Width=323
Height=179
}
Add(InfoTip,2870013,434,259)
{
Info=#11:Копирование|23:из правого окна в левое|
Width=190
Height=137
}
Add(InfoTip,5959337,35,259)
{
Info=#11:Копирование|23:из левого окна в правое|
Width=162
Height=137
}
Add(Button,14252141,182,525)
{
Left=105
Top=465
Width=90
Caption="Переместить"
link(onClick,8886816:doMove,[(289,531)(289,454)])
}
Add(DoData,7529429,63,7)
{
Data=String(c:)
link(onEventData,3410901:doEvent1,[])
}
Add(Hub,3410901,112,7)
{
link(onEvent1,13465175:doWork1,[(459,13)])
link(onEvent2,14610167:doWork1,[(154,20)(154,55)(130,55)])
}
Add(HubEx,14610167,126,49)
{
link(onEvent,4476034:doSetDir,[(147,62)(147,94)(30,94)(30,125)])
}
Add(HubEx,13465175,455,42)
{
link(onEvent,5492202:doSetDir,[(476,55)(476,90)(422,90)(422,125)])
}
Add(Edit,8340929,399,532)
{
Left=390
Top=465
Width=220
Text="Введите название папки"
Alignment=2
}
Add(Dir,6609712,399,602)
{
link(onEnd,6770754:doEvent2,[(441,608)(441,495)(359,495)(359,454)])
}
Add(FormatStr,14885286,343,602)
{
Mask="%1%2"
link(onFString,6609712:doDir,[])
link(Str1,2839214:Var,[(349,583)(363,583)])
link(Str2,8340929:Text,[(356,589)(405,589)])
}
Add(GetIndexData,2839214,357,532)
{
link(Data1,8135721:Var2,[(363,458)(132,458)])
link(Data2,1727215:Var2,[(370,458)(461,458)])
}
Add(InfoTip,9757598,266,511)
{
Info=#13:Создать папку|
Width=218
Height=130
}
Add(Button,12605044,238,0)
{
Left=300
Top=5
Caption="Сеть"
link(onClick,6680020:doData,[(278,6)(278,62)])
}
Add(Button,11471459,581,7)
{
Left=650
Top=5
Caption="Сеть"
link(onClick,5616625:doData,[(622,13)(622,62)])
}
Add(Dir,8158976,294,0)
{
Point(NetHood)
}
Add(Dir,1133269,637,7)
{
Point(NetHood)
}
Add(DoData,6680020,322,56)
{
link(onEventData,14610167:doWork3,[(364,62)(364,100)(130,100)])
link(Data,8158976:NetHood,[])
}
Add(DoData,5616625,665,56)
{
link(onEventData,13465175:doWork3,[(709,62)(709,74)(459,74)])
link(Data,1133269:NetHood,[])
}
Add(Hub,8322698,70,469)
{
link(onEvent1,4476034:doShellSort,[(114,475)(114,314)(30,314)(30,153)])
link(onEvent2,5492202:doShellSort,[(268,482)(268,153)])
}
Add(ChildPanelEx,7612855,77,588)
{
}
BEGIN_SDK
Add(EditMultiEx,3666942,21,21)
{
}
Add(Panel,3454695,35,105)
{
Left=10
Top=490
Width=150
Height=35
}
END_SDK
Add(Label,7689050,28,588)
{
Left=20
Top=500
Width=34
Height=17
Font=[MS Sans Serif,9,0,0,1]
Caption="Стиль"
}
Add(ComboBox,15302359,21,406)
{
Left=60
Top=495
Width=90
Height=21
Strings=#4:Icon|9:SmallIcon|4:List|6:Detail|14:DetailNoHeader|
link(onClick,9693225:doEvent1,[])
}
Add(ChildPanel,12646477,77,532)
{
}
BEGIN_SDK
Add(EditMulti,1223967,21,21)
{
}
Add(Panel,7399625,35,105)
{
Left=165
Top=490
Width=195
Height=35
}
END_SDK
Add(Label,2869135,28,532)
{
Left=170
Top=500
Width=69
Height=17
Font=[MS Sans Serif,9,0,0,1]
Caption="Сортировать"
}
Add(ComboBox,12296781,21,469)
{
Left=240
Top=495
Width=110
Height=21
Strings=#4:None|12:FoldersFirst|13:CaseSensitive|4:Name|3:Ext|4:Size|14:SizeDescending|10:DateCreate|11:DateChanged|12:DateAccessed|
link(onClick,8322698:doEvent1,[(65,482)(65,475)])
}

карма: 0

1
файлы: 1code_9134.txt [163B] [313]
Голосовали:Валерий
Сообщение
...
Прикрепленные файлы
(файлы не залиты)