Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#4

Re: ShellNotifier löst beim Start schon OnChange aus

  Alt 14. Mär 2006, 12:51
Ich habe mal folgendes probiert, wurde aber nicht mit Erfolg belohnt:

Delphi-Quellcode:
procedure TForm1.ShellChangeNotifier1Change;
begin
    LockXY.Acquire;
    //ShowMessage('change'); //mit dieser messagebox funktioniert es
      try
         CreateIndexPage;
      finally
        //refresh des browsers
        if (StatusBar1.Panels[0].Text = '') or (StatusBar1.Panels[0].Text = 'blank')then
          web_cis.Navigate(Htm_Path+'index.html')
        else
          web_cis.ExecWB(OLECMDID_REFRESH, OLECMDEXECOPT_DODEFAULT);
        //entsperren
        LockXY.Release;
      end;
end;
LockXY habe ich global deklariert und im FormCreate erzeugt. Wo ist nun der Fehler? Benutze ich es falsch, oder wo ist das Problem??? Komisch ist auch, dass das Problem nur auftaucht, wenn ich die CP-Files über lokales Netzwerk speichere und das Programm dann lokal sich updaten soll. Wenn ich alles komplett auf einem Rechner mache, ist eher unproblematisch...
Danke
Tom
  Mit Zitat antworten Zitat