Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2011, 22:19   #1
badaladanbad
 
Регистрация: 10.10.2010
Сообщений: 9
По умолчанию Программа для просмотра рисунков

Разработать программу для просмотра рисунков. Программа должна отражать рисунок, загруженный с помощью стандартного диалогового окна обзора. Кроме того, любой рисунок должен быть связан с данной программой, и открываться ней по двойному щелчку мыши или нажатию клавиши <Enter> в Проводнике или любой кому друг файлменеджер.

Направьте меня на путь истинный... Каким способом лучше связать картинки и программу... Пишите свои советы, может кто уже видел такое в нете, пишите... По крайней мере я не нашел(
badaladanbad вне форума Ответить с цитированием
Старый 09.04.2011, 23:02   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Обращайтесь!
контакты:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 10.04.2011, 17:24   #3
badaladanbad
 
Регистрация: 10.10.2010
Сообщений: 9
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ExtDlgs, jpeg, Registry, ShlObj;

type
  TForm1 = class(TForm)
    pnl1: TPanel;
    pnl2: TPanel;
    pnl3: TPanel;
    img1: TImage;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn1: TBitBtn;
    dlgOpenPic1: TOpenPictureDialog;
    chk1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure chk1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dir: string;
  PicturesName: array of string;
  Count: Integer;
  Reg: TRegistry;

implementation

{$R *.dfm}

function Load(FName:string): boolean;
begin
  form1.img1.Picture.LoadFromFile(FName);
end;


procedure Associate;
var s:string;
begin
  dir:=ExtractFileDir(Application.ExeName);
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT; 

  Reg.OpenKey('.jpg\OpenWithProgids\', true);
  Reg.WriteString('TestApplication.jpg', '');

  Reg.OpenKey('\TestApplication.jpg\DefaultIcon\', true);
  s:=dir+Application.ExeName+',0';
  Reg.WriteString('', s);

  Reg.OpenKey('\TestApplication.jpg\Shell\Open\', true);
  Reg.WriteString('', 'Îòêðûòü â TestApplication');

  Reg.OpenKey('command\', true);
  s:=dir+Application.ExeName+'" "%1"';
  Reg.WriteString('', s);

  Reg.Free;

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure DeleteAssociate;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;

  reg.DeleteKey('.jpg');
  reg.DeleteKey('TestApplication.jpg');

  Reg.Free;

  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount <> 0 then Load(ParamStr(1));
end;



procedure TForm1.chk1Click(Sender: TObject);
begin
  if(chk1.Checked) then
  Associate else
  DeleteAssociate;
end;

end.
Уже открывает, но проблема в том надо вручную через открыть с помощью выбирать программу. Можна это как-то исправить???
badaladanbad вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа для просмотра журналов, пoмorитe Jack-shade Общие вопросы C/C++ 10 31.03.2011 18:17
Программа, для просмотра точного размера файлов. Ibanez Wizard Софт 2 26.03.2011 12:56
Программа просмотра шары Alexandee67 Работа с сетью в Delphi 1 09.12.2010 11:17
Программа для просмотра логов трассировки xdebug Виталий Желтяков PHP 0 08.07.2010 22:43
Программа для просмотра jpg-изображений Dimarik Общие вопросы C/C++ 8 12.07.2009 16:59