Пьяный дельфин от 11 августа 2000

Hi !

Ну вот, недокормленный на прошлой неделе Дельфин опять с нами. Вообще - я даже не понял, над какой пропастью ходил, ибо за срыв очередного выпуска чуть не был плюсанут. Остается лишь посоветовать мойдодырам, тьфу, комодам, самим же не прибивать лучших моих соавторов :-Р

Перл двухнеделия породил хорошо осведомленный во внутренних делах MS Igor Prolis:

Могу лишь добавить, что где-то читал, что один программер из MS сам проговорился про W2K, что там куча багов.

Литературную премию имени А. и Б. Стругацких за этот период присваиваю себе (в соавторстве с MS Natural Keyboard, все никак полностью не привыкну попадать в нужные кнопки на этом гнутом чуде дизайна) за изобретение нового слова для обращения к собеседнику:

о котором твы просто не догадываешься.

Проект доступен в OnLine по адресу: http://podgoretsky.com/DrunkenDolphin.html
(спасибо Анатолию Подгорецкому)

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

02.08.2000 Alexandr Sudakov

if (Name<>'.')or(Name<>'..') then ... else...
If Assigned(мозги) then сам мог догадаться ;)

02.08.2000 Sergey Pudowkin

Вопpос пеpвый. Имеется пpоект. Имя пpоекта задавать таким же как и им файла, входящего тyда, дельфя не дает. Пpиходиться давать дpyгое имя, под котоpым и полyчается компилиpyемая пpога. А как бы это обойти, охото что бы им exe было бы таким же как и файл исходника.

03.08.2000 Igor Prolis

Могу лишь добавить, что где-то читал, что один программер из MS сам проговорился про W2K, что там куча багов.

04.08.2000 Krasivaya Ukraina

Прикол в том, что inifile.destroy работает без проблем. Я только им и пользуюсь. Всеравно эта функция вызывает Free.

05.08.2000 Andrey

А ни знает ли кто почему у DLL-ки (исходник которой ниже по тексту) размер получается 16.5 Kb (!) и можно ли с этим что то сделать ? Ведь резидент как бы не обязан быть большим...

05.08.2000 Igor Gorbenkoff

С таймером дела плохи. Hе знаю, как там винда с железом дружит, но железо работает так: производит 18 с небольшим прерываний в секунду от таймера. А т.к. винда работает на железе, а не отдельно, то можно сделать вывод, что и брать меньший интервал её не откудова. Делим 1000/18, получаем 55. Итого 55 раз в секунду.

05.08.2000 Alex D Drugov

var
  Present: TDateTime;
  Year, Month, DAY: Word;
  day1,month1,year1 : integer;
begin
  present:=Now;
  Decodedate(Present,Year,Month,Day);
  day1 := day;
  month1 := month;
  year1 := year;
  label1.caption :=
  inttostr(day)+'.'+inttostr(month)+'.'+inttostr(year1); /// Сегодняшняя дата
  application.ProcessMessages;
  sleep(1000); /// Подержим немного реальную дату {Изменяем дату}
  month1 := month1+10;
  label1.caption :=
  inttostr(day1)+'.'+inttostr(month1)+'.'+inttostr(year1); /// Измененная дата
end;

05.08.2000 Sergey Venediktov

assignfile(old, path);
reset(old);
assignfile(new, work);
rewrite(new);
getmem(p, 1);
while not EOF(old) do
  Begin
    blockread(old, p^, 1);
    blockwrite(new, p^, 1);
  End;
freemem(p,1);
closefile(new); closefile(old);

08.08.2000 Igor Gorbenkoff

AddMonth := 5; (Или что угодно)
DecodeDate(Date, Year, Month, Day);
Year := Year + ((Month+AddMonth) div 12);
Month := (Month+AddMonth) mod 12; Делов на рыбью ногу.

08.08.2000 Tolik Tentser

о котором твы просто не догадываешься.

10.08.2000 Alexey Bobylev

КАК в delphi-ях программу перевести в SYSTREI и при этом сделать ее резидентной

10.8.2000 Корытов А.В.

Какой тип файловой системы лучше подходит для Delphi (NTFS или FAT 16)

10.08.2000 Dmitry Moskalets

Как в Delphi 'Enter' значится ?

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