Тема: DevilBell
Показать сообщение отдельно
  #13  
Старый 24.09.2009, 18:32
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Mulber
Может имеет смысл сделать в проге так: fullpath := ExtractFilePath(Application.Exename) + 'Sounds\tadadam.wav'; ? ИМХО
у меня и на XP SP2 SP3 и Vista (без SP) это работало, но если надо дэфолтный путь вынесу в кофиг, где его отредактировать можно будет
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием