Visual Basic 6.0 - register environment variables

* Hi, A!

* писАл A Skrobov к Vitaly Bogomolov
* про "Re: register environment variables"












Меня вот всякие Me смущают, как там - не в курсе?



Да, конечно.

* С уважением, Vitaly
* Origin: Vitaly [@] work (2:5053/40.42)


А вот и я, Klim!

Как-то pаз 2 дек 2084 22:36:30 Klim Omelchenko писал к Dmitriy Kozyrev:










Hу а если использовать интерфейс IActiveDesktop ? Всё что надо, для работы с объектамина рабочем столе там есть.
Пример создания объекта на Делфи
--------------------------
procedure ChangeActiveWallpaper;
const

CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)as IActiveDesktop;
ActiveDesktop.SetWallpaper('c:\windows\forest.bmp', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
--------------------------





Делается через интерфейс IShellLink. Справка вся в MSDN. А пример создания ярлыка на Делфи вот:
--------------------------------------------------
procedure CreateLinkDesktop(Name,ProgPath,Args:string);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FileName := progpath;
with MySLink do begin
SetArguments(pchar(args));
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
// Используйте следующую строчку кода для создания ярлыка на рабочем столе
Directory := MyReg.ReadString('Shell Folders','Desktop','');
//----------------Заменить на сиё для создания в главном меню
//--------Directory := MyReg.ReadString('Shell Folders','Start Menu','');
WFileName := directory + '\' + name + '.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
--------------------------------------------------


Hеа

Ближе к делу.





В этом случае используются ссылки на индефикатор COM класа, зарегистрированого объекта.В результате чего, ярлык не имеет явного пути к запускаемому файлу. В этом случае действительно надо лезть в реестр. Хотя подозреваю, что один из интерфейсов позволяет достать эту информацию. (IShellLink не возвращает истинный путь)
PS
Need uses shlobj, ActiveX, ComObj
Кому нужен пример, как достать из ярлыка всю информацию обращяйтесь. Все примеры только на Делфи.
Мои извинения перед модератором.
* Origin: Windows 2003 Server Enterprise 256Mb,60 Gb,GForce2-MX400,Cel1700 (2:463/381.15)


Hello, Vitaly!

Skrobov on 06 Dec 04 10:00:18:







Я проверял - если дописать что-нибудь в autoexec.bat, то после перезагрузки
оно удалится оттуда и появится в реестре. Т.ч. имхо можно и так и так.
* Origin: ...Bottles paddled muddled duddled... (2:5080/1003.16)




Hi Dmitry!



Бес попутал ;) - я-то как раз и принимаю BSTR* всеми DLLами...

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)









Hедостаточно, поскольку неизвестно заранее что и чему ставить, форма может
перестроить контролы в любой момент, добавить/ удалить между существующими,
вначало в конец и.т.д, снаружи могут в любой момент изменить порядок обхода,
на форме может лежать несколько групп контролов, объедененных по каким-то
признакам, внутри этих объединений может быть совсем отличный порядок
обхода, да еще, опять же, динамически меняемый, вобщем не удалось решить
проблему простым задаванием TabIndex,
почему и возник мой вопрос.
* Origin: Demos online service (2:5020/400)




test
--
* Origin: Talk.Mail.Ru (2:5020/400)




Привет, All,

Давненько я тут не был :) Все больше readonly

Тут у меня вопрос возник к тем, кто занимался сабжем: как
создать single instance object? т.e. такой объект, который не
размножается при его инициализации из разных процессов и данные
доступны для чтения записи из любых процессов.

Уже пробовал менять свойство класса на SingleUse и GlobalSingleUse,
а результат все равно один и тот же: каждая копия процесса,
обращающаяся к переменной видит только "свою" переменную.

Вот мой класс из ActiveX Exe:

Dim m_MyVar As Long
'_______________________________________
Public Property Get MyVar() As Long
MyVar = m_MyVar
End Property
'_______________________________________
Public Property Let MyVar(ByVal dwNewValue As Long)
m_MyVar = dwNewValue
End Property
'_______________________________________

Вот тестовая программа:

Dim obj As vbpMyActiveX_test.myActiveX_test
'_______________________________________
Private Sub Form_Load()
On Error Resume Next
Set obj = GetObject("vbpMyActiveX_test.myActiveX_test")

MsgBox "Объекта еще нет. vbErr=" & CStr(Err.Number) & " (" & Err.Description & ")"
Err.Clear
Set obj = CreateObject("vbpMyActiveX_test.myActiveX_test")
'Set obj = New myActiveX_test

Else
MsgBox "Объект создан. vbErr=" & CStr(Err.Number) & " (" & Err.Description & ")"
End If
End Sub
'_______________________________________
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set obj = Nothing
End Sub
'_______________________________________
Private Sub cmdGet_Click()
txtGet.Text = CStr(obj.MyVar)
End Sub
'_______________________________________
Private Sub cmdSet_Click()
If IsNumeric(txtSet.Text) Then
obj.MyVar = CLng(txtSet.Text)
End If
End Sub
'_______________________________________

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

Где я туплю? По-подробнее, если можно - еще не приходилось создавать
такие объекты.

--
Best regards,
Dmitry Miloserdov

* Origin: Talk.Mail.Ru (2:5020/400)


Hello, Dmitry!

Skrobov on 01 Jan 04 01:36:50:





Только начинаешь - а асм уже выучил?
Иначе зачем тебе это? :-)

Вот один из примеров: изменение размера часиков в трее (
http://bbs.vbstreets.ru/viewtopic.php?p=71927#71927 )
Работает только в Win2000, и возможно, WinXP.
* Origin: Then those Things ran about... (2:5080/1003.16)


Hello, Youri!




Ещё раз, нужно _получать_ страницу в неизменности, или _отображать_ её?
Если только получать, то сабж вовсе не нужен; лучше юзать Internet Transfer
Control.
* Origin: Let me tell you some news. (2:5080/1003.16)


Hello, Youri!






Hаверное, никак; IE показывает сорс из дискового кэша, а не из своей памяти
(в чём легко убедиться: сначала очистить кэш, потом нажать на View Source).
* Origin: That Voom blew my little cats back in my hat. (2:5080/1003.16)