Harddisk icon'unu 5 dk.'da bir nasıl değiştirebilirim?

[Breaker1999]

Bilgisayarı yeniden başlatmadan harddiskin simgesini nasıl değiştirebilirim?

Bir Harddiskin boş alanını takip eden program yaptım. Boş alanı Dolu alana oranlayarak boş alanı yüzde olarak gösterecek iconlar yaptım.
Örneğin c:'yi takip ediyorum. c:\Autorun.inf dosyası şöyle:
C:\Autorun.inf
------------
[autorun]
icon=autorun.ico
------------

her 5 dk.'da bir yeni bir autorun.ico oluşturup eskisi ile değiştiriyorum. Fakat f5'e bastığım halde C: harddiskinin simgesi değişmiyor. Sadece bilgisayarı yeniden başlatınca son simge görünüyor. Yani bilgisayarı yeniden başlatmadan harddiskin simgesini nasıl değiştirebilirim? Harddiskin simgesinin değiştirildiğini Windows'a bildiren bir API vb. fonksiyon var mı? Şimdiden teşekkürler.

[cemaliozan]

Bunu
uses
ShlObj;

procedure RefreshDesktop1;
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;


procedure RefreshDesktop2;
var
hDesktop: HWND;
begin
hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

yada bunu

procedure RefreshDesktop;
var
c1: cardinal;
begin
c1 := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
PostMessage(c1, WM_KEYDOWN, VK_F5, 0);
PostMessage(c1, WM_KEYUP, VK_F5, 1 shl 31);
end;

dene.

[Breaker1999]

cemaliozan, mesajından alıntı:

Bunu
uses
ShlObj;

procedure RefreshDesktop1;
begin
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;


procedure RefreshDesktop2;
var
hDesktop: HWND;
begin
hDesktop := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;

yada bunu

procedure RefreshDesktop;
var
c1: cardinal;
begin
c1 := FindWindowEx(FindWindowEx(FindWindow('Progman', 'Program Manager'), 0,
'SHELLDLL_DefView', ''), 0, 'SysListView32', '');
PostMessage(c1, WM_KEYDOWN, VK_F5, 0);
PostMessage(c1, WM_KEYUP, VK_F5, 1 shl 31);
end;

dene.

Bir çözüm önerdiğin için teşekkürler. Fakat maalesef disk simgesi için çalışmadı. Üç procedure'ü de denedim. Windows Gezgininde Bilgisayarım'da C:'nin yeni simgesine değiştirmedi(Not: autorun.ico yeniden hazırlandı fakat son güncellenmiş autorun.ico diskin simgesi olmadı.). Bence çünkü bu procedureler Masaüstünü yenilemek için. Bu fonksiyonlar disk girişindeki Autorun.inf dosyalarını yeniden değerlendir emri vermiyor.
Sorunumu biraz daha açıklayayım.

Resimde görüldüğü gibi C:'nin %87'si kullanıyor. Bazı dosyaları siliyorum. %80'e indiriyorum. %80 yazan yeni bir icon hazırlıyorum. C:\autorun.ico olarak kaydediyorum. Autorun.inf doğru şekilde hazır durumda zaten. Fakat yenilememe rağmen sayfayı C:'nin simgesi hala %87 kalıyor. Sadece windows'u yeniden başlatınca doğru değer olan %80 simgesi görünüyor.
Windows'u yeniden başlatmadan disk simgesini değiştirmek için başka fikri olan?