Delphi Wysuwający sie cd rom...

[Szalony]

a wiec... bawie się w Delphi i chciałem napisać programik który miał by otwierać cd-rom i zamykać tylko jest pewien problem... nie wiem co wpisać żeby cd rom sie otwierał i zamykał... moj kod wygląda tak:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{to ma otwierac cd rom}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{a to ma zamykac cd rom}

end;

end.[/b]

co mam wpisać zeby cd rom sie zamykał a co zeby się otwierał... czy to możliwe?
proszę o pomoc z gory dzieki

 

[_MaVeR_]

mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja Która otwiera Cd-Rom.



mciSendString('Set cdaudio door closed wait',nil,0,handle); // funkcja Która zamyka



edit :

i do uses dodaj : mmsystem, StdCtrls !

 

[FDJ]

Re: help me plz ;]

Originally posted by Szalony
a wiec... bawie się w Delphi i chciałem napisać programik który miał by otwierać cd-rom i zamykać tylko jest pewien problem... nie wiem co wpisać żeby cd rom sie otwierał i zamykał... co mam wpisać zeby cd rom sie zamykał a co zeby się otwierał... czy to możliwe?
proszę o pomoc z gory dzieki

i nie umiesz poszukac ??

 

[BolekTrojan]

Szalony wiesz co radze ci poczytac jakies arty, faq, e booki chociaz by o podstataw bo to co dales w procedurze pod 2 TButtonami to zwykle komentarze a eboka jak chcesz i jakis kurs przeczytac moze to

http://www.haker.com.pl/forum/viewtopic.php?t=17075
pozdrawiam b0l3k

 

[Szalony]

Originally posted by BolekTrojan
Szalony wiesz co radze ci poczytac jakies arty, faq, e booki chociaz by o podstataw bo to co dales w procedurze pod 2 TButtonami to zwykle komentarze a eboka jak chcesz i jakis kurs przeczytac moze to

http://www.haker.com.pl/forum/viewtopic.php?t=17075
pozdrawiam b0l3k

;p te komentarze dalem zeby wam sie lepiej czytalo i zebyscie wiedzieli gdzie chce dac te gooziki

mciSendString('Set cdaudio door open wait',nil,0,handle); // funkcja Która otwiera Cd-Rom.



mciSendString('Set cdaudio door closed wait',nil,0,handle); // funkcja Która zamyka



edit :

i do uses dodaj : mmsystem, StdCtrls ![/b]

hehe dzoeki za odpowiedz... a dzieki tej odpowiedzi uzuskalem... uwaga... :
supoer extra....

[Error] Unit1.pas(7): Identifier redeclared: 'StdCtrls'

usunolem StdCtrls i dziala normalnie

dzieki stary masz +