...manage desktop icons?

Author: Thomas Stutz

Category: Misc

uses
  
CommCtrl;
  

function GetDesktopListViewHandle: THandle;
var
  
S: String;
begin
  
Result := FindWindow('ProgMan', nil);
  Result := GetWindow(Result, GW_CHILD);
  Result := GetWindow(Result, GW_CHILD);
  SetLength(S, 40);
  GetClassName(Result, PChar(S), 39);
  if PChar(S) <> 'SysListView32' then Result := 0;
end;


SendMessage(GetDesktopListViewHandle, LVM_ARRANGE, LVA_ALIGNLEFT, 0);

{For more LVM_ messages see win32.hlp}
{Für andere LVM_ Messages die win32.hlp Datei konsultieren}

 

printed from
www.swissdelphicenter.ch
developers knowledge base