//тебе надо будет достучаться до твоего SysListView32, как я уже и говорил

//а для примера сделал проще, в окне explorer'a :)

var

  h:hwnd;

  buf:array [0..255] of char;

  s:string;

  mystyle:dword;

begin

h:=WindowFromPoint(CrPos);

if boolean(GetClassName(h,buf,256)) then s:=buf;

if s='SysListView32' then begin

 mystyle:=GetWindowLong(h, GWL_STYLE);

 mystyle:=mystyle or LVS_LIST;//список

 SetWindowLong(h,GWL_STYLE,mystyle);

 end;

end;