Lo he hecho haciendolo en una unidad y cuando llamo al procedimiento create me da error. lo he decladado asi:
unit UnidadSonidos;
interface
uses Classes,Windows;
type
TSound = class(TThread)
private
FList: TStringList;
FMutex: THandle;
protected
procedure Execute; override;
public
constructor Create;
destructor Destroy; override;
procedure Add(Path: String);
end;
implementation
{ TSound }
uses MMSystem;
y a partir de aqui como tu me has indicado. En la prmera linea del CREATE me da el error de violacion????
|