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...