Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Консультации по функциям WinAPI

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.954 RSS
←   Май 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 02-07-2003

Автор
Калашников О.А.

Статистика

1.954 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Win API


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / WinAPI

Выпуск № 75
от 19.05.2005, 11:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 1

Вопрос № 20847: Пришлите пожалуйста инфо или прогу с примером использования функции HeapFree (на Delphi), помогите Pleez бедному программисту! Заранее большое спасибо! Моё мыло pushistik2004@inbox.ru...

Вопрос № 20847
Пришлите пожалуйста инфо или прогу с примером использования функции HeapFree (на Delphi), помогите Pleez бедному программисту! Заранее большое спасибо! Моё мыло pushistik2004@inbox.ru
Отправлен: 14.05.2005, 11:21
Вопрос задала: VIP (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: Jadd
Здравствуйте, VIP!
А очень просто. Открываем MSDN или хелп дельфей. Ищем функцию FindFirst и FindNext. В качестве маски поиска задаем исходную папку. Дальше - дело техники. Делаем в цикле. Пока функция цикла находит файл делаем FileCopy в целевую папку. Если нужно перемещать, то затем еще и удаляем файл из исходной папки. Напиример, цикл поиска может быть таким:
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then
FileAttrs := FileAttrs + faAnyFile;
with StringGrid1 do
begin
RowCount := 0;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;
Пример взят из хелпа по дельфи 7. Функции использованы WinAPIшные. Все просто.
Удачи.
Ответ отправил: Jadd (статус: 3-ий класс)
Отправлен: 15.05.2005, 13:08

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Яндекс

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.winapifaq		 Отписаться
В избранное