帕斯卡-我的程序似乎崩溃了,但它仍然在…运行

不,你的程序不是真的崩溃,只是在 while i < trackCount - 1 do 循环。

i 仅当 MusicPlaying() 返回false,这可能只在一首曲目播放完毕后才发生。在此期间,您的程序一直处于 while 循环只是重复等待 音乐播放() 返回false,因此看起来没有响应。

我怀疑 repeat..until 循环是程序的主循环。如果这是真的,那么你可以简单地改变这个词 虽然 对 if .

repeat
    // Other code that's related to responding to user input
    if i < trackCount - 1 do
    begin
        if not MusicPlaying() then
        begin
            PlayMusic(trackName, 1);
            trackNumber := trackNumber + 1;
            i := i + 1;
        end;
    end;
until WindowCloseRequested();