Помогите написать программу!
В каталоге имеется массив zip файлов, с разными именами, однако в каждом архиве содержится один файл info.dat.
Необходимо рассортировать zip файлы по 2-м каталогам.
Ключь сортировки, первая строка в info.dat.
d:='D:\Prog\Sort\*.zip'; \\ Задаём адресс
if FindFirst(d,faAnyFile,sr)= 0 then \\Ведем поиск первого файла в
списке, и вгоняем имя файла в sr тип TSearchRec.
begin
ShellExecute(0, PChar('open'), PChar('d:\prog\sort\pkzipc.exe'),
PChar('-ext d:\prog\sort\'+sr.Name+'d:\prog\sort\'),
nil, SW_HIDE); \\Далее необходимо разархевировать файл для его дальнейшего прочтнеия первой строки и соответственно сортировке в каталог.
здесь начинаются проблемы необходимо в ShellExecute подставить именно имя текужего файла ( sr.Name ) но форматы у них разные, как корректно подогнать формат TSearchRec в PChar для ShellExecute, чтобы строка заработала??
|