[KorNGirL]

Здравствуйте....
помогите пажалуста ,нужна программа, срочна, дали такое вот задание ...прог на делфи "катализатор файлов типа gif "
Программа осуществляет поиск по компьютору(в указаном каталоге),если в каталоге есть подкаталоги, то обработать каждый из этих каталогов.
файлы типа гиф..в программе должна осуществлятся проверка что это гиффайл(как то считывая первые несколько бит из гифа)результат поиска:найденно файлов столько то.. и вывести их назвние и путь..

пожалуста памагите...я ничего в этом непонимаю пожалуста..плззззззззззззззззз

[Decoding]

Вот, держи FindGif.zip

[KorNGirL]

спасиба...огромное...не представляеш как памог....
спасиба спасиба спасиба...
а можна тебя ещё попросить сделать сноски и хоть кое где...расписать програмуу...еси не тяжело...
плз..

[KorNGirL]

ещё не поняла зачем там едит?...

[Decoding]

смотри - FindGifNew.zip

[KorNGirL]

спасибо...
но всё ещё немагу разобраться...в процедуре выбора каталога....
вот Эти строчки--->:
pidlBrowse := SHBrowseForFolder( bi );
if ( pidlBrowse <> nil ) then
if ( SHGetPathFromIDList( pidlBrowse, @Buffer ) ) then
result := StrPas( @Buffer );

ниже вся функция:
function TForm1.ShowBrowseFolderForm: string;
var
bi: TBrowseInfo;
pidlBrowse: PItemIDList;
Buffer: array[0..255] of char;
dispname: array[0..MAX_PATH] of char;
begin
bi.hwndOwner := Application.Handle;
bi.pidlRoot := nil;
bi.pszDisplayName := dispname;
bi.lpszTitle := PChar( 'Выбор каталога' );
bi.ulFlags := BIF_RETURNONLYFSDIRS;
bi.lpfn := nil;
bi.lParam := 0;
bi.iImage := 0;
pidlBrowse := SHBrowseForFolder( bi );
if ( pidlBrowse <> nil ) then
if ( SHGetPathFromIDList( pidlBrowse, @Buffer ) ) then
result := StrPas( @Buffer );
end;