Może wyczyść Historię odwiedzin ExpertsEchhange i ciasteczką związane z tą stroną. U mnie działa ok. Trzeba dokładnie wkleić caly ten adres jak podałeś:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_26783723.html
Bo jeźeli chodzi o Accepted Solution to chyba zawsze jest utajniona, ja widze inne odpowiedzi poniżej. Jednak nie ma tego jak łatwo wkleić. W odpowiedziach są takie odpowiedzi i kody:
Thommy:
31/01/11 02:36 PM, ID: 34756591
Windows 7 desktop structure:
Win 7 Desktop is a "big" window containing all other windows (like MDI childs).
This window also contains some kind of a listview (ViewStyle vsIcon), which display the desktop icons
Sorry, have no Delphi available at the moment to test my code, but try this to get the desktop listview...
function GetWin7ListView: HWnd;
var
TheHandle:HWnd;
begin
TheHandle := FindWindow('Progman', 'Program Manager');
if not (TheHandle = 0) then
begin
TheHandle := FindWindowEx(TheHandle, 0, 'SHELLDLL_DefView', '');
if not (TheHandle = 0) then
begin
result := FindWindowEx(TheHandle, 0, 'SysListView32', '');
exit;
end;
end;
result := 0;
end;
I następna:
and also try that...
function GetWin7ListView: HWnd;
begin
result := GetWindow(GetWindow(FindWindow('Progman',nil),GW_CHILD),GW_CHILD);
end;