| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Открыть файл.

Thrasher ©   (2008-02-18 11:57:00) 

В общем проблема в чем - пишу каталогизатор документов. Нужно сделать так, что-бы файлы, которые в каталоге, открывались программой, которая с ними асоциированная. Например .doc чтобы открывались программой ассоциированной именно с этим расширением (не только винворд, может кто-то использует опенофис). Знаю есть такая функция в WinAPI?, но как она называется не помню, что-то вроде FileOpen.

Подскажите в каком направлении следует копать. Спасибо.

---

Riply   (2008-02-18 20:40:00) [1]

> [4] ПостОвый терминатор ©   (18.02.08 20:06)

> if keys[i][1] = '.' then

Надо проверять не пустая ли строка.
Возможен вариант (при таком способе получения имен ключей),
когда имя будет иметь нулевую длину.

---

ПостОвый терминатор   (2008-02-18 20:06:00) [2]

> Thrasher ©   (18.02.08 11:57)

>
А это код поможет тебе узнать кто с кем ассоциирован на конкретном компе:
{
This Code will return the programs associated with each extension.
You can obviously modify it to search for a specific extension.
}
uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
keys: TStringList;
i: Integer;
typename, displayname, server: string;
begin
memo1.Clear;
reg := TRegistry.Create;
try
  reg.rootkey := HKEY_CLASSES_ROOT;
  if reg.OpenKey('', False) then
  begin
    keys := TStringList.Create;
    try
      reg.GetKeyNames(keys);
      reg.CloseKey;
      {memo1.lines.addstrings(keys);}
      for i := 0 to keys.Count - 1 do
      begin
        if keys[i][1] = '.' then
        begin
          {this is an extension, get its typename}
          if reg.OpenKey(keys[i], False) then
          begin
            typename := reg.ReadString('');
            reg.CloseKey;
            if typename <> '' then
            begin
              if reg.OpenKey(typename, False) then
              begin
                displayname := reg.ReadString('');
                reg.CloseKey;
              end;
              if reg.OpenKey(typename + '\shell\open\command', False) then
              begin
                server := reg.ReadString('');
                memo1.Lines.Add(Format('Extension: "%s", Typename: "%s", Displayname:"%s"' +
                                       #13#10'  Server: %s',
                                       [keys[i], typename, displayname, server]));
                reg.CloseKey;
              end;
            end;
          end;
        end;
      end;
    finally
      keys.Free;
    end;
  end;
finally
  reg.Free
end;
end;

---

ПостОвый терминатор   (2008-02-18 19:57:00) [3]

Так в жизни именно это и делает Windows.
И не мучай себя сомнениями.
Ну, а если захочешь открывать файлы не ассоциированными с ними программами, тогда спрашивай.

---

Mozg@n   (2008-02-18 19:44:00) [4]

Эта функция находится в модуле ShellApi

ShellExecute
ShellExecuteA
ShellExecuteW

Просто наглядный пример:

 shellapi.ShellExecute(0,'open',pchar(extractfilepath(paramstr(0)+'\help\help.html'),nil,nil,sw_maximize);


---

Рамиль   (2008-02-18 12:00:00) [5]

ShellExecute

---

Наверх