Jak wysunąć tackę CD-ROM w Turbo Pascal 7.0?

witam wszystkich...i od razu do rzeczy : programuje w Turbo Pascalu 7.0 i chcem napisac program który wysuwa tacke od cd-romu kiedy nacisne jakis tam przycisk...mam program (gotowy , sciągnięty z jakiejs tam strony) ale jest problem :

Program CDROMCOM;
Uses CDROM;

Var B : Boolean;

Procedure Help;
Begin
Writeln ('Usage CDROMCOM <command> where command is');
Writeln (' p for play');
Writeln (' s for stop');
Writeln (' o for open tray');
Writeln (' c for close tray');
Writeln (' i for time/track info');
End;

Procedure CDopen;
Begin
Writeln('Opening CD player...');
B:= CDEject;
End;

Procedure CDclose;
Begin
Writeln('Closing CD player...');
B:= CDCloseTray;
End;

Procedure StopCD;
Begin
Writeln('CD stopped.');
B:= CDStop;
End;


Procedure CDshowinfo;
Var Posinf : CDPosType;
Temp : string;
Begin
B:= cdgetpos(posinf);
str(posinf.sec, temp);
if posinf.sec < 10 then temp := '0' + temp;
Writeln('Track : ',Posinf.Track:2,' - Time : ',posinf.min:2,':',temp);
str(posinf.dsec, temp);
if posinf.dsec < 10 then temp := '0' + temp;
Writeln('Played total time : ',posinf.dmin:2,':',temp);
end;

Procedure CDplay;
var Len : longint;
inf : CDInfoRecord;
Posinf : CDPosType;
T : byte;
Begin
Writeln('Playing CD ...');
T:= 1;
B:= CDPlayAudio(T,$FFFFFFF);
cdshowinfo;
End;

i przy kompilowaniu jest : File not found <CDROM.TPU>
mam tez moduł do obslugi cd-romu ale on tez nie dziala co jest nie tak ? moze ktos ma prostszy sposób na "wysunięcie tacki" ??


pozdrawiam

a co nie działa w module obsługi CD? nie kompiluje się? jaki masz system operacyjny?

mam XP i wszystkie programy dzialają ... a w module (jest za dlugi by go wkleic chyba ze chcesz to wkleje...)
jest " Invalid qualifier" i jest wskazana linijka z blędem ...

umieść wszystkie pliki jako załączniki, zobaczę co się da zrobić i o co chodzi

już się robi to jest ten moduł a program jest napisany wczesniej

z tego co widzę to jest taki sam program jaki ja znalazłem ładnych kilka lat temu - bardzo prawdopodobne że nie jest po prostu przystosowany do pracy w systemie winXP.

ale po głębszym zanalizowaniu sprawy i wrzuceniu kodu do kompilatora - należy poprawić dwa błędy żeby się kompilowało zamiast ^^ w tej linijce co pokazuje błąd wpisz jedno ^, potem pokaże jeszcze jeden błąd,

zmień na


i się skompiluje. potem powiedz czy nadal masz problemy...

kompilowac teraz to juz sie kompiluje ale jak chcem uruchomic ten modul to jest " Cannot run a unit " ... a mam pytanie :
czemu ten program co wczesniej go opisalem nie dziala ?
co jest z tym plikiem <CDROM.TPU>

po prostu go nie było. miałeś plik cdrom.pas, który po skompilowaniu daje plik cdrom.tpu. ale że się nie kompilował to nie było pliku .tpu dlatego krzyczał.

a po drugie - modułu się nie uruchamia - moduł się kompiluje i builduje czyli w menu compile klikamy na BUILD. Jeśli nadal plik .tpu się nam nie pojawi w katalogu to trzeba sprawdzić czy w menu compile opcja DESTINATION jest ustawiona na DISK. Jeśli jest tam napisane MEMORY - to klikamy to i się zmieni na DISK. A potem znów COMPILE -> BUILD.

Jak już będziesz miał plik .tpu możesz kompilować swój program korzystający z tego modułu.

Powodzenia

OK dzieki juz wszystko dziala dzieki jeszcze raz i pozdro