Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

OLE

Страницы: 1
OLE
#1
22.11.2010 18:38:03
В общем, наверное нереально, но хотелось бы.
Может кто-то знает, как реализовать OLE в программе на Паскале?
Допустим, все кнопки будут прорисовываться отдельно.
Как можно получить (с помощью какого модуля или как-то еще может быть?..) информацию о содержимом каталога?
Например, есть какая-то функция, которой задаешь путь (в виде строки, например), а она возвращает информацию о папках и файлах по указанному пути (в виде массива или я хз))).
Тогда можно было бы реализовать что-то вроде OLE-системы, но вся проблем а в том, что я не знаю такой функции и она вообще вряд ли существует.
Если кто-то из пользователей знает, как можно заменить или создать что-то подобное, буду очень благодарна за подсказку)
 
 
#2
12.12.2010 17:29:40
Никто не знает ответа?
Интересно что то стало даже
 
 
#3
30.01.2011 10:38:13
вот вывод содержимого папки, нашел в нете не запускал на паскале... =)
Код
Uses TpCrt, Windos, Strings;
Var Dir,s,mask,s1:String;
   SearchRec:TSearchRec;
   Patch:PChar;
   F,tempf:Text;
Begin
   clrscr;
   assign(f,'C:\1.txt');
   rewrite(f);
   Dir:='C:\temp\';
   mask:='*.*';
   StrPCopy(Patch,Dir+mask);
   FindFirst(Patch, faAnyFile-faDirectory-faSysFile, SearchRec);
     begin
       While dosError=0 do
       Begin
           s:=Dir+SearchRec.Name;
           assign(tempf,s);
           reset(tempf);
           while not eof(tempf) do
           begin
            Readln(tempf,s1);
            Writeln(f,s1);
           end;
           close(tempf);
           writeln(s);
           FindNext(SearchRec);
       end;
       end;
   Close(f);
   readkey;
End.
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)