Обсуждение программирования на Delphi в конференции ru.delphi

дальше копаешь эти структуры до DBT_DEVTYP_VOLUME, там есть dbcv_unitmask. Получив букву, зови GetDriveType и узнаешь тип устройства.

* Origin: MTU-Intel ISP (2:5020/400)




Hi,






У меня пока даже не вызывается эта процедура на сообщение. То есть она
вызывается иногда сама по себе, но не при вставке/удалении CD.

Вот:

TForm1 = class(TForm)
.......
private
procedure OnDEVICECHANGE(var Message : TMessage); message WM_DEVICECHANGE;
procedure OnInsertCD (Sender:TObject);
procedure OnRemoveCD (Sender:TObject);
.......


procedure TForm1.OnDEVICECHANGE(var Message : TMessage);
const
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEREMOVECOMPLETE = $8004;
begin
if Message.Msg = WM_DEVICECHANGE then begin
if Message.WParam = DBT_DEVICEARRIVAL then OnInsertCD(Self) else
if Message.WParam = DBT_DEVICEREMOVECOMPLETE then OnRemoveCD(Self)
else inherited;
Caption := IntToStr(Message.WParam) + ' (' + IntToHex(Message.WParam, 8) + ') ' +
FormatDateTime('hh:nn:ss',Now);
end else inherited;
end;


Почему этот обработчик сообщения WM_DEVICECHANGE не вызывается
программой при выемке-вставке CD?



* Origin: Demos online service (2:5020/400)








Попробуй половить его в Application.OnMessage
Как сказано тут "How To Getting Notification of CD-ROM Insertion or Removal"
support.microsoft.com/kb/q163503/

"Windows sends all top-level windows a WM_DEVICECHANGE message when ..." есть подозрение что поскольку форма висит на окне Application, оно уже не является топ-левел, и следовательно не получает сообщение.

* Origin: MTU-Intel ISP (2:5020/400)




Hi,












Переписал этот обработчик в Application.OnMessage
Сама эта процедура вызывается программой на разные сообщения,
но вот сообщения WM_DEVICECHANGE почему-то не поступает,
поэтому соответсвующий ему блок программа не обрабатывает.


procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
const
DBT_DEVICEARRIVAL = $8000;
DBT_DEVICEREMOVECOMPLETE = $8004;
begin
if Msg.Message = WM_DEVICECHANGE then begin
if Msg.WParam = DBT_DEVICEARRIVAL then OnInsertCD(Self) else
if Msg.WParam = DBT_DEVICEREMOVECOMPLETE then OnRemoveCD(Self) else inherited;
Caption := IntToStr(Msg.WParam) + ' (' + IntToHex(Msg.WParam, 8) + ') ' +
FormatDateTime('hh:nn:ss',Now);
end else inherited;
end;

Что-то непонятное. Может эти сообщения не посылаются системой?


xof

* Origin: Demos online service (2:5020/400)




On Sun, 7 Aug 2005 11:39:17 +0000 (UTC), "aleXander Olegovich Fedorov"




Автораспознавание диска в свойсвах CD_ROM-а включено?

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)




Hi,





Конечно выключено. Hеужели, в системе XP автозапуск так жестко
связан с вообще распознаванием действий дисковода? Это примитивно.
В стиле MS... Сейчас проверю.

xof

* Origin: Demos online service (2:5020/400)





доброе(ый/ой) (утро(а), день(и), вечер(а), ночи) [не нужное зачеркнуть]
глубокоуважаемый(ая) Демид!
вы писали 05.08.2005-20:11 в эху fido7.ru.delphi для :









уже 100 лет как написано и используется - бесплатно с исходниками JCL (Jedi - homepages.borland.com/jedi/jcl/)
в примерах смотри \examples\vcl\debugextension\dialog\ExceptDlg.pas

использует map файл который компилит в exe'шник, размер немного увиличавется, но будешь иметь что-то типа:
=========Beginning of the citation==============
Принудительная инициация исключения.

Класс исключения: Exception
Адрес исключения: 009C60DE
Стэк лист, создан 08.08.2005 11:26:31
[009C60D9] MainUnit.TFSLVMain.BBErrRaiseClick (Line 2031, "MainUnit.pas" + 0) + $11
[00734C49] dxBar.TdxBarItem.DoClick (Line 21005, "dxBar.pas" + 3) + $5
[00734BF1] dxBar.TdxBarItem.DirectClick (Line 20995, "dxBar.pas" + 4) + $7
[007375A4] dxBar.TdxBarItemControl.ControlUnclick (Line 22402, "dxBar.pas" + 28) + $7
[00739C07] dxBar.TdxBarButtonControl.ControlUnclick (Line 23599, "dxBar.pas" + 6) + $4
[00726EB8] dxBar.TCustomdxBarControl.WMLButtonUp (Line 14069, "dxBar.pas" + 28) + $6
[00475584] Controls.TControl.WndProc (Line 4645, "Controls.pas" + 53) + $6
[00478469] Controls.TWinControl.IsControlMouseMsg (Line 6295, "Controls.pas" + 9) + $16
[00A9EDAF] TRepOborNewUnit.TRepOborNew.CalculateRep (Line 237, "Отчеты\TRepOborNewUnit.pas" + 54) + $6F
[00478603] Controls.TWinControl.WndProc (Line 6342, "Controls.pas" + 33) + $4
[007275FE] dxBar.ProcessMouseMessage (Line 14311, "dxBar.pas" + 2) + $0
[007277EE] dxBar.TCustomdxBarControl.WndProc (Line 14367, "dxBar.pas" + 47) + $5
[00478280] Controls.TWinControl.MainWndProc (Line 6237, "Controls.pas" + 3) + $6
[0042F8D0] Classes.StdWndProc + $14
[00496A67] Forms.TApplication.ProcessMessage (Line 6873, "Forms.pas" + 13) + $1
[00496A9E] Forms.TApplication.HandleMessage (Line 6892, "Forms.pas" + 1) + $4
[00A9EDAF] TRepOborNewUnit.TRepOborNew.CalculateRep (Line 237, "Отчеты\TRepOborNewUnit.pas" + 54) + $6F
[00496CCE] Forms.TApplication.Run (Line 6976, "Forms.pas" + 16) + $3
[00B933B3] SLV_sql.SLV_sql (Line 477, "H:\!Projects\SLV\SLV_win32\SLV_SQL\Source\Client\SLV_sql.dpr" + 51) + $2
ОС : Windows XP Professional, Версия: 5.1, Билд: A28, "Service Pack 2"
Процессор: Intel, Pentium 4, 2980 MHz MMX
Экран : 1024x768 pixels, 32 bpp
Список загруженых модулей:
[019C0000] H:\!Projects\SLV\SLV_win32\SLV_SQL\Bin\dbexpint.dll

Borland dbExpress INTERBASE driver
[01E90000] H:\!Projects\SLV\SLV_win32\SLV_SQL\Bin\gds32.dll

Firebird SQL Server
[10000000] D:\Program Files\Punto Switcher\correct.dll
1.0.0.1 - 1, 0, 0, 1
Correct MFC Application
[20000000] D:\Program Files\ABBYY Lingvo 9.0\LvHook.dll
9.0.2.76 - 9.0.2.76
Lingvo Keyboard Hook DLL
[5B260000] D:\WINDOWS\system32\UxTheme.dll
6.0.2900.2180 - 6.00.2900.2180 (xpsp_sp2_rtm.040803-2158)
Библиотека тем UxTheme (Microsoft)
[5BD50000] D:\WINDOWS\system32\NETAPI32.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Net Win32 API DLL
[5F2F0000] D:\WINDOWS\system32\olepro32.dll
5.1.2600.2180 - 5.1.2600.2180
[698B0000] D:\WINDOWS\system32\hnetcfg.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Диспетчер конфигурации домашней сети
[6C730000] D:\WINDOWS\system32\DUSER.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Windows DirectUser Engine
[71A30000] D:\WINDOWS\system32\mswsock.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Расширение поставщика службы API Microsoft Windows Sockets 2.0
[71A70000] D:\WINDOWS\System32\wshtcpip.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Windows Sockets Helper DLL
[71A80000] D:\WINDOWS\system32\WS2HELP.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Модуль поддержки Windows Socket 2.0 для Windows NT
[71A90000] D:\WINDOWS\system32\WS2_32.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
Windows Socket 2.0 32-Bit DLL
[71AB0000] D:\WINDOWS\system32\wsock32.dll
5.1.2600.2180 - 5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)
32-разрядная библиотека Windows Socket
Иерархия активных элементов управления:
TdxTreeList "TVNav"
TFSLVMain "FSLVMain"
=========The end of the citation================

с уважением, evgeny vorobyov a.k.a gavr1l0 [PGPKey 0xC59ABCE2 on keyserver.pgp.com]
e-mail: gavr1l0(a)slv(dot)magadan(dot)ru icq: 773738
Когда сомневаешься - опустоши магазин. [Военные з. Мерфи]


* Origin: RTComm.RU (2:5020/400)




On Sun, 7 Aug 2005 19:02:56 +0000 (UTC), "aleXander Olegovich Fedorov"






Вроде автозапуск - это только вершина айсберга... Ты можешь выключить
его "программно" (в соотв. диалоге сказать "No actions"), а
автораспознавание диска - это как раз то, что тебе надо для появления
сообщения. Я не прав?

Александр Боковиков
E-mail: bokovikov(a)mail.ru (дом.) abokovikov(a)apress.ru (раб.)
www.apress.ru/pages/bokovikov/delphi
* Origin: Demos online service (2:5020/400)










Часть файлов рееестра лежит в D:\WINNT\system32\config. Hо дату модификации
они проставляют в соотв. с таймером.
Так что запоминай дату установки/последнего запуска (и ругайся если текущая
меньше), или отсчитывай не время, а кол-во запусков.

--
С уважение, Юрий.



* Origin: Krista RPA (2:5020/400)




Как-то раз Vladimir Tkatchenko(sands [@] zfs.lg.ua) написал:





Это много или мало?
Я тут прикинул - чтобы набросать на листочке основную функциональность
программы много времени и не требуется. Особенно если этой функциональности
немного.





Все то, что реализует потребную функциональность программы и не сводится
к общим вопросам хранения, поиска и обновления данных.
Грубо говоря, "SELECT ... INTO ... FROM ... WHERE ..." - это база. А то,
что потом с результатами этого SELECT'а делается - это "прикладная
надстройка".







Это достаточно очевидно, что такой список понадобится. Hепонятно, причем
тут "произвольность".





А что, ей там много надо? Если пользоваться средствами авторизации,
которые есть у самой базы, - то там и делать-то нечего.






Хотя бы просто понять, как оно работает.
--
Григорий Шпаков
Бывший 2:5020/198.39 AKA /213.25 AKA /54.35 AKA grigory [@] sirena.rinet.ru
Hыне grigory [@] sirena2000.ru

Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.Mail.Ru (2:5020/400)