[DimanVIP]

Доброго всем времени суток!

Столкнулся я тут с такой засадой.
Раньше юзал эту функцию на Хрюшке, ни забот ни проблем небыло.

Нужда заставила пересесть на семерку и начать новый проект, а тут такая засада. WMDeviceChange не работает. Код полностью компилится без ошибок и предупреждений, но функция не работает. Даже контрольные точки в этой функции не активны (перечеркнуты крестиком).

Копания в интернете успехов не принесли. Единственное, что немного почерпнул со своим скудным англицким, что мелкомягкие чего-то там опять наворотили (вроде как с UAC чего-то там).

Вообщем помогите, кто чем может.
Заранее благодарю!

З.Ы.: Delphi 2010, Win7 32Bit.

[Gravitas]

От имени администратора проект запустите, должно помочь.
...
Для спасиба справа сверху поста есть весы)

[DimanVIP]

Спасибо огромное!!!

Заработало!!

Теперь появился еще один камень в огород семерки...

[NumLock]

WM_DEVICECHANGE это не функция, а сообщение:

WM_DEVICECHANGE Message
Notifies an application of a change to the hardware configuration of a device or the computer.

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx
примерчик:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMDEVICECHANGE(var Msg: TMessage);
begin
  ListBox1.Items.Add('WParam='+IntToStr(Msg.WParam)+' LParam='+IntToStr(Msg.LParam));  
end;

end.

на флешку реагирует и без администраторских прав.