Не сохраняется аудиофайл

[TUberwer]

Всем привет!
Уже второй день сижу и не могу сделать программу типа диктофона.
Делаю по вот этому коду http://www.kansoftware.ru/?tid=4833
Но проблема:
Если запустить скомпилированный файл в директории D:\delphi\Projects (стандартная директория для скомпилированных проектов в делфи), то test.wav появляется, и все работает, но если Project.exe переместить в другое место, или скомпилировать в другую папку, то файл test.wav не появляется нигде((
Помогите решить данную проблему, или если не сложно, может кто-то может, напишите исходник. Нужно просто кнопка REC и STOP, когда нажимаешь REC, то идет запись с микрофона, когда Stop, то запись останавливаентся и сохраняется в папку с программой с расширением .wav, если такой уже есть, то заменяет его, перезаписует.
Буду благодарен!

[Arigato]

Попробуйте так:

verz := ExtractFilePath (ParamStr (0));
mciSendString(PChar('SAVE mysound ' + verz + 'test.wav'), nil, 0, Handle);

Или может там надо путь в кавычки взять:

verz := ExtractFilePath (ParamStr (0));
mciSendString(PChar('SAVE mysound "' + verz + 'test.wav"'), nil, 0, Handle);

[Yurk@]

а еще, мне так кажется, гораздо правильнее будет начинать запись файла на диск сразу после нажатия REC и ч\з определенные интервалы дописывать его дальше.
пример: включили на запись и записываем целый час подряд, и на 59 минуте происходит авария ... что мы в итоге имеем? верно), ничего)) ... а так на диске будет последних 58 минут записи

[Arigato]

Есть такая бяка. У меня на диктофоне (в целом диктофон неплохой) если произойдет отключение во время записи, то ничего не сохраняется. К примеру, сели аккумуляторы и все, нет файла. Очень неудобно. Ведь можно оставить диктофон включенным ради подслушивания, пусть пишет, сколько хватит аккумуляторов и памяти. Так ведь он ничего не сохранит.

[TUberwer]

Спасибо Arigato!! ОГРОМНОЕ СПАСИБО!!!! Я уже второй день сижу с этой херней!
Нужно вот так вот

verz : String;
 mciSendString(PChar('SAVE mysound "' + verz + '\test.wav"'), nil, 0, Handle);

Если бы не ты, я бы так и продолжал сидеть и думать!!!=))

[TUberwer]

Сообщение от Yurk@

а еще, мне так кажется, гораздо правильнее будет начинать запись файла на диск сразу после нажатия REC и ч\з определенные интервалы дописывать его дальше.
пример: включили на запись и записываем целый час подряд, и на 59 минуте происходит авария ... что мы в итоге имеем? верно), ничего)) ... а так на диске будет последних 58 минут записи

Да.. Но мне это не нужно, в программе не будут записывать больше 30-60 секунд.=)

[Yurk@]

жираф большой - ему видней

[TUberwer]

Она просто для другого предназначена=)