Панель дисков на рабочий стол

Форумы СхемыПанель дисков на рабочий стол ← Ctrl1 2 3 4 5 678 9 10 11Ctrl →

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

Разработчик

Ответов: 26066

Рейтинг: 2120

#91: 2009-10-25 22:42:48 ЛС | профиль | цитата

Если делать не True (что лучше), тогда добавление шрифтов надо делать в самом начале перед созданием панелей и устанавливать уже затем принудительно шрифт каждому нужному элементу внутри панели при ее добавлении

карма: 22

Ответов: 175

Рейтинг: 10

#92: 2009-10-25 23:51:13 ЛС | профиль | цитата

nesco писал(а):

устанавливать уже затем принудительно шрифт каждому нужному элементу внутри панели при ее добавлении

nesco, заменил элементы на TempFont, установил Message в False, убрал фонты из системы - и все работает, так что жду ответа от Assasin
Сейчас обновлю исходник..

карма: 1

Разработчик

Ответов: 4697

Рейтинг: 426

#93: 2009-10-26 13:18:43 ЛС | профиль | цитата

Все работает, приступайте к массовому производству

карма: 10

Мой сайт, Мои рассказы

Голосовали:

a0005d26f

Ответов: 175

Рейтинг: 10

#94: 2009-10-26 14:34:05 ЛС | профиль | цитата

Assasin, спасибо, что помогаешь делать программное обеспечение лучше. кстати, друг выложил в торенте, посмотрим, как народ примет....

карма: 1

Разработчик

Ответов: 4697

Рейтинг: 426

#95: 2009-10-26 14:41:40 ЛС | профиль | цитата

Только ты чем копилировал

Дельфой? за нелегал могут и посадить

желательно распространять exe из под FPC, если позволяет код(без багов от ФПЦ)!

карма: 10

Мой сайт, Мои рассказы

Ответов: 175

Рейтинг: 10

#96: 2009-10-26 14:53:42 ЛС | профиль | цитата

код только под delphi. Так что, убрать с торрента?

карма: 1

Разработчик

Ответов: 4697

Рейтинг: 426

#97: 2009-10-28 01:13:53 ЛС | профиль | цитата

Если бесплатно то еще можно, но особо долго не оставлять лучше, на недельку и хватит, а если всем понравилось попытаться под ФПЦ переделать или распространять дальше но ГЛАВНОЕ УСЛОВИЕ БЕСПЛАТНО!!! А вообще где-то тема была про это, сейчас поищу

карма: 10

Мой сайт, Мои рассказы

Ответов: 175

Рейтинг: 10

#98: 2009-10-28 01:59:22 ЛС | профиль | цитата

Assasin, наживаться я не собираюсь
а под fpc - это только если nesco, бросит все на свете и переделает элементы wmi под fpc
я делал попытки, но не получилось, а из ведов никто не поддержал (не в упрек написано)

карма: 1

Ответов: 4641

Рейтинг: 334

#99: 2009-10-28 04:59:49 ЛС | профиль | цитата

a0005d26f писал(а):

элементы wmi

А может лучше элемент HardDisk подправить? Думаю это наиболее реальнее.
Умеет же он менять метку диска, так значит должен и выводить ее в мт потоке.
На данный момент выводит [Диск][Тип] а надо [Диск][Тип][Метка Диска]

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 175

Рейтинг: 10

#100: 2009-10-28 05:12:32 ЛС | профиль | цитата

Думаю, если HardDisk начнет выводить label, то вернемся к нашим баранам, т.е. к Delphi4

Может от метки отказаться?

карма: 1

Ответов: 4641

Рейтинг: 334

#101: 2009-10-28 05:14:29 ЛС | профиль | цитата

a0005d26f писал(а):

то вернемся к нашим баранам,

это почему это? HardDisk работает под fpc, меняет метку диска и что не может ее прочитать?
Я не спец, но думаю может!
------------ Дoбавленo в 05.15:

a0005d26f писал(а):

Может от метки отказаться?

пока можешь отказаться, но думаю кто знающий придет и подскажет насчет метки.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 175

Рейтинг: 10

#102: 2009-10-28 05:22:02 ЛС | профиль | цитата

Буду ждать. Кстати , на торренте роздачу закрыли через 15 минут. Значит что-то знают.

карма: 1

Ответов: 4641

Рейтинг: 334

#103: 2009-10-28 21:23:26 ЛС | профиль | цитата

если в fpc не силен, может сможешь например вот это применить.
vbs скрипт


#bas
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootCIMV2")
If Err.Number <> 0 Then
	WScript.Echo Err.Number & ": " & Err.Description
	WScript.Quit
End If
For Each objDP In objService.ExecQuery("SELECT * FROM  Win32_LogicalDisk")
	

WScript.Echo objDP.Name + ";" + objDP.VolumeName
 	
Next

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 175

Рейтинг: 10

#104: 2009-10-29 18:14:01 ЛС | профиль | цитата

Ravilr, Если не трудно, покажи как это в элемент всандалить со входами и выходами. Я парился часа три - и не получилось. В Example все понятно, а в этом не могу понять, где функция, где результат, как вывести....

карма: 1

Ответов: 4641

Рейтинг: 334

#105: 2009-10-29 20:05:22 ЛС | профиль | цитата

a0005d26f писал(а):

Если не трудно, покажи как это в элемент всандалить

ооо a0005d26f, мне как и тебе надо посидеть подумать. Здесь не мой конек. Тебе могут помочь Леонид, Nic, andrestudio, например. Как то так.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Форумы СхемыПанель дисков на рабочий стол ← Ctrl1 2 3 4 5 678 9 10 11Ctrl →


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