На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Описание файла: по расширению из реестра
Jiro
Сообщ. #1 ,
    Member
    **
    Профиль · PM
    Рейтинг (т): 3
    Нашел вот такой вот код
    http://www.delphibasics.info/home/delphiba...riptionforafile

    Всё бы с ним хорошо но вот вызывая в цикле GetFileTypeDescription цикл рушится.

    Вопрос что не так с кодом ?


    ExpandedWrap disabled
      function GetFileTypeDescription(FileName: String): String;
      var hkExtType: HKEY;
           lpszDesc: Array [0..1024] of Char;
           dwSize: DWORD;
      begin
       
        // Attempt to get the registry key for the extension type
        if (GetFileTypeRegKey(FileName, hkExtType) = ERROR_SUCCESS) then
        begin
           // Resource protection
           try
              // Set size of buffer
              dwSize:=SizeOf(lpszDesc);
              // Get the description for the file extension
              if (RegQueryValueEx(hkExtType, nil, nil, nil, @lpszDesc, @dwSize) = ERROR_SUCCESS) then
                 // Return the description
                 SetString(result, PChar(@lpszDesc), dwSize)
              else
                 // Failed to get result
                 SetLength(result, 0);
           finally
              // Close the registry key
              RegCloseKey(hkExtType);
           end;
        end
        else
           // Failed to get result
           SetLength(result, 0);
       
      end;
       
      function GetFileTypeRegKey(FileName: String; out Key: HKEY): Integer;
      var hkExt: HKEY;
           lpszTypeKey: Array [0..1024] of Char;
           dwSize: DWORD;
           szExt: String;
      begin
       
        // Get the file extension
        szExt:=ExtractFileExt(FileName);
       
        // Attempt to open the registry key
        result:=RegOpenKeyEx(HKEY_CLASSES_ROOT, PChar(szExt), 0, KEY_READ, hkExt);
       
        // Check result of open
        if (result = ERROR_SUCCESS) then
        begin
           // Resource protection
           try
              // Set size of buffer
              dwSize:=SizeOf(lpszTypeKey);
              // Query for the default value which is the redirect to the extension type key
              result:=RegQueryValueEx(hkExt, nil, nil, nil, @lpszTypeKey, @dwSize);
              // Check result
              if (result = ERROR_SUCCESS) then
              begin
                 // Open the redirect to the extension type key
                 result:=RegOpenKeyEx(HKEY_CLASSES_ROOT, @lpszTypeKey, 0, KEY_READ, Key);
              end
           finally
              // Close the opened key
              RegCloseKey(hkExt);
           end;
        end;
       
      end;


    Добавлено
    вопрос решен
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0196 ]   [ 16 queries used ]   [ Generated: 19.04.24, 14:34 GMT ]  
    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.