Полезные фичи и советы по программированию

[Burmuley]

Народ!!!
    Обращась ко всем продвинутым в ДЕЛЫФЯХ!!!
    У меня такой вот вопросик странноватый!
    Как из дельфи сделать так чтобы по нажатию КТРЛ АЛТ ДЕЛ на вылазил диспетчер задач или его небыло видно!!!
    Если мой вопрос вам покажется совсем тупым, то не говорите об этом никому!!!
    Заранее большой СПАСИБ!!!

[Sergey]

Burmuley >>
По-моему это вопрос не к дельфистам, а к системщикам Windows. Потому как за Ctrl-Alt-Del отвечает сама система.

А что есть необходимость такое сделать?
По-моему это бессмысленно..

[Burmuley]

Sergey >> Быть или не быть КТРЛ АЛЬТ ДЕЛ эт уж мне надо! А вот помоч могбы нормально! Нефиг язвить! УУУ! Юзверьи проклятые! Дайте дельный совет!!!!!

[ROM]

Uswer >>
 Если ручками - то "свойства"
 Если программно - разберись с форматом pif

зы. Дочего ленивая молодеж пошла... Вот в наше время ручками через diskedit вскрывали 100 килобайтные сохранялки и ставили все по FF...

[Ma\/erick]

Uswer >>Для особо одаренных>>Щелкаешь правой кнопкой мыши по ярлыку, выбираешь "свойства",
выбираешь вкладку ярлык, там в поле "Объект" написан путь к программе. А еще там есть такая волшебная кнопочка "Найти объект..."!!!

[No(c)sM]

Burmuley, #21 >> Посмотри апи функцию SystemParametersInfo. Я точно не помню но отключение ctrl alt del както связано с заставкой. Чёто вроде SPI_SETSCREENSAVEACTIVE. Короче поэксперементируй - сам разберёшся

[RAM]

Ну почему Дельфи ??? ассемблер - сила!

[RJF_Dilan]

Rom, не учи народ устаревшим фичам в делфях. Пусть на С   пишут. Сишник намного мощнее делфей.

[X-Train]

А отслеживать нажатие клавиш, что совсем разучились? Примеров через дополнительную дллельку с ловушкой(hook) на нажатие клавиш  в инете море!!!

[NEO]

ПОМОГИТе!!!

мне надо решить ЗАДАЧИ НА ПАСКАЛЕ
НАДЕЮСЬ МЕН КТОНИБУДЬ ПОМОЖЕТ
ВОТ ЗАДАЧИ:
1)ДАНО ДВУЗНАЧНОЕ ЧИСЛО,ОПРЕДЕЛИТЬ:
а)КРАТНАЯ ЛИ ТРЁМ СУММА ЕГО ЦИФР;
б)КРАТНА ЛИ СУММА ЕГО ЦИФР ЧИСЛУ А;

2)ДАНО ЦЕЛОЕ ЧИСЛО n (1<_n<_99), ОПРЕДЕЛЯЮЩЕЕ ВОЗРАСТ ЧЕЛОВЕКА (В ГОДАХ).
ДЛЯ ЭТОГОЧИСЛА НАПЕЧАТАТЬ ФРАЗУ "МНЕ n ЛЕТ",
УЧИТЫВАЯ ЧТО ПРИ НЕКОТОРЫХ ЗНАЧЕНИЯХ n СЛОВО"ЛЕТ" НАДО ЗАМЕНИТЬ НА СЛОВО "ГОД" ИЛИ "ГОДА".

3)НАЧАВ ТРЕНИРОВКИ, ЛЫЖНИК В ПЕРВЫЙ ЖЕ ДЕНЬ ПРОБЕЖАЛ 10 КМ. КАЖДЫЙ СЛЕДУЮЩИЙ ДЕНЬ ОН УВЕЛИЧИВАЛ ПРОБЕГНА 10% от пробега предыдущего дня. ОПРЕДЕЛИТЬ:
а)ПРОБЕГ ЛЫЖНИКА ЗА ВТОРОЙ , ТРЕТИЙ , ...., ДЕСЯТЫЙ ДЕНЬ ТРЕНИРОВОК;
б)КАКОЙ СУММАРНЫЙ ПУТЬ ОН ПРОБЕЖАЛ ЗА ПЕРВЫЕ 7 ДНЕЙТРЕНИРОВОК.

4)НАПЕЧАТАТЬ МИНИМАЛЬНОЕ ЧИСЛО, БОЛЬШЕ 200, КОТОРОЕ НАЦЕЛО ДЕЛИТСЯ НА 17.

5) НАЙТИ МАКСИМАЛЬНОЕ ИЗ НАТУРАЛЬНЫХ ЧИСЕЛ, НЕ ПРИВЫШАЮЩИХ 5000, КОТОРОЕ НАЦЕЛО ДЕЛИТСЯ НА 39.

ПРИМЕРЫ МОЖИТЕ ОСТАВИТЬ НА ФОРУМЕ ИЛИ КИНУТЬ НА е-МАИЛ: neotelec@bk.ru
ЗАРАНЕЕ СПАСИБО.

[Василий]

Надеюсь, это не учебные задачи, а так, ради интереса? В противном случае будет, как минимум, масса проблем с лишними фичами, которые я использую
Так как не было сказано, о каком паскале идёт речь, беру за основу FPC (хотя добавлю-ка IFDEFы).
Так, наброски, тоже исключительно ради интереса
Файл platform.inc
{Программы не предназначены для использования на занятиях в ВУЗах, СУЗах и школах}
{This file is free software, you may modify and use it according to GNU GPL}
{$ifdef FPC}
{$define NEWPAS}
{$mode objfpc}{$H }
{$endif}
{$ifdef Delphi}//Как и Kylix Open Edition
{$define NEWPAS}
{$endif}
{$ifdef Kylix}//Я смотрел только Kylix Open Edition
{$define NEWPAS}
{$endif}
{$ifdef NEWPAS}
{$ifdef windows}
{$APPTYPE CONSOLE}
{$endif}
{$endif}

Код:

----------Первая программа-----------program P1;{$I platform.inc}var X,A:byte;    C1,C2:byte;begin repeat  write('Введите двузначное число:');  readln(X);  if (X<10)or(X>100) then   writeln('Было сказано: двузначное'); until (X>10)and(X<100); C1:=X div 10;C2:=X mod 10; write('Сумма цифр') if ((C1 C2) mod 3)=0 then write('кратна 3') else  Writeln('не кратна 3'); Writeln('Введите A'); Readln(A); write('Сумма цифр') if ((C1 C2) mod A)=0 then write('кратна ',A) else  Writeln('не кратна ',A);end.----------И, как самая интересная, вторая---------------program P2;{$i platform.inc}{Программа не работает под Турбо Паскалем} function CorrectWord(n:integer):string; var M:integer; begin  M:=n mod 100;{:-)}  if (m>10)and(m<20) then Result:='лет' else   case n mod 10 of    0,5..9:Result:='лет';    1:Result:='год';    2..4:Result:='года';   end; end;var M:integer;begin write('Введите n:');readln(M); write('Мне ',M,' ',CorrectWord(M));end.

________
Что делает форум с форматированием!!!

[Proud]

Василий, #31 >>
Интерес в том, что не работает?

NEO, #30 >>
Файл platform.inc лучше не показывай..
соответственно, строку с ним.

Код:

program P2;function CorrectWord(n:integer):string; var M:integer;     Result:string; begin     case n mod 10 of         0,5..9:Result:='лет';         1:Result:='год';         2..4:Result:='года';     end;     CorrectWord:=Result; end; var M:integer; begin      write('Введите количество лет:');readln(M);      write('Мне ',M,' ',CorrectWord(M)); end.

[NEO]

СПАСИБО ОГРОМНОЕ

[Dilan]

Василий, #31 >> Что Delphi, что Kylix (Open или Enterprise) - убогие вещи. Зачем убивать в себе чувство прекрасного?   КТО, скажи мне, профессионально пишет на Object Pascal? Есть гораздо более удобные языки и IDE для них... Привожу примеры (сам юзаю Gentoo Linux 2004.0, поэтому софт для нее родимой):

C    - emacs, eclipse, jedit   plugins
C#   - monodevelop
java - jedit, eclipse   plugins
Ну и плюс всякий вспомогательный софт...

Этого программисту хватит по самое не балуйся. А что еще надо?  

[Василий]

> КТО, скажи мне, профессионально пишет на Object Pascal?
Что Вы понимаете под "профессионально"?
> Зачем убивать в себе чувство прекрасного?
Кому как. Для меня более отвратительного, чем код на С с плюсами, найти трудно. К тому же, компилятор с С   тормозит ужасно.

[br.less]

прекрасное это ассемблер, все четко строго и логично
а программисту асма хватт по самое не балуйся
А что еще надо он на нем и напишет

[Dilan]

Василий, #35 от 07-05-2004 00:17 >>
> КТО, скажи мне, профессионально пишет на Object Pascal?
Что Вы понимаете под "профессионально"?
Зачем убивать в себе чувство прекрасного?
Кому как. Для меня более отвратительного, чем код на С с плюсами, найти трудно. К тому же, компилятор с С   тормозит ужасно.

Код С   достаточно читабельный, если прога написана нормально, то прочитать код и понять его не составит труда.  

[Dilan]

br.less, #36 от 07-05-2004 01:10 >>
> прекрасное это ассемблер, все четко строго и логично
а программисту асма хватт по самое не балуйся
А что еще надо он на нем и напишет

Далеко не всегда стоит писать на асме, для решения некоторых проблем проще использовать другие языки, тот же С  , например...  

[br.less]

так мы о прекрасном или об обыденном?

[Dilan]

br.less, #39 от 09-05-2004 00:14 >>
> так мы о прекрасном или об обыденном?

А что ты подразумеваешь под обыденным, а что под прекрасным?