Показать сообщение отдельно
  #5  
Старый 01.11.2011, 22:40
Kaktuz Kaktuz вне форума
Начинающий
 
Регистрация: 30.10.2011
Сообщения: 149
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
А если кроме дельфи ничего нет?
Тогда создавать BAT файлы с генерацией списка и компиляцией

Не совсем понимаю как, но вот при таком способе вложенный файл работает.
Код:
procedure TForm1.Button3Click(Sender: TObject);
var
  h: THandle;
  p: pointer;
begin
  h := FindResource(hInstance, 'SOUND', 'MUSIC');
  h := LoadResource(hInstance, h);
  p := LockResource(h);
  sndPlaySound(p, SND_MEMORY or SND_SYNC);
  UnLockResource(h);
  FreeResource(h);
end;
Звук грузит. А как же быть с другими данными...
Ответить с цитированием