L
lwslws0208
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tform1.FormActivate(Sender: TObject);
begin
mediaplayer1.FileName:=ExtractFilePath(ParamStr(0))+'lws/03.avi';
mediaplayer1.Open;
mediaplayer1.Play;
end;
begin
mediaplayer1.FileName:=ExtractFilePath(ParamStr(0))+'lws/03.avi';
mediaplayer1.Open;
mediaplayer1.Play;
end;