Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2003-12-11

Re: InternetExplorer

Здравствуйте !

> Есть вопросик.
> В InternetExplorer есть такая крутая фича как ВИЗУАЛЬНОЕ
> редактирование html. Встраивается ента фича как пункт меню по прав
> ой кнопке
> (во всяком случае у меня).
> Вопросик: Как программно вызвать этот пункт в Delphi (подозреваю, что и
> не в Delphi будет похоже), если имеется TWebBrowser.

Не знаю точно как это будет выглядеть на делфи, но наверно примерно так же
как и на JS (зная то, как делфи обращается с ActiveX, можно примерно
прогнозировать
это).

То есть пишете на делфи что то типа :
myWrowser.document.designMode = ...;

Не знаю точно - получится или нет, но запись примерно одинакова
и на JS и на VBS (а все эти технологии работают с реальными именами
свойств ActiveX - ов, которую достают из tlb (type class library).

С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-11 22:05:15 (#33565)

Re: ПО по диагностике

Здравствуйте !

> Мне надо создать ПО по диагностике программного и аппаратного
> обеспечения ЭВМ.
> Может кто-нибудь подскажет чевонибуть.
> Заранее благодарен.

Где то в инете (не помню где) была утилита - что то типа SysInfo
(но название не такое) в исходниках.
А аппаратное обеспечение как диагностить ?
Можно пролезть по ключам реестра HKLM и HKCU.
Обычно считается, что подключи в HKLM - название
фирмы, а то что в этих ключах - названия продуктов, а дальше уже опции.
Но это только соглашениеЮ оно часто не соблюдается.

С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-11 21:36:02 (#33548)

Re: чат на VB

Здравствуйте !

> Здравствуйте!
> Как сделать сабж на штук десять машин по локальной сети??
> Спасибо!

А Вам для практических нужд, или чисто академический интерес ?
Просто если это надо именно для общения, то простое решение :
поставить http сервер на одну машину (если есть в сети линуксовые машины,
то лучше там поставить апач). Потом скачать где нибудь готовый чат.
Например на перле или PHP - поставить и радоваться :-)
Если на всех машинах винда, то можно либо скачать апач для винды, либо
поставить IIS - сервер идет с Win2000/XP, и.т.д. Тогда можно
найти что то на ASP.
Если надо именно написать и именно на VB - точно сказать не могу...
Мой брат писал чат на делфях (но это давно было) - там был просто компонент
для этого. Наверно есть и в VB что то такое.
Если что - могу послать простой чат на VC++ - там 2 проекта - скомпилите
и все. Могу, впринципе сам скомпилить и послать exe если надо.

С уважением, Вахтуров Виктор.
Информационный сайт для программистов http://SoftMaker.com.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-11 21:35:56 (#33547)

Re: OpenGL

On Thu, Dec 11, 2003 at 08:35:13PM +0300, Denis Kravtsoff wrote:
> U> У вас тут специалисты по 3D-графике есть?
>
> Скорее всего, нет. Но может тебе стоит сформулировать вопрос, а не
> искать абстрактных профи? Удачи!
Согласен. Сформулируй свой вопрос, тогда подумаем чем помочь.

   2003-12-11 21:17:08 (#33542)

Re: OpenGL

Рад приветствовать, URiS!

Довелось мне Wednesday, December 10, 2003 читать, следующее:

U> У вас тут специалисты по 3D-графике есть?

Скорее всего, нет. Но может тебе стоит сформулировать вопрос, а не
искать абстрактных профи? Удачи!

ЗЫ тебе бы в ФИДО конференции (demo.design.ru, game.design.ru), но не
факт, что сильно помогут...

Alles Gutes!

CU @ http://smuta.boom.ru
...In Code We Trust...
При желании, mailto:deniskravtso***@m*****.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-11 20:35:56 (#33485)

Re: Про А и А*

Рад приветствовать, Юрчик!

Довелось мне Saturday, December 06, 2003 читать, следующее:

ДК>>Скорее всего, речь об алгоритмах поиска пути (нынче это особо для игр
Ю> актуально). И, насколько помню, на взвешенных графах, скоростью не
Ю> отличается. Если интересуют подробности где-то у меня были ссылочки, могу
Ю> поискать, так как рассказ долгий и не архи-простой.

Ю> Если вас не затруднит, будьте так добры! Мне это очень интересно.

http://realmdesigns.russki.net/?command=tutor&t=3

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

Ю> И чем тогда отличаются А и А* ?

Жаль, но я так и не нашёл доку с обзором различных алгоритмов, там в
частности и оба этих фигурировали. Попробуй ещё в поисковике, на эту
тему должно не мало материал быть. Если хочешь проще, есть ещё
"Wave"-алгоритм (волна). К сожалению, учёба сейчас сильно напрягает,
а то бы попытался объяснить на пальцах. Извиняй, может попозже 8( .

Ю> И еще: что такое V-Mail?

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

Alles Gutes!

CU @ http://smuta.boom.ru
...In Code We Trust...
При желании, mailto:deniskravtso***@m*****.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-11 19:25:04 (#33450)

Re[2]: чат на VB

Здравствуйте Alexanders,

Wednesday, December 10, 2003, 7:47:06 PM, вы писали:

AdK> Возможно ваше письмо попало не по адресу.
Почему не по адресу? Всё по адресу.
Возможно это Ваше письмо попало не по адресу!

З.Ы. Научись правильно циттировать письма!!!

   2003-12-11 09:23:57 (#33125)

Re[2]: ПО по диагностике

Здравствуйте Alexanders,

Wednesday, December 10, 2003, 7:50:31 PM, вы писали:

AdK> Возможно ваше письмо попало не по адресу.
AdK> Может не стоит, придумывать велосипед.
Может не стоит слать такие глупые письма на каждый вопрос? Может нужно
ответить, помочь человеку?
AdK> Спасибо.
Пожалуйста, мля.

   2003-12-11 09:23:52 (#33124)

Re[2]: пересылка файлов на VB

Здравствуйте Alexanders,

Wednesday, December 10, 2003, 7:45:33 PM, вы писали:

AdK> Возможно ваше письмо попало не адресу.
Почему не по адресу? Всё по адресу.
Возможно это Ваше письмо попало не по адресу!

   2003-12-11 09:23:45 (#33123)

InternetExplorer

Здарова, программеры!

Есть вопросик.
В InternetExplorer есть такая крутая фича как ВИЗУАЛЬНОЕ
редактирование html. Встраивается ента фича как пункт меню по правой кнопке
(во всяком случае у меня).
Вопросик: Как программно вызвать этот пункт в Delphi (подозреваю, что и
не в Delphi будет похоже), если имеется TWebBrowser.

Режим редактирования.reg
==Резать тут==
REGEDIT4

[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt\&Режим редактирования]
@="С:\\winnt\\EDIT_IE.HTM.htm"
"Contexts"=dword:00000001

==Резать тут Режим редактирования.reg==

EDIT_IE.HTM.htm (засунуть по пути из Режим редактирования.reg)
==Резать тут==
<script language="JavaScript"defer>
var parentwin=external.menuArguments;
var doc=parentwin.document;
doc.designMode="On";
</script>

==Резать тут EDIT_IE.HTM.htm==

   Томилов Александр 2003-12-11 08:06:23 (#33102)

Re[3]: загрузка вместе с файлом

Здарова, KeeL!

10 декабря 2003 г., 16:42:15, ты намылил:

K> То есть если пользователь щёлкнул два раза по какому-нибудь
K> файлу(например C:\logs.txt) запускалась бы моя прога.

Ну так бы сразу!!!

В Basice я не силен, так-что если ты не силен в pascale (Delphi), жди
других ответов.

Unit1.pas
=====Резать тутunit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
s:string;
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или нет ключ
then s:='notepad.exe %1'
else s:=Reg.ReadString('');
Reg.CloseKey;
Reg.OpenKey('txtfile\shell\open\command',true);
Reg.WriteString('OldVariable',s);
Reg.WriteString('',ParamStr(0)+' %1'); // ParamStr(0) - путь к своему EXE
файлу
s[length(s)]:='s'; //Последний символ
Label1.Caption:=Format(s,['Тута будет путь к файлу']); // Заменв %s в строке
на 'Тута будет путь к файлу'
finally
reg.Free; // Конец работы с реестром
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var s:string;
Reg:TRegistry;
begin
if ParamCount>0 then // если прога запустилась с параметром
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или
нет ключ
then s:='notepad.exe %s'
else begin
s:=Reg.ReadString('OldVariable');
s[length(s)]:='s'; //Последний символ
end;
Label1.Caption:=ParamStr(1); // Параметр - путь к файлу
if pos(Paramstr(0),s)=0 then // Если Paramstr(0) есть в Paramstr(1)
// тогда мы запускаем себя
// Пороисходит когда нажать более одного раза Button1
begin
s:=Format(s,[ParamStr(1)]); // Заменв %s в строке на первый
параметр с которым была запущена прога
WinExec(PChar(s),SW_SHOW); // Запуск блокнота
end
else Label1.Caption:=Label1.Caption+' Рекурсивно запускаем свой
EXE!!!!';
finally
reg.Free; // Конец работы с реестром
end;
end;
end;

end.
=====Резать тутUnit1.dfm
=====Резать тутobject Form1: TForm1
Left = 220
Top = 128
Width = 512
Height = 120
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 12
Top = 12
Width = 137
Height = 13
Caption = 'Label1'
end
object Button1: TButton
Left = 10
Top = 38
Width = 75
Height = 25
Caption = 'Get&&Set'
TabOrder = 0
OnClick = Button1Click
end
=====Резать тутProject1.dpr кому надо сам создаст, а то мыло и так большое
получилось.

   Томилов Александр 2003-12-11 08:06:17 (#33101)

InternetExplorer

Здарова, программеры!

Есть вопросик.
В InternetExplorer есть такая крутая фича как ВИЗУАЛЬНОЕ
редактирование html. Встраивается ента фича как пункт меню по правой кнопке
(во всяком случае у меня).
Вопросик: Как программно вызвать этот пункт в Delphi (подозреваю, что и
не в Delphi будет похоже), если имеется TWebBrowser.

Режим редактирования.reg
==Резать тут==
REGEDIT4

[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt\&Режим редактирования]
@="С:\\winnt\\EDIT_IE.HTM.htm"
"Contexts"=dword:00000001

==Резать тут Режим редактирования.reg==

EDIT_IE.HTM.htm (засунуть по пути из Режим редактирования.reg)
==Резать тут==
<script language="JavaScript"defer>
var parentwin=external.menuArguments;
var doc=parentwin.document;
doc.designMode="On";
</script>

==Резать тут EDIT_IE.HTM.htm==

   Томилов Александр 2003-12-11 08:06:12 (#33100)

Re[3]: загрузка вместе с файлом

А просто в проводнике назначить программу на расширение файла не подходит?

> Здравствуйте Victor,
>
> Saturday, December 6, 2003, 6:39:33 PM, вы писали:
>
> >> Здравствуйте!
> >> У меня вопрос по Visual Basic'у: как сделать чтобы моя программа
> >> грузилась вместе с каким-нибудь файлом?
> >> Помогите пожалуйста, очень нужно!
>
> VVV> Хм... А как понять - вместе с файлом.
> VVV> В смысле, чтобы когда щелкаешь по файлу, запускалась прога ?
>
> То есть если пользователь щёлкнул два раза по какому-нибудь
> файлу(например C:\logs.txt) запускалась бы моя прога.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   "Алексеев А.В." 2003-12-11 08:06:07 (#33099)

InternetExplorer

Здарова, программеры!

Есть вопросик.
В InternetExplorer есть такая крутая фича как ВИЗУАЛЬНОЕ
редактирование html. Встраивается ента фича как пункт меню по правой кнопке
(во всяком случае у меня).
Вопросик: Как программно вызвать этот пункт в Delphi (подозреваю, что и
не в Delphi будет похоже), если имеется TWebBrowser.

Режим редактирования.reg
==Резать тут==
REGEDIT4

[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt\&Режим редактирования]
@="С:\\winnt\\EDIT_IE.HTM.htm"
"Contexts"=dword:00000001

==Резать тут Режим редактирования.reg==

EDIT_IE.HTM.htm (засунуть по пути из Режим редактирования.reg)
==Резать тут==
<script language="JavaScript"defer>
var parentwin=external.menuArguments;
var doc=parentwin.document;
doc.designMode="On";
</script>

==Резать тут EDIT_IE.HTM.htm==

   Томилов Александр 2003-12-11 08:05:49 (#33098)
  • 1
  • 2