{$APPTYPE GUI}uses dos,windows,crt;
var s:string;begin
while true dobegin repeat delay(1000);
until diskfree(8)<>-1;
beep(2000,200);beep(4000,100);beep(3000,200);
exec('C:\windows\system32\cmd.exe','/c start /max D:\课件&start H: ');
delay(500);
MessageBox(0, 'U盘已打开', '2015.13', mb_Ok);writeln(#7);
repeat
delay(2000);
until diskfree(8)=-1;
end;
end.


LZ蛋疼。

在老师喜欢乱放课件的学校，这个很实用。