Refresh ListBox1

POzdrav !!!

Dephi 7

Pitranje ?


Program : Monitorning stanja direktorija.

Uradio sam program ,gdje u ListBox-u prikazuje trenutno stanje nekog direktorija.Kada ja pokrenem program i u programu tj.u ListBox-u dobijem listu svi fajlova
u tom direktoriju.Kada recimo obrisem neki fajl u tom direkotriju ,meni i dalje u ListBox-u ostaje zapisan taj fajl.Kako mogu i na koji nacin da rijesim ,da mi se
ListBox osvjezava ili brise taj fajl koji je vec ranije obrisem u Windows Exploreru.Program ce non stop biti pokrenut i aktivan.Moram da kazem da kod
pokrece komponenta Timer1



Koristio sam funkciju za pretrazivaje fajlova u direktorju ( FindFirst i sve je ok),znaci samo mi treba da mi se update uradi ListBox-


Hvala svima na pomoci

> Program : Monitorning stanja direktorija.

> Kako mogu i na koji nacin da rijesim ,da mi se ListBox osvjezava ili brise taj fajl koji je vec ranije obrisem u Windows Exploreru.Program ce
> non stop biti pokrenut i aktivan.

Uz Delphi dolazi TShellChangeNotifier komponenta, ako ti ona ona završava posao (ne nudi previše detalja), možeš naći neku third party gotovu komponentu ili koristiti direktno API funkcije FindFirstChangeNotification ili ReadDirectoryChangesW.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

@savkic, njemu je problem što mu se ListBox ne "refrešuje"

@medixsa, mislio sam da smo to riješili telefonom ali evo:

tvoj kod je otprilike ovakav



a treba ovako



Inače, kako ti je savkic rekao, koristi TShellChangeNotifier ili FindFirstChangeNotification da ti se ova procedura ne bi bespotrebno pozivala svo vrijeme jer većinu vremena neće biti promjena u direktoriju.

e hvala na trudu evo mog koda

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
Rekord : TSearchRec;
Putanja : string;
Ukupno : integer;
i : integer;
Indx : integer;
tekst : string;
Zvuk : string;

const
put_naziv = 'C:\TEMP\RES\';
Ekstenzija = '*.*';
begin

// Forma na vrh
frmMain.FormStyle := fsStayOnTop;
// fokus forma

tekst := ListBox1.Items.Text;

Zvuk := ExtractFilePath(Application.ExeName)+'\zvono.wav';


Putanja := put_naziv;

if FindFirst(Putanja + Ekstenzija, faAnyFile-faDirectory, Rekord) = 0 then
try
repeat
if not ListBox1.Items.IndexOf(Rekord.Name) = -1 then
begin
ListBox1.Update;
end;

if ListBox1.Items.IndexOf(Rekord.Name) = -1 then
begin
ListBox1.Items.Add(Rekord.Name);
//sndPlaySound(pchar(Zvuk), snd_Async or snd_NoDefault);
end;
until FindNext(Rekord) <> 0;
finally
FindClose(Rekord);


// Ukupno
for i := 0 to ListBox1.Items.Count-1 do
begin
Ukupno := ListBox1.Items.Count;
end;
lUkupno.Caption := inttostr(Ukupno)+' '+'Akata';
end;