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."
Dann füge die neue Declaration auch in der Classe ein
ups. hast du ja.
Ansonsten ja auch bei Destroy..
Hmm override;?
gruss