файлы

[StartMis]

Сзнаю избитый вопрос но некак непойму

var 
Reg: TRegistry; 
begin 
Reg := TRegistry.Create; 
Reg.RootKey := HKEY_CLASSES_ROOT; 

Reg.OpenKey('.PKG', True); // формат расширение 
Reg.WriteString('', 'SymbianMakeFile-PKG'); // название описателя формата 
Reg.CloseKey; 

Reg.OpenKey('SymbianMakeFile-PKG', True); 
Reg.WriteString('', 'Package information of SIS'); // само описание формата 
Reg.CloseKey; 

Reg.OpenKey('SymbianMakeFile-PKG\shell\Open\command', True); // как открывать 
Reg.WriteString('', '"' + ParamStr(0) + '" "%1"'); // наша прога ну и параметр один для нее - имя файла 
Reg.CloseKey; 

Reg.OpenKey('SymbianMakeFile-PKG\DefaultIcon', True); 
Reg.WriteString('', Format('"%s",3',[ParamStr(0)])); // эт иконка для файла формата, у меня она в ресурсах номер 3  
Reg.CloseKey;
Reg.Free; 
end;

<<<<эт иконка для файла формата, у меня она в ресурсах номер 3>>>

Окаких ресурсах идет речь. И как можно поменять свойства браузера.

[eoln]

Окаких ресурсах идет речь.

Внутри exe-файла (или dll и т.п.) могут находится иконки (одна, две, много) и каждая имеет номер.
Format('"%s",3',[ParamStr(0)]) содержит путь к файлу, 3 - номер иконки. Про свойства браузера ничего не понял. Что именно нужно

[StartMis]

Как засунуть несколько иконок в exe-файл.
браузер: Нужно включать или выключать все свойства мультимедиа.

[eoln]

Как засунуть несколько иконок в exe-файл.

Много раз обсуждалось.
Создаем файл myrc.rc в него пишем
ICO1 ICOFILE ICON1.ICO
ICO2 ICOFILE ICON2.ICO
и т.д.
Включаем в проект и компилируем

браузер: Нужно включать или выключать все свойства мультимедиа.

Какой браузер? IE, Opera?

[StartMis]

браузер IE

[eoln]

uses ... Registry ...;

var
  R: TRegistry;
begin
  R := TRegistry.Create;
  R.RootKey := 2147483649; //или  2147483650
  R.OpenKey('software\microsoft\internet explorer\main', true);
  R.WriteString('Play_Background_Sounds', 'no');
  R.CloseKey;
  
  R.OpenKey('software\microsoft\internet explorer\main', true);
  R.WriteString('Play_Animations','no');
  R.Free
end.

Замена 'no' на 'yes' разрешает

[StartMis]

А как проверить что включено no или yes.
И еще один вопрос как запомнить положение вертикального скрола в компоненте Memo

[eoln]

А как проверить что включено no или yes.

function YesNo: string;
var
  Registry: TRegistry;
begin
  Result := 'параметр не существует';
  Registry:=TRegistry.Create;
  Registry.RootKey:=2147483649;
  Registry.OpenKey('software\microsoft\internet explorer\main',False);
  Result := Registry.ReadString('Play_Background_Sounds');
  Registry.Free;
end;

как запомнить положение вертикального скрола в компоненте Memo

Вот для RichEdit, для Memo как-то по другому

var
  P: TPoint;  
  poz: longint;
begin
  P := Point(form1.RichEdit1.Left+1,form1.RichEdit1.Top+1);
  poz:=SendMessage(form1.RichEdit1.Handle,
        EM_CHARFROMPOS, 0, longint(@P));
  showmessage(inttostr(poz))
end;

[StartMis]

цифры большие что то выдает. мне надо чтобы при нажатии кнопи скрол переходил в предыдущую позицию SendMessage(RichEdit1.Handle, EM_LINESCROLL, 0, poz);

[eoln]

цифры большие что то выдает

Это позиция первого видимого символа - для наглядности.

переходил в предыдущую позицию

А какова эта предыдущая позиция. Я так понимаю надо текущее положение сохранить, а через некоторое время восстановить. Вариантов решения несколько. Вот один из них:

var   
  P: TPoint;     
  poz: longint;   
//сохраняем положение первого видимого символа
procedure TForm1.Button1Click(Sender: TObject);
begin   
  P := Point(form1.RichEdit1.Left+1,form1.RichEdit1.Top+1);   
  poz:=SendMessage(form1.RichEdit1.Handle,   
        EM_CHARFROMPOS, 0, longint(@P))
end; 

//переходим к нему если изменили положение прокрутки (например так)
procedure TForm1.Button2Click(Sender: TObject);
begin
  richEdit1.SelStart:=poz;
  richedit1.SelLength:=0;
  richedit1.SetFocus;
  keybd_event(39, MapvirtualKey(39, 0), 0, 0)
end;