Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Определение папки с файлами для записи компакт-диска [D7, WinXP]

Woolen © (2003-10-30 10:05:00)

Определяю программно папку, в которой винда хранит файлы для прожига на компакт-диске:

Типы и переменные такие:
DLLVERSIONINFO = record
cbSize: DWORD;
dwMajorVersion: DWORD;
dwMinorVersion: DWORD;
dwBuildNumber: DWORD;
dwPlatformID: DWORD;
end;
TDllGetVersion = function(var DllVerInfo: DLLVERSIONINFO): HRESULT; stdcall;
CSIDL_CDBURN_AREA = $3b;

Код такой:
Result := "";
DllGetVersion := GetProcAddress(GetModuleHandle(shell32),"DllGetVersion");
if Assigned(DllGetVersion) then
begin
ZeroMemory(@DllVerInfo,SizeOf(DllVerInfo));
DllVerInfo.cbSize := SizeOf(DllVerInfo);
OleCheck(DllGetVersion(DllVerInfo));//Тут глюк
if DllVerInfo.dwMajorVersion >= 6 then
begin
PIDL := @ItemIDLst;
OleCheck(SHGetSpecialFolderLocation
(Application.MainForm.Handle,CSIDL_CDBURN_AREA,PIDL));
if SHGetPathFromIDList(PIDL,Buf) then
Result := Buf;
end;
end;

Как думаете что за глюк? EOleSysError с сообщением "Неыерное имя файла". Блин, какого файла? Что, вообще, происходит? Помогите, кто знает.

Woolen (2003-10-30 18:43:00) [1]

Сомневаюсь, что в этом проблема, функция-то отрабатывает и даже возвращает результат, по которому уже создает исключение в OleCheck, а на NT 4, вообще, все отрабатывает правильно, потому что в ее shell32.dll нет функции DllGetVersion, а следовательно возвращается нулевой адрес и Assigned(DllGetVersion) не проходит, что свидетельствует о том, что такая запись компакт-дисков операционка (на своем уровне) не поддерживает и папки искомой - нет.

Игорь Шевченко (2003-10-30 15:54:00) [2]

@DllGetVersion := GetProcAddress(GetModuleHandle("shell32"),"DllGetVersion");

Woolen (2003-10-30 15:05:00) [3]

Может я что-нибудь не так объявил?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »