Вопрос по Delphi 7
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Вопрос по Delphi 7 - 2007-04-13 16:54:42.673333
|
|
|
Hump[FREE]
Сообщений: 7
Оценки: 0
Присоединился: 2007-04-11 18:13:56.660000
|
Собрался я написать злющую программку, которая удаляет все mp3-шки на HDD.Процедура поиска толкает найденное в ListBox, а оттуда значит DeleteFile берет по одному и сносит. Файлы с атрибутом "Только чтение" ессно не удаляются. Теперь вопрос: как сразу пройтись по ListBox и у всех файлов установить допустим атрибут faDirectory? Ответ пжалста в виде кода. И Исчо - можно ли таймер запустить только один раз, чтобы цикл не повторялся? Заранее спасибо!
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-13 16:57:03.706666
|
|
|
NightmareZz
Сообщений: 1087
Оценки: 0
Присоединился: 2006-10-15 11:16:16.833333
|
quote:
ORIGINAL: Hump[FREE]
Процедура поиска толкает найденное в ListBox, а оттуда значит DeleteFile берет по одному и сносит.
Ыыыы :D:D:D Хакир. Элита :D:D:D
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-13 17:22:54.970000
|
|
|
Hump[FREE]
Сообщений: 7
Оценки: 0
Присоединился: 2007-04-11 18:13:56.660000
|
quote:
ORIGINAL: NightmareZz
Ыыыы Хакир. Элита
Очень содержательный ответ. Особенно вот это====>>>Ыыыы. Ты мне очень помог.
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-13 17:28:17.520000
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
Аффтар упейца ап стену таким способом искать и удалять файлы! тупее не придумаешь … код недам ибо некуй всякую куйню писать
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-13 18:46:11.023333
|
|
|
HarJIbIy
Сообщений: 40
Оценки: 0
Присоединился: 2007-01-26 20:06:12.703333
|
А штобы таймер не работал вновь в конце процедуры выполняемой таймером добавь Timer1.Enabled := False;
Но помоему прощё недругу запустить поиск по маске "*.mp3" потом Сtrl+A, Shift+del, Enter и будет тебе счастье а затея ДЕРЬМО.
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-13 23:53:02.406666
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: NightmareZz
quote:
ORIGINAL: Hump[FREE]
Процедура поиска толкает найденное в ListBox, а оттуда значит DeleteFile берет по одному и сносит.
Ыыыы :D:D:D Хакир. Элита :D:D:D
Угу
Меня тоже порадЫвало :)
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-14 14:17:29.526666
|
|
|
Lesher
Сообщений: 18
Оценки: 0
Присоединился: 2007-04-02 20:36:35.096666
|
Hump[FREE], а зачем тебе лист бокс нужен??
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-14 14:23:43.010000
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
ORIGINAL: Lesher
Hump[FREE], а зачем тебе лист бокс нужен??
Просто у некоторых руки до такой степени из жопы растут …
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-14 15:27:02.100000
|
|
|
stasww
Сообщений: 71
Оценки: 0
Присоединился: 2007-03-02 20:15:34.900000
|
Написал бы батник и все тдела
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-14 19:42:24.813333
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: stasww
Написал бы батник и все тдела
Настоящий программист легких путей не ищет!
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-14 20:01:57.140000
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
ORIGINAL: alexbozhko
quote:
ORIGINAL: stasww
Написал бы батник и все тдела
Настоящий программист легких путей не ищет!
Угу - пойти найти шароварный компонент TabcShellListBox с помошью его искать файлы, а потом другим компонентом типа TabcDeleteFile их удалять .. ммм красота :))))))) Ну а размер .. да лано вам 2 метра еще не так много … :))))))
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-15 00:15:15.603333
|
|
|
D071er
Сообщений: 2
Оценки: 0
Присоединился: 2007-04-14 19:03:10.346666
|
Рабяты что вы на парня напали
юзай :
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
//удаляешь mp3_шку
function FindNext(var F: TSearchRec): Integer;
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-15 11:22:03.460000
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
ORIGINAL: D071er
Рабяты что вы на парня напали
юзай :
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
//удаляешь mp3_шку
function FindNext(var F: TSearchRec): Integer;
А про FindClose и DeleteFile мона не говорить - пусчай помучается
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-15 11:59:16.260000
|
|
|
stasww
Сообщений: 71
Оценки: 0
Присоединился: 2007-03-02 20:15:34.900000
|
Делать гадости - не интересно ( для меня ) , вот еслиб он бэкдора или рута написал ….
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-17 14:58:51.153333
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
Вот оно, тяжёлое наследие VCL… Ну НУЛЬЗЯ учится писаать что-то хорошее (и нехорошее) на Делфи, который всё сам делает. Я лично начинал с TPC ;) , потом с-года Borland Pascal"ем With objects for Windows писал хрень какую-то 16-битную имея в распоряжении P166 и 16 метров ОП, ну так зато благодаря этому хоть научился винапи вперемешку с асмом юзать, т.к. ни окаких формах не могло быть и речи И СЛАВА БОГУ. Ручками надо, ручками вот этими, а не тыкнул кнопку на форму, тыкнул в кнопку, форма перекрасилась в зелёненький :'( ППЦ, злой! :@
quote:
Угу - пойти найти шароварный компонент TabcShellListBox с помошью его искать файлы, а потом другим компонентом типа TabcDeleteFile их удалять .. ммм красота :)
AlphaSkins больше и медленней, + скины красивые :D - можно перед удалением каждого файла спрашивать польз-ля (обязательно через Application.ShowMessage!) какого цвета он хотел бы окошко, типа отвлекающий манёвр.
ЗЫ: на Делфу не гоню, но тут конечно перебор с таким способом
quote:
вот еслиб он бэкдора или рута написал .
Типа это не гадости, а крайне полезные и необходимые всем программы
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-19 22:16:26.960000
|
|
|
rbzombie
Сообщений: 88
Оценки: 0
Присоединился: 2005-01-07 04:14:13
|
procedure searchMp3(folder:string);
var lprec:tsearchrec;
path:string;
f:integer;
begin
path:=folder+'*.mp3';
if (FindFirst(path,faanyfile,lprec))=0 then
repeat
f:=FindNext(lprec);
listbox1.Items.Add(path+lprec.Name);
until(f<>0);
FindClose(lprec);
end;
Добавишь function FileSetAttr (const FileName: string; Attr: Integer): Integer;
//setattr
for i:=0 to listbox1.items.count-1 do
FileSetAttr(listbox1.items.string,fadirectory);
…проверка результата
Hump[FREE] таймер тот же цикл так что…
медленно тащится поиск тогда посмотри лучшие алгоритмы.
Народ какая разница что чел пишет,ему нужна помощь,а не флейм.
А то что вы пишете на 6 языках(быстро же люди обучаются) и юзаете api
это уже говорит о гордости так и выпирающей.
Vcl ни vcl в чем разница в том что еxeшка станет весить 40кб,пускай и
будет 2мб ведь не на 486 живем,оптимизация это зло,как гонка вооружений а смысл кто круче?
JTG а ты что код в блокноте пишешь и обходишься без кнопочек,потом cmd и пошел компиль?
Народ что вы там разрабатываете,компиляторы что ли,что вам не хватает мощей в delphi?
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-19 23:14:30.316666
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: blacksun
quote:
ORIGINAL: D071er
Рабяты что вы на парня напали
юзай :
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
//удаляешь mp3_шку
function FindNext(var F: TSearchRec): Integer;
А про FindClose и DeleteFile мона не говорить - пусчай помучается
Тсс!!!!
Спугнешь!
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-22 15:48:42.910000
|
|
|
spectrum
Сообщений: 53
Оценки: 0
Присоединился: 2006-05-18 02:13:58
|
quote:
Vcl ни vcl в чем разница в том что еxeшка станет весить 40кб,пускай и
будет 2мб ведь не на 486 живем,
А если прога на ASM весит 40MB ты что будешь делать?1500MB vs VCL?
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-22 18:02:40.136666
|
|
|
t3rmin@1
Сообщений: 197
Оценки: 0
Присоединился: 2006-09-22 23:03:30.883333
|
quote:
ORIGINAL: spectrum
А если прога на ASM весит 40MB ты что будешь делать?1500MB vs VCL?
Это где ты такую прогу нашёл? О_О
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-23 11:17:10.120000
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
40 MB на Асме?
Ну я себе могу представить стоимость ее написания….
там кода исходного будет - мы здесь все из форума за жизнь не напишем….
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-23 14:26:04.463333
|
|
|
JTG
Сообщений: 1189
Оценки: 0
Присоединился: 2007-03-05 11:56:01.993333
|
quote:
оптимизация это зло
Не верю ;)
Представь, у тебя в трее висит какая-нить утилитка, скажем та же менялка обоев, и занимает метров 20 памяти, ну ладно, ещё 800 свободно не жалко, и вот настал момент ей эти самые обои сменить, пошукала по списку, загнала какую-нить JPEGовину 1024x768 в TImage и пошла конвертировать в BMP (лучше копированием …canvas.pixels)… А ты сидишь в сталкере с АК, парализовало, и негромко маитеришься :D. Я с таким чудом сталкивался. Оптимизация нужна, она хорошая ;)
А в крайности, писать в блокноте, не впадаю, никто и не говорит, что хорошая IDE это плохо. Просто смешно видеть когда пихают vcl туда, где ему не место.
Недавно пример видел, в какой-то рассылке от subscribe, когда шахматную доску делали 64 штуками TShape. Вот это называется экономное использование ресурсов [>:]. ППЦ
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-29 16:10:53.310000
|
|
|
spectrum
Сообщений: 53
Оценки: 0
Присоединился: 2006-05-18 02:13:58
|
Ну я это к примеру сказал
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-04-29 16:12:08.453333
|
|
|
spectrum
Сообщений: 53
Оценки: 0
Присоединился: 2006-05-18 02:13:58
|
Ну я это к примеру сказал
|
|
|
|
|
RE: Вопрос по Delphi 7 - 2007-05-02 20:29:47.673333
|
|
|
Apache
Сообщений: 153
Оценки: 0
Присоединился: 2006-10-13 10:02:03.070000
|
Гы гы гы… Нахрена в такой "злющей проге" ЛистВиев??? Пиши на паскале резидент!
пэ сэ.Api вполне хватит
|
|
|
|
|
|
