Текущий архив: 2007.01.07;
Скачать: CL | DM;

Вниз

Регистрация программы в меню проводника   Найти похожие ветки 

← →
lsvit   (2006-12-17 13:50) [0]

Как мне сделать, чтобы при нажатии на файле правой кнопкой мыши в проводнике был мой пункт, и если его нажму - запускалась моя программа, в которой в качестве параметров было бы имя этого файла. :)

---

← →
ProgRAMmer Dimonych ©   (2006-12-17 14:01) [1]

В реестре ключи есть специальные. Какие - в гугле поищи.

---

← →
lsvit   (2006-12-17 20:39) [2]

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

---

← →
sicilla ©   (2006-12-17 20:59) [3]

procedure AddFileMenue(FilePrefix, Menue, Command: string);
var
  reg: TRegistry;
begin
    reg:=TRegistry.Create;
    with reg do
         begin
              RootKey:=HKEY_CLASSES_ROOT;
              OpenKey("."+FilePrefix,True);
              WriteString("",FilePrefix+"file");
              CloseKey;
              CreateKey(FilePrefix+"file");
              OpenKey(FilePrefix+"file\DefaultIcon",True);
              WriteString("",Command+",0");
              CloseKey;
              OpenKey(FilePrefix+"file\shell\open\command",True);
              WriteString("",Command+" "%1"");
              CloseKey;
              Free;
         end;
end;

procedure DeleteFileMenue(Fileprefix, Menue: string);
var
  reg: TRegistry;
  typ: string;
begin
    reg := TRegistry.Create;
    with reg do
         begin
              RootKey := HKEY_CLASSES_ROOT;
              OpenKey("." + Fileprefix, True);
              typ := ReadString("");
              CloseKey;

              OpenKey(typ + "\DefaultIcon",True);
              DeleteKey("DefaultIcon");
              CloseKey;

              OpenKey(typ + "\shell", True);
              DeleteKey(Menue);
              CloseKey;
              Free;
         end;
end;

procedure TForm1.PDJXPButton6Click(Sender: TObject);
var S: string;
begin
    S := Application.ExeName;
    AddFileMenue("ciphered","open",S);
    SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(PChar("HKEY_CLASSES_ROOT\cipheredfile\DefaultIcon")));
    Showmessage("Расширение зарегистрированно в реестре");
end;

procedure TForm1.PDJXPButton7Click(Sender: TObject);
begin
    DeleteFileMenue("ciphered", "open");
    Showmessage("Расширение удалено из реестра");
end;


---

Страницы: 1 вся ветка

Текущий архив: 2007.01.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.044 c