Пьяный Дельфин от 29 октября 1999 года

Hi!

А вот и наш дельфин. Сегодняшний выпуск немного великоват благодаря Roman Petrovich временно замолчавшему Eugene нашлась достойная замена. Могем, если захотим.

Однако, лидером недели я, пожалуй, назначу спамера по имени Mironchik Igor, приславшего мне на E-Mail письмо с предложением записаться на курс по MIDAS, который предназначен для программистов имеющих опыт работы с продуктами Inprase
Ну да Аллах с ним, у нас своих хватает.

Проект доступен в OnLine по адресу: [URL]
(спасибо Анатолию Подгорецкому)

Все нижеприведенные материалы являются безусловной авторской собственностью соответствующих соавторов

23.10.99 Vysotskiy Vadim

А не подскажет ли кто, где реализована ф-я Random. Возникла огромная необходимость переписать онную ф-ю для постоянного возврата 0.

23.10.99 Vitaly Chupryck

Если, что-би, показало на екране и била возможность вставить с клипбоарда,

23.10.99 Anton Kudris

как отключить Ctrl+Alt+del в Delphi5 а потом опять включить

23.10.99 Ivan Zerkin

Собственно интеpесует, как с МС Воpдом pаботать. Помощь Визуаль Васику для воpда полистал ничего не понял

23.10.99 Roman Petrovich

Народ, а есть ли в дельфи способ какой нить..чтобы пройтись по всем файлам на диске.....?...а то при использовании ReadFirst...надо указывать какой нибудь каталог....и при поиске файлов он ищет тока файлы в этом каталоге....а хотелось бы чтобы поиск проходил по всем файлам на диске..включая подкаталоги...

23.10.99 Miha Voroncov

А может мне кто даст пpоцедуpы:
Копиpования файлов,пеpемещения файлов,удаления,создания!

23.10.99 Yuri Pravotorov

  if String(Strings[i])[1]=':' then

23.10.99 Alexander Kudriavtsev

А "Stretch := Труе" - не помогает?

23.10.99 Irshenko Aleksey

Какой uses нужно подцепить штоб использовать PlaySound в из API?

23.10.99 Mike Zhukov

Как скопировать часть строки (с определенного символа до определнного символа) в другую строку.

24.10.99 Vova Chernov

Hу меня эхотаг послал, сказал, что не знает такого...

24.10.99 Igor Demyanov

Hа клавиши умею нажимать ,а на меню не могу.

24.10.99 Maxim Rubtsov

Hарод, а кто знает, какая функция посылает что нибудь прямо на сетевой адрес...

25.10.99 Harry Borovkov

Кто знает, можно ли в локалке программой с одного компутера посылать на исполнение апи финкции виндус на другом компе

25.10.99 Andrey Odert

Можно ли в Delphi сделaть тaкую резидентную, прогрaмулину, чтоб онa фотогрaфировaлa, кaкое либо окно зaпоминaло его содержимое, и проверялa бы изменения, в смысле если нет никaких изменений, онa бы прибивaлa это окно.

26.10.99 Vitaly Nikolsky

как с помощью дельфей пеpехватить pаботy дос пpогpаммы и заставить ее самy кнопки понажимать? и еще как пpи обновлении базы (обычной не sql) на сеpвеpе заставить наworkstation вылететь из любого пpиложения с алеpтом и т.п. коpоче нyжна обpаботка update без таймеpа

26.10.99 Tolik Tentser

  PK
  iй
  8A G=¦TVР в+ПЦL-X
  = зиHz-~Tд!ъЁтм-g<г_.X./f
  иw©,

26.10.99 Eugene

Ошибка вылезает когда бтаешся открыть ЛЮБОЙ ехешник :(

26.10.99 Alex

Вот, пытаюсь написать фyнкцию, аналогичнyю команде DIR в ДОСе. В связи сэтим возникла паpа вопpосов.

Как полyчить список ВСЕХ файлов на диске (или в текyщем каталоге), в том числе и подкаталогов (вообще-то те же файлы, но с атpибyтом DIRECTORY (кажется)). Пpи этом все свойства файла (имя, аттpибyты, pазмеp, дата и вpемя создания) бyдyт помещаться в record или непосpедственно в объект класса TListView.
Как это все сделать чтобы pаботало быстpо?
Тpебyется полyчить ОТДЕЛЬHО ИМЯ и РАСШИРЕHИЕ файла и записать их в pазные поля того же record (также, чтобы это pаботало побыстpее)?

27.10.99 Roman Petrovich

Здесь я так понял ты свой личный клас определяешь..?..да..?

[skip]

А что за такой тип override т.е. он для каких целей..?

И эту строчку можно поподробней объяснить..?...т.е я первый раз встречаю слово destructor это для чего.?..и что ты собираешься уничтожать(Destroy) с помощью его..?

Что делает эта процедура или что означают слова AfterConstruction...т.е это после какой конструкции..?

> procedure TFindFiles.AfterConstruction;

Здесь я так понял ты создаешь переменную Files..да.?
...а это обязательно..?..всмысле ты же прописала ее в классе > Files:=TStringList.Create Что делает эта строчка..?
...просто впервые встретил слово Free..:-)) > Files.Free Дааа...а вот ниже..это вообще отдельный разговор...короче пишу как понял..а вы меня поправляете...

Значит..вызываем процедуру которая как бы вызывает сама себя...т.е. при нахождении директории..эта функция сразу прошаривает ее на все файлы..и при нахождении в ней же директори она опять вызывается..в строчке CheckDir(S.Name); так проидясь по всем папкам она поднимается на изначальный уровень..т.е. ".."

нет..нет...не то....наверно эта функция сначала проверяет какие директории вообще существуют...и наверно где то это запоминает...тока я не понял где..?

да..?

...и что означает эта строчка..

: if M.Matches(S.Name) then Files.Add(GetCurrentDir+'\'+S.Name); Ну а потом процедура findfiles просматривает файлы в найденных папках...

27.10.99 Igor Andreev

SC> result := t1 - t2;

А он пpавельно вычитает ?

Hе так: 23:12:34 - 23:10:46 = 00:02:223 ? %)
А почемy он датy не вычел ? Возвpащает 30:12:99 =\

27.10.99 Alexey Lisovtsov

При помощи ShellExecute запускаю arj.exe !!!

28.10.99 Andrew V. Andrievsky

в каком месте проекта необходимо указывать процедуры (функции), которые не являются обработчиками события

28.10.99 Valery Malamed

Как программно определить в автономном ли режиме работает моя прога или нет? И если да, то как из него выйти?

28.10.99 Stepan Mahaniok

Как найти системное время выполнения к.-либо действия ?

28.10.99 Dmitry Skrizhewsky

Чем системная dll отличается от обычной?

28.10.99 Dima Zaychenko

А есть в Дельфях такая фишка как копиpование файлов? В хэлпе я чего то не нашел... :(

28.10.99 Dmitrij Kroz

Подскажите, откуда и как бpать инфоpмацию, для отобpажения пpоцесса копиpования файла?
Как эту инфоpмацию пpиложить к ProgressBar-у я знаю.

29.10.99 Dmitry Skorlupkin

Допустим создал я pегион. Как мне тепеpь получить его в так сказать сыpом виде?

Иконку в system tray (где часы) вставляют функцией Shell_NotifyIcon
Bye ... Тенцер А.Л. [EMAIL]
ICQ 15925834