Программы шутки коды и исходники

[Ярослав]

Сообщение от mutabor

у тебя же есть книга Фленова, ты думаешь я больше него знаю?

А толку я нашел

Отключение сочетания
клавиш <Ctrl>+<Alt>+<Del>
В Windows 9x это можно сделать достаточно просто с помощью следующего

var
i:integer;
begin
i := 0;
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, Si, 0);
end;

я понял что он работает только в Windows 9x
в ХР пробовал не прёт.

Где то слышал шутку которую можно реализовать
вот она
можно сделать что бы появлялась на мониторе симпатичная девушка с предложение нажми одновременно (10 таких кнопок) и я разденусь когда пользователь нажимает появляется сообщение а теперь отпустишь хоть одну отформатирую всё на фиг.

Сообщение от Ярослав

Где то слышал шутку которую можно реализовать

вот исходник немножко доработаный
можно сделать чтобы программа случайно выбирала кнопки и записывала в Label2 случайно выбирались клавиши
что бы работала прога скопируйте картинку (фото или свою) на диск D

Помогите сделать программу – шутку (чтобы через определенное время открывался привод CD или DVD).
Я нашел код для открытия и закрытия привода
1 Скиньте исходник с этим кодом (у меня не открывается что намудрил)

unit DriveTools;

interface

uses

  Windows, SysUtils, MMSystem;

function CloseCD(Drive: Char): Boolean;
function OpenCD(Drive: Char): Boolean;

implementation

function OpenCD(Drive: Char): Boolean;
var

  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWord;
  S: string;
  DeviceID: Word;
begin

  Result := false;
  S := Drive + ':';
  Flags := mci_Open_Type or mci_Open_Element;
  with OpenParm do
  begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  if Res <> 0 then
    exit;
  DeviceID := OpenParm.wDeviceID;
  try
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
    if Res = 0 then
      exit;
    Result := True;
  finally
    mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
  end;
end;

function CloseCD(Drive: Char): Boolean;
var

  Res: MciError;
  OpenParm: TMCI_Open_Parms;
  Flags: DWord;
  S: string;
  DeviceID: Word;
begin

  Result := false;
  S := Drive + ':';
  Flags := mci_Open_Type or mci_Open_Element;
  with OpenParm do
  begin
    dwCallback := 0;
    lpstrDeviceType := 'CDAudio';
    lpstrElementName := PChar(S);
  end;
  Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
  if Res <> 0 then
    exit;
  DeviceID := OpenParm.wDeviceID;
  try
    Res := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
    if Res = 0 then
      exit;
    Result := True;
  finally
    mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
  end;
end;

end.

Вот отдельно
ЗАКРЫТЬ CD-ROM

Цитата:mciSendString('Set cdaudio door open wait', nil, 0, handle);

открыть CD-ROM:

Цитата:mciSendString('Set cdaudio door closed wait', nil, 0, handle);

2 Как сделать цикл открытия привода через определенное время

[Ярослав]

проверти код (смотри выше) У меня не прёт ошибок нет
помогите сделать шутку (открытие привода через определенное время)

[Alter]

Сообщение от Ярослав

проверти код (смотри выше) У меня не прёт ошибок нет
помогите сделать шутку (открытие привода через определенное время)

Вот моя давнишняя прога, то что просил(периодичность установи в InI файле):http://www.programmersforum.ru/attac...1&d=1196783924

[Ярослав]

Сообщение от Alter

Вот моя давнишняя прога, то что просил(периодичность установи в InI файле):http://www.programmersforum.ru/attac...1&d=1196783924

Сылка не работает

[mutabor]

Шутка - открытие привода во многих книгах пример есть. Плюс в "Общих вопросах" неоднократно поднималась эта тема, в смысле открытие привода. Используй поиск. А задать периодичность открывания несложно и самому.

[Ярослав]

Вот шутка Открытие и Закрытия CD DVD привода (через определенное время) не видима