længde af CD

Tags:    delphi

jeg bruger denne kode til at få længden af mp3 filer, men hvordan går man med CDer (*cda)??? der skulle man bruge en helt anden måde hvis jeg ikke husker forkert.

var
R : Integer;
Time: Integer;
begin
R := MediaPlayer1.Position;
Time := mediaplayer1.Length;

caption := 'Format('%.2d:%.2d', [R div 60000, (R mod 60000) div 1000])' //tæller op

caption2 := 'Format('%.2d:%.2d', [Time div 60000, (Time mod 60000) div 1000]);//længden af sangen
end;

og et spørgsmål mere. hvordan kan jeg få en caption fra en popupmenu items?? uden at bruge PopMenu.caption
kan man ikke bruge noget i denne stil; popupmenu.selected[popupmenu.itemindex].caption???



2 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
glem første spørgsmål.. men er der ikke en der kan hjælpe mig med spg2??



Tja prøv noget med popupmenu.itemindex.caption

Tror jeg:D
eller noget ligende....

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.
http://www.frip.dk/worldoffire

Darkfighter



t