==============unit2:线程thread1;====================
unit Unit2;
interface
uses
Classes {$IFDEF MSWINDOWS} ,mplayer, Windows {$ENDIF};
implementation
uses unit1;
procedure thread1.Execute;
var
m:TmediaPlayer;
begin
SetName;
Unit1.Form1.MediaPlayer1.Open;
unit1.Form1.MediaPlayer1.Play;
{ Place thread code here }
end;
end.
==========Unit1:mainform=============
Form1中放一mediaplayer;
FileName:=C:\WINDOWS\MEDIA\The Microsoft Sound.wav
deviceType:=dtAutoSelect
uses unit2;
procedure TForm1.Button5Click(Sender: TObject);
var
m:Thread1;
begin
m:=Thread1.Create(false);
end;