ShellListView

[sezam]

Третий день мучаюсь в поисковиках, помогите!
Сделал вариант TotalCommander'а с использованием двух ShellListView. Но возникла проблема с сортировкой по столбцам при нажатии на заголовок. Проверку на нажатие и выбор соответствующего заголовка сделал, а вот с помощью какой процедуры реализуется сама сортировка - не знаю.

Код проверки нвжатия на заголовок столбца и выдача названия этого столбца:

if Column = ShellListView1.Column[0] then
begin

Label5.Caption:=ShellListView1.Colu mn[SortColumn].Caption;
end

и так по каждому столбцу ...

Слышал про сортировку как в обычном ListView, но она просто не запускается.

Код процедуры:

function SortFirstSubItemAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := 0;
if AnsiUpperCase( Item1.SubItems[0] ) > AnsiUpperCase( Item2.SubItems[0] ) then
Result := ParamSort
else
if AnsiUpperCase( Item1.SubItems[0] ) < AnsiUpperCase( Item2.SubItems[0] ) then
Result := -ParamSort;
end;

ParamSort - направление сортировки

Вызывается так:

if Column = ShellListView1.Column[0] then
begin
ShellListView1.CustomSort(@SortCapt ionAsString,Sorts)
end

... и это не работает.

Может я что-то неправильно делаю?

Подскажите! Очень нужно и срочно! До конца июля!

Необходимо сделать подобие проводника (хорошего проводника!) и добавить в него из dll функции по работе с дискетами и флешками для защиты данных студентов от перемещения их данных (которые копируют, с работами, типа курсовых и контрольных) от распространения между студентами. Сама dll с набором функций уже готова. Осталось написать оболочку. Помогите!