56. Пьяный дельфин от 22 июня 2001

Hi !

Общественная совесть опять поднимает Дельфина из глубин на поверхность. Лауреатом недели стал Andrey Paniukov, который нашел таки практическое подтверждение общеизвестному факту, что Windows написана в Борланде, но потом выброшена как неудачный проект на помойку, мимо которой как раз проходил Билл

У меня есть библиотека на *.pas она используется виндовсом, мона ли мне ее как-то с компилить в *.dll, чтоб вынь ее так же пользовал?

Ну, а литературную премию имени Макаренко получает Yurchenko Alexey

Мне надо создарограмму под Win 9.* работающ в приоритетном режиме. Приэтом передывала фокус на себя.

Несколько замечаний

  1. Не стоит писать в эху, что де это или то не смешно. Не смешно - не смейся :-) На правах начальника проекта беру на себя наглость определять это сам. Бить морду - мылом или лично. Желающим не возбраняется завести альтернативный проект "Пьяный Тенцер" и коллекционировать там мои перлы.
  2. Не стоит постить в эху письма с единственной целью - Толик, это тебе для "Дельфина". Я читаю эху полностью и, если оно мне смешным показалось - оно уже там, если нет - нечего и напоминать.

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

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

2001.05.29 Andrey Kovalev

Плиз, подскажите некоторые "интересные" процедурки/функции! Hапример, КАК выполнять внешние программы? (Типа такой: rundll32.exe user,swapmousebutton) КАК писать в реестр?

И т.д...

Просто написал на эхотаге программу-приколю И хотелось бы несколько расширить ее возможностию Вот что она умеет на данный моментЖ Дык он:

1) Hевидима по Ctrl+Alt+Del
2) Периодически выдвигает и задвигает CD-Rom
3) Периодически обращается к диску A:
4) Меняет заголовки окон
5) Мигает лампочками на клавиатуре
6) Может произвольно Перезазрузить/Выключить компьютер БЕЗ всякого подтверждения созранения документов.

2001.05.29 Artem Klimenko

ессно досать

10.06.2001 Sergey Philichev

Subj: мильтизадачность Как в делфи возможно реальзовать сабж, т.е. реализаци не последовательной а параллельной обработке процесса?

11.08.2001 Yurchenko Alexey

Мне надо создарограмму под Win 9.* работающ в приоритетном режиме. Приэтом передывала фокус на себя.

14.06.2001 Andrey Paniukov

У меня есть библиотека на *.pas она используется виндовсом, мона ли мне ее как-то с компилить в *.dll, чтоб вынь ее так же пользовал?

18.06.2001 Lukyanov S.V.

function Test_Number_in_String_Num(Test_String: String): Integer;
{Вход - строка ; Выход - кол-во чисел в строке (столбцов)}
var
  Spase, BakSpase: Boolean ;
  I_Loop, Length_Str: Integer;
begin
{ Spase:= False;{}
  BakSpase:= True;
  Result:= 0;{ Начальное условие}
  Length_Str:= Length(Test_String); {Кол-во символов в строке}
  For I_Loop:= 1 to Length_Str do begin
    { Проверка на окончание строки}
    If (Copy(Test_String,I_Loop,1) = Chr(13)) Or
(Copy(Test_String,I_Loop,1) = Chr(10)) then
    Break;{If (Copy(Test_String,I_Loop,1) = Chr(13)) Or
(Copy(Test_String,I_Loop,1) = Chr(10))}
    { Проверка на пробел в строке}
    If Copy(Test_String,I_Loop,1) = ' ' then begin
      Spase:= True; BakSpase:= True; end
    else
      Spase:= False; {If Copy(Test_String,I_Loop,1) = ' '}
    If (BakSpase = True) And (Spase = False) then begin
      Inc(Result); BakSpase:= False;
    end{If (BakSpase = True) And (Spase = False)}
  end;{For I_Loop:= 1 to Length_Str Step }
end;{Test_Number_in_String_Num}

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