ivam@chel.surnet.ruSashka Yackubtchick=?koi8-r?B?UmU6IPLBws/UwSDTINLFxdPU0s/N?=13 May 99 19:48:06АЬ╛н&ЮЕTOPT 54 MSGID: ivahome 867e49b5 REPLYADDR: ivam@chel.surnet.ru REPLYTO: 2:5020/128@fidonet RFC-Received: from chel.surnet.ru (chel.surnet.ru [195.54.2.5]) by earth.corbina.net (Postfix) with ESMTP id 1E8D4DB6CA for ; Sat, 15 May 1999 07:37:06 +0400 (MSD) RFC-Received: from ivahome (8-138.dialup.surnet.ru [195.54.8.138]) by chel.surnet.ru (8.9.3/8.9.3) with SMTP id JAA12784 for ; Sat, 15 May 1999 09:37:02 +0600 (UDT) RFC-Message-ID: <000001be9e84$34155ec0$01c8a8c0@ivahome> INTL 2:5054/29 2:5020/128 From: "Ivanovskiy Michael" -----Original Message----- From: Sashka Yackubtchick Newsgroups: fido7.ru.visual.basic Date: 11 мая 1999 г. 19:10 Subject: Работа с реестром Привет Я делаю так и всё работает 'Form1.frm - это тестовая форма Option Explicit Private Sub Form_Load() Me.Top = GetSetting("SvinApp", "Startup", "Top", "0") Me.Left = GetSetting("SvinApp", "Startup", "Left", "0") End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting "SvinApp", "Startup", "Top", Me.Top SaveSetting "SvinApp", "Startup", "Left", Me.Left End Sub Информация пишется в реестре по адресу HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SvinApp\Startup Если хочется писать по другому адресу, то придётся пользоваться функциями Windows API. Успехов ! Ивановский М. Via ifmail 2:5020/128@fidonet, Sat May 15 1999 at 07:37 (2.10dev) Via 2:5020/204 FTrack 2.03.b7/W32 15 May 1999 07:42:55 Via UniMail/W32 0.43b 2:5020/1381, 15 May 1999 04:13:38 UTC +0400 Via 2:5054/3 @19990515.125732 GEcho/386 1.11+ Via 2:5054/29@fidonet @19990515.132317.UTC+6 T-Mail 2604.OS2 Recd from 2:5054/29 @19990515.182740.UTC+5