Erstmal Danke für die verständliche Erklärung.
Und ersetze alle !mciplayer! mit dieser Variable
Auch bei Destroy?
Delphi-Quellcode:
public
{ public-Deklarationen }
//...
destructor Destroy(alias: string); override;
end;
//...
destructor TMCIPlayer.Destroy(alias: string);
begin
command := ('close '+ alias +' wait');
mciSendString(command, return, resultSize, 0);
end;
Es kommt der Fehler:
"Deklaration von 'Destroy' unterscheidet sich von vorheriger Deklaration."