ShellChangeNotifier i Delphi 2006

Er der ingen der har en ide?

Måske her:
http://delphi.about.com/od/vclusing/l/aa052403a.htm

Hej Kroning,
Den side kender jeg godt, men den giver mig ikke en alternativ til ShellChangeNotifier i Delphi 2006. Men måske du kan hjælpe mig med et tillægs svar på en opgave jeg har lavet tidligere, som du har svaret på.

http://www.eksperten.dk/spm/619421

Jeg har afprøvet dit eksempel, men forstår ikke lige hvordan jeg "fanger" hvilken fil der er blevet oprettet. Måske du kan hjælpe mig med det?

Jeg troede du ville have et alternativ til ShellChangeNotifier fordi den ikke fantes i 2006 og jeg mente at siden fortalte hvordan man fik den frem i 2006 for jeg tror ikke på at den helt er fjernet fra 2006.

Jeg kikker lige på det andet.

Det er korrekt at jeg vil gerne have ShellChangeNotify, så jeg kigger lige på siden igen. Så vent lidt med mit spørgsmål.

Men du må da gerne lige fortælle mig hvordan man skulle installeret componenten. Det synes jeg ikke lige at det fremgår særligt godt.

Det kan jeg ikke svare på, har aldrig brugt D2006.

Ok, men du må gerne hjælpe mig med det spørgsmål.

Jeg har kikket lidt på det og kan ikke lige komme med en løsning, man får at vide at der er sket en ændring men ikke i hvilken fil, måske findes der en enkelt løsning eller også skal man manuelt holde styr på filerne og så sammenligne hver gang der sker en ændring.

Lige præcis, men hvordan? :)

Nu lykkedes det mig ren faktisk at få ShellChangeNotify installeret i Delphi 2006, men gud hjælpe mig. Den kan ikke checke på UNC stier eller anden form for netværksdrev. Damn.

Har lige testet og det virker fint med UNC stier her.

ShellChangeNotify? Er det i en application eller i en service du har testet? Jeg er interesseret i en service.

Det er i en application.

Kan du prøve en service?

Kroning. Har du mulighed for det?

Nå, Kroning. Jeg fandt løsning på hvordan jeg kunne få ShellChangeNotify "ind" i D2006, men da du trods alt hjalp mig lidt på vej. Så får du point. Du må smide et svar.

ok

Lige tilsidst. Jeg kan også lave en ShellChangeNotify som tjekker biblioteker i en application, men kan ikke med en service. Måske gør jeg noget forkert. Har du mod på at hjælpe mig?

Jeg har aldrig prøvet at lave en service så har du evt. noget kode der viser hvordan.

En ShellChangeNotify på en service og husk at installer service med /install i parameter.

Den kan godt være at jeg ikke kan se skoven for bare af træer. Jeg er ihvertfald total blank.

Dette er koden:

unit MainUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ShellCtrls;

type
  TService1 = class(TService)
    ShellChangeNotifier1: TShellChangeNotifier;
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ShellChangeNotifier1Change;
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  TShellChangeThread.Create(Service1.ShellChangeNotifier1Change);
end;

procedure TService1.ShellChangeNotifier1Change;
begin
  ShowMessage('Yes BOSS');
end;

end.

Hvis jeg bruger ShowMessage i ShellChangeNotifier1Change bliver ShellChangeNotifier1Change kun kaldt en gang og ShowMessage vises ikke, hvis jeg i stedet skriver f.eks. Beep i ShellChangeNotifier1Change så kan jeg høre at ShellChangeNotifier1Change bliver kaldt hver gang der sker en ændring. Så ShowMessage kan åbenbart ikke benyttes i ShellChangeNotifier1Change men bortset fra det så virker det fint.

Her er koden:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ShellCtrls;

type
  TService1 = class(TService)
    ShellChangeNotifier1: TShellChangeNotifier;
    procedure ShellChangeNotifier1Change;
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ShellChangeNotifier1Change;
begin
    beep;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
    Started:=true;
end;

end.

Er det så også med UNC path?

Jeg havde glemt at det skulle være med UNC. Det virker ikke med UNC? Måske har det noget med rettigheder at gøre?