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

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

DElphi+реестр

Существует ли кака нибудь функция или процедура Для Создания
Параметра с определенным значением
делал так нифига

procedure TForm1.Button1Click(Sender: TObject);
var
Rg:Tregistry;
i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12:integer;
s:string;
begin
Rg:=TRegistry.Create;
Rg.RootKey:=HKEY_CURRENT_USER;
Rg.OpenKey('SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\<<Конфигурац
ия без имени>>\Menus',true);

if (i1=1) then Rg.WriteString('Pop1','ACAD pop'+'1');

if (i1=0) and (i2=1) then Rg.WriteString('Pop1','ACAD pop'+'1');
if (i1=1) and (i2=1) then Rg.WriteString('Pop'+'2','ACAD pop'+'2');

if (i1=0) and (i2=0) and (i3=1) then Rg.WriteString('Pop'+'1','ACAD
pop'+'1');
if (i1=0) and (i2=1) and (i3=1) then Rg.WriteString('Pop'+'2','ACAD
pop'+'2');
if (i1=1) and (i2=0) and (i3=1) then Rg.WriteString('Pop'+'2','ACAD
pop'+'2');
if (i1=1) and (i2=1) and (i3=1) then Rg.WriteString('Pop'+'3','ACAD
pop'+'3');

Rg.CloseKey;
Rg.Destroy;
end;
Номер выпуска : 3062
Возраст листа : 236 (дней)
Количество подписчиков : 395
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/145655
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

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

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 14 May 2004 09:11:49 +0400 (#145655)