Как узнать какой файл используеться приложением

← →
eRoR_rrr © (2006-10-03 09:03) [0]

Нужно узнать полный путь к файлу который проигрываеться в WinAMP.
Заренее благодарен.

← →
pavel_guzhanov © (2006-10-03 09:31) [1]

Выбрать файл в плей-листе и нажать Alt+3(цифра три). Или тебе программно надо?

← →
Гриха(снова пароль забыл) (2006-10-03 09:32) [2]

> Или тебе программно надо?

=)

← →
eRoR_rrr © (2006-10-03 19:57) [3]

Конечно программно =))))

← →
Furyz © (2006-10-03 20:12) [4]

Winampsdk угадал?

← →
eRoR_rrr © (2006-10-03 21:32) [5]

Furyz © (03.10.06 20:12) [4]
Хм, покапался, не нашёл что нужно отсылать дабы получить имя файла. Или плохо искал просто ...

function ActiveTracksFileName() : String; const IPC_GETPLAYLISTFILE = 211; //Returns the pointer to title of the Nth track in active playlist IPC_GETLISTPOS = 125; //Returns an index of the current track in active playlist var hwndWinamp : HWND; Idx, p : Integer; op, process, read : Cardinal; Buf : Pointer; begin Result := ""; hwndWinamp := FindWindow("Winamp v1.x", nil); if (hwndWinamp <> 0) then begin Idx := SendMessage(hwndWinamp, WM_USER, 0, IPC_GETLISTPOS); p := SendMessage(hwndWinamp, WM_USER, Idx, IPC_GETPLAYLISTFILE); if (p = 0) then Exit; GetWindowThreadProcessId(hwndWinamp, process); op := OpenProcess(PROCESS_VM_READ, false, process); if (op <> 0) then begin GetMem(Buf, 1024); //We assume that 1K will be enough to store the filename try ReadProcessMemory(op, Pointer(p), Buf, 1024, read); if (read > 0) then Result := PChar(Buf); finally FreeMem(Buf); end; CloseHandle(op); end; end; end;

> [6] Zeqfreed © (03.10.06 22:07)

Returns the pointer to title of the Nth track in active playlist

Тут имелось в виду Returns a pointer to the filename of the Nth track in active playlist.

Спасибо.
Всё таки я плохо искал =)

Как узнать какой файл используеться приложением Найти похожие ветки