avalat
  - Longevity: 5 years 11 months
- Posts: 149
- REPUTATION:33[+] [-]
|
Справка по PureBasic от AZJIO
|
AZJIO
  - Longevity: 2 years 10 months
- Posts: 574
- REPUTATION:68[+] [-]
|
avalat, перевод от sergey2400, и от меня встраивание стиля, ссылок, в общем там есть страничка "От автора перевода", где пояснение от автора перевода и я там указал что я добавил. Просто не хочу чтобы это звучало как от меня, а ведь автор переводил более 2 лет, я ещё в 17 году выкладывал первую перепаковку.
|
AZJIO
  - Longevity: 2 years 10 months
- Posts: 574
- REPUTATION:68[+] [-]
|
Несколько ссылок для шапки CodeArchiv.7z Подсветка для родного IDE - Import.prefs (в настройках есть импорт темы/настроек, внизу), а также тема с другими вариантами.pb.coder для AkelPad - подсветка, автозавершение, свёртки, панель функций (в моей сборке есть) Тёмная тема для браузера, с использованием плагов Stylish / Stylebot для официального форума (англоязычного и русского) PureBasic(.info, .fr)
|
sergeysvirid
  - Longevity: 6 years 1 month
- Posts: 2026
- REPUTATION:127[+] [-]
- Location: 65 регион (GMT+11)
|
AZJIO, Спасибо, добавил в шапку
|
AZJIO
  - Longevity: 2 years 10 months
- Posts: 574
- REPUTATION:68[+] [-]
|
74449тогда подчистить топик от сообщений на усмотрение я выложил код-архив, проверил ещё раз внутренности, там папка "Codes из winapi_library" не переведённая, а я выкладывал перевод тут, очень полезные примеры и проверены на почти последних версиях 5.62. Перезалил код-архив с новыми "Codes из winapi_library".
|
AZJIO
  - Longevity: 2 years 10 months
- Posts: 574
- REPUTATION:68[+] [-]
|
старое"Фрагменты" для IDE, находятся в "Инструменты - Шаблоны" Templates.prefs этот файл нужно положить в "C:\Users\пользователь\AppData\Roaming\PureBasic\" и в шаблонах появятся все примеры WinAPI. В комплекте в архиве также au3-скрипт, который из любой папки с *.pb-файлами генерирует Templates.prefs. Обновил "winapi_library", в комлекте с Templates.prefs. Узнал что есть тема обсуждения этого комплекта и с последних 2-х страниц темы добавил ещё сотню примеров. nikzzzz, можно в шапку добавить PureAutoIt В примерах winapi_library есть файл "Другие\Внешний вывод отладки в DebugView.pb", там ссылка, по которой я скачал отладчик DebugView Марка Руссиновича, смысл в том, что можно вместо мессаги использовать строку OutputDebugString_("Привет, мир"), при этом при запущенной DebugView в его консоль попадают строки отладки с указанием времени. Файл "Диск\Определите, является ли диск жестким диском USB.pb" - тут совсем по другому определяется из этих флаговтипы#BusTypeUnknown = 0 #BusTypeScsi = 1 #BusTypeAtapi = 2 #BusTypeAta = 3 #BusType1394 = 4 #BusTypeSsa = 5 #BusTypeFibre = 6 #BusTypeUsb = 7 #BusTypeRAID = 8 #BusTypeiScsi = 9 #BusTypeSas = 10 #BusTypeSata = 11 #BusTypeSd = 12 #BusTypeMmc = 13 #BusTypeVirtual = 14 #BusTypeFileBackedVirtual = 15 #BusTypeSpaces = 16 #BusTypeMax = 17 #BusTypeMaxReserved = 127 А вот так выдал инфу вплоть до ревизии флешкивыдал инфу; Автор: Rings ;http://www.purebasic.fr/english/viewtopic.php?p=184194#p184194 EnableExplicit Structure STORAGE_PROPERTY_QUERY PropertyId.l QueryType.l AdditionalParameters.l EndStructure Structure STORAGE_DEVICE_DESCRIPTOR Version.l Size.l DeviceType.b DeviceTypeModifier.b RemovableMedia.b CommandQueueing.b VendorIdOffset.l ProductIdOffset.l ProductRevisionOffset.l SerialNumberOffset.l BusType.w RawPropertiesLength.l RawDeviceProperties.b Reserved.b[1024] EndStructure #BusTypeUnknown = 0 #BusTypeScsi = 1 #BusTypeAtapi = 2 #BusTypeAta = 3 #BusType1394 = 4 #BusTypeSsa = 5 #BusTypeFibre = 6 #BusTypeUsb = 7 #BusTypeRAID = 8 #BusTypeiScsi = 9 #BusTypeSas = 10 #BusTypeSata = 11 #BusTypeSd = 12 #BusTypeMmc = 13 #BusTypeVirtual = 14 #BusTypeFileBackedVirtual = 15 #BusTypeSpaces = 16 #BusTypeMax = 17 #BusTypeMaxReserved = 127 #IOCTL_STORAGE_QUERY_PROPERTY = $2D1400 Define Drive$ = "\\.\N:" ; Указать диск ; Define Drive$ = "\\.\C:" ; Указать диск Define hDrive Define udtQuery.STORAGE_PROPERTY_QUERY Define udtOut.STORAGE_DEVICE_DESCRIPTOR Define p Define lngResult Define dwOutBytes hDrive = CreateFile_(Drive$, 0, #FILE_SHARE_READ | #FILE_SHARE_WRITE, 0, #OPEN_EXISTING, 0, 0) If hDrive <> -1 For p=0 To 1023 udtOut\Reserved[p]=0 Next p lngResult = DeviceIoControl_(hDrive, #IOCTL_STORAGE_QUERY_PROPERTY, udtQuery, SizeOf(udtQuery), @udtOut, SizeOf(udtout), @dwOutBytes, 0) ; Debug "lngResult = " + Str(lngResult) If lngResult Debug "udtOut\Version = " + Str(udtOut\Version) ; размер структуры в байтах Debug "udtOut\Size = " + Str(udtOut\Size) ; размер структуры включая строковые данные Debug "udtOut\DeviceType = " + Str(udtOut\DeviceType) ; SCSI Debug "udtOut\DeviceTypeModifier = " + Str(udtOut\DeviceTypeModifier) ; SCSI Debug "udtOut\RemovableMedia = " + Str(udtOut\RemovableMedia) ; 1 = диск может быть извлечён Debug "udtOut\CommandQueueing = " + Str(udtOut\CommandQueueing) ; 1 - не выполнена команда SCSI Debug "udtOut\Bustype = " + Str(udtOut\Bustype) ; тип шины, к которой подключено устройство, т.е. флешка = #BusTypeUsb, обычный hdd = #BusTypeSata Debug "udtOut\RawPropertiesLength = " + Str(udtOut\RawPropertiesLength) Debug "udtOut\RawDeviceProperties = " + Str(udtOut\RawDeviceProperties) If udtOut\SerialNumberOffset ; Debug "SerialNumber = " + PeekS(udtOut + udtOut\SerialNumberOffset, -1, #PB_Ascii) Debug "SerialNumber = " + LTrim(PeekS(udtOut + udtOut\SerialNumberOffset, -1, #PB_Ascii)) EndIf If udtOut\VendorIdOffset Debug "VendorId = " + PeekS(udtOut + udtOut\VendorIdOffset, -1, #PB_Ascii) EndIf If udtOut\ProductIdOffset Debug "ProductId = " + PeekS(udtOut + udtOut\ProductIdOffset, -1, #PB_Ascii) EndIf If udtOut\ProductRevisionOffset Debug "ProductRevision = " + PeekS(udtOut + udtOut\ProductRevisionOffset, -1, #PB_Ascii) EndIf EndIf EndIf CloseHandle_(hDrive) вывод lngResult = 1 udtOut\Bustype = 7 udtOut\RemovableMedia = 1 udtOut\Version = 40 udtOut\DeviceTypeModifier = 0 udtOut\DeviceType = 0 udtOut\CommandQueueing = 0 udtOut\RawPropertiesLength = 2359296 udtOut\RawDeviceProperties = 0 SerialNumber = 5E0EE5504B90 VendorId = Kingston ProductId = DataTraveler 2.0 ProductRevision = PMAP
|
 Отправлено: 20-Sep-2020 16:13
(after 6 months 17 days)
Smitis
 - Longevity: 2 years 4 months
- Posts: 2
- REPUTATION:0[+] [-]
|
Удобно сделать вызов OutputDebugString отдельной функцией, например такой (в одну строку, чтобы было удобнее копипастить): Procedure dbg(txt.s="") : OutputDebugString_("PURE: "+txt) : EndProcedure Дополнительный префикс добавлен для удобства фильтрации сообщений в dbgview, а то часто левые проги отправляют туда сообщения и забивают экран ненужной информацией. Плюс я ещё добавил dbg в Custom keywords и сделал их ярко красного цвета, чтобы выделялись )) До кучи - понравился DebugView++ более навороченный, чем у Руссиновича. Есть сделанная мной портативная версия (+ портативный dbgview Руссиновича)
|
valeriduss
 - Longevity: 6 years 1 month
- Posts: 8
- REPUTATION:0[+] [-]
|
sergeysvirid, уважаемый Сережа, простите за "дурацкий " вопрос. Я хочу на флешку (или портабле HDD) поставить несколько ОС Linux . Стандартный способ, сделать флешку GPT, разбить на партиции и далее как обычно . Это я понимаю. Тут нет вопросов. Теперь "дурацкий" вопрос. Есть ли способ установить на одну партицию две и более ОС Linux. С помощью grub4dos я устанавливал несколько ОС Linux. Это были Live ОС. Флешка была MBR. Сейчас все новые ОС Linux. работают и под UEFI. Как быть ? Если что-то непонятно изложил , извините.
|
Current time is: 21-Jan 17:40
All times are UTC + 3
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
|
|