Вверх ↑
Этот топик читают: Гость
Ответов: 871
Рейтинг: 322
#1: 2008-12-29 11:53:36 ЛС | профиль | цитата
Просто вывод информации code_11087.txt
карма: 1

0
файлы: 1code_11087.txt [1.9KB] [369]
vip
#1.1контекстная реклама от партнеров
Ответов: 872
Рейтинг: 101
#2: 2008-12-29 12:29:14 ЛС | профиль | цитата
DelphiExampleSystemWMI

изучай...
карма: 1

0
Ответов: 871
Рейтинг: 322
#3: 2008-12-29 13:38:57 ЛС | профиль | цитата
[b]Flud[/b], вот эту строку выдерни при помощи WMI

#sha
Add(MainForm,2953706,14,77)
{
Width=525
Height=379
link(onCreate,5934798:doEvent1,[])
}
Add(WinExec,10373141,168,77)
{
FileName="c:Windowssystem32cmd.exe"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleTerminate)
Point(doConsoleTerminate)
Point(onConsoleError)
link(onConsoleResult,13500951:doCharset,[])
}
Add(Memo,14818082,273,84)
{
Left=5
Top=5
Width=505
Height=275
ScrollBars=2
link(onChange,2316414:doRead,[(317,90)(317,139)(275,139)(275,188)])
}
Add(Charset,13500951,217,84)
{
link(onCharset,14818082:doAdd,[])
}
Add(DoData,9734918,116,105)
{
Data=String(systeminfo
)
link(onEventData,10373141:doConsoleInput,[(156,111)(156,104)])
}
Add(Hub,5934798,68,91)
{
OutCount=3
link(onEvent1,10373141:doConsoleExec,[])
link(onEvent2,9734918:doData,[(108,104)(108,111)])
}
Add(ArrayRW,2316414,287,182)
{
link(onRead,10464615:doText,[])
link(Array,14818082:Array,[])
link(Index,471149:Var,[(300,172)(307,172)])
}
Add(Label,10464615,343,182)
{
Left=130
Top=310
Width=4
Height=4
Caption=""
}
Add(GlobalVar,471149,301,147)
{
Name="a"
Data=Integer(14)
}
Add(Label,11483129,126,161)
{
Left=185
Top=290
Width=96
Height=17
Caption="
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#4: 2008-12-29 13:54:28 ЛС | профиль | цитата
kamakama, у меня не работает.
Нет у меня папки C:Windows.
У меня папка C:WinNT
И я не один такой.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 872
Рейтинг: 101
#5: 2008-12-29 14:06:34 ЛС | профиль | цитата

Add(ProcInfo,14026917,329,224)
{
Point(Architecture)
link(onInfo,11420611:doText,[])
}
Add(Edit,11420611,392,224)
{
Left=5
Top=5
Width=155
Text=""
link(Str,14026917:Architecture,[(398,212)(380,212)(380,268)(363,268)])
}



у меня вообще так



карма: 1

0
Разработчик
Ответов: 26071
Рейтинг: 2122
#6: 2008-12-29 14:06:38 ЛС | профиль | цитата
Tad, а кто мешает сделать так



Add(MainForm,14579628,210,189)
{
Width=525
Height=379
link(onCreate,5934798:doEvent1,[])
}
Add(WinExec,10373141,420,189)
{
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleTerminate)
Point(doConsoleTerminate)
Point(onConsoleError)
link(onConsoleResult,13500951:doCharset,[])
}
Add(Memo,14818082,525,196)
{
Left=5
Top=5
Width=505
Height=275
ScrollBars=2
link(onChange,2316414:doRead,[(569,202)(569,251)(527,251)(527,300)])
}
Add(Charset,13500951,469,196)
{
link(onCharset,14818082:doAdd,[])
}
Add(DoData,9734918,312,217)
{
Data=String(systeminfo
)
link(onEventData,10373141:doConsoleInput,[(382,223)(382,216)])
}
Add(Hub,5934798,264,203)
{
OutCount=3
link(onEvent1,2984357:doString,[])
link(onEvent2,9734918:doData,[(304,216)(304,223)])
}
Add(ArrayRW,2316414,539,294)
{
link(onRead,10464615:doText,[])
link(Array,14818082:Array,[])
link(Index,471149:Var,[(552,284)(559,284)])
}
Add(Label,10464615,595,294)
{
Left=130
Top=310
Width=4
Height=4
Caption=""
}
Add(GlobalVar,471149,553,259)
{
Name="a"
Data=Integer(14)
}
Add(Label,11483129,322,273)
{
Left=185
Top=290
Width=96
Height=17
Caption=""
}
Add(FormatStr,2984357,357,203)
{
DataCount=1
Mask="%1system32cmd.exe"
link(onFString,10373141:doConsoleExec,[])
link(Str1,6750508:WindowsDir,[])
}
Add(Dir,6750508,329,154)
{
Point(WindowsDir)
}

карма: 22

0
Ответов: 872
Рейтинг: 101
#7: 2008-12-29 14:11:02 ЛС | профиль | цитата
а не проше

%SYSTEMROOT%System32cmd.exe
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2008-12-29 14:18:41 ЛС | профиль | цитата
nesco, Да знаю я. А можно вообще указать cmd.exe - тоже найдет в любом случае.
Но kamakama выложил программу для общего пользования и именно он должен думать о её "гибкости".
А своим C:Windows он эту гибкость и отрубил.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26071
Рейтинг: 2122
#9: 2008-12-29 14:20:03 ЛС | профиль | цитата
flud, а ты проверял
карма: 22

0
Ответов: 871
Рейтинг: 322
#10: 2008-12-29 15:23:47 ЛС | профиль | цитата
7.12.07 я первый раз скачал HiAsm. 8.12.07.00:42 зарегистрировался на форуме. И тогда и сейчас в программировании - 0. HiAsm для меня лично - просто хороший отдых и информация к размышлению. А так как я не профи, то и гуляю от своей печки. Но надеюсь что все таки опыт и ваши пинки приведут к более результативным решениям.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#11: 2008-12-29 15:29:21 ЛС | профиль | цитата
kamakama, главное НЕ ОБИЖАЙСЯ
С годовщиной тебя и С НОВЫМ ГОДОМ!
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26071
Рейтинг: 2122
#12: 2008-12-29 16:38:27 ЛС | профиль | цитата
kamakama писал(а):
И тогда и сейчас в программировании - 0

Ну, это никаким образом не относится к ссылке на папку Виндовоза.

Tad писал(а):
С НОВЫМ ГОДОМ!

С каким Новым Годом -- с наступающим, батенька, с наступаюшим...
Вот написал бы -- "С Рождеством", тогда понятно, у католиков -- уже праздник
карма: 22

0
Ответов: 632
Рейтинг: 16
#13: 2008-12-29 17:03:23 ЛС | профиль | цитата
nesco, С прошедшим халуйвином
карма: 0

0
Разработчик
Ответов: 26071
Рейтинг: 2122
#14: 2008-12-29 17:49:00 ЛС | профиль | цитата
nesco писал(а):
С прошедшим халуйвином

Ну ты вспомнил...
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#15: 2008-12-29 17:54:22 ЛС | профиль | цитата
nesco,
kamakama писал(а):
7.12.07 я первый раз скачал HiAsm.
Вот у него уже новый год в HiAsm-е уже начался
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)