|
#16
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#17
|
||||
|
||||
Вот, написал новую версию, может кому ещё интересно. Вроде все замечания и недочёты исправил. Звук проигрывается всегда, выключение компа (и не только) тоже теперь есть, при завершении сеанса сам выключается (иначе он не давал завершить сеанс). Скачать (ссыль не прямая) можно с моего сайта, там файл всегда лежит.
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |