Советы по Delphi. Версия 1.4.3 от 1.1.2001

 Left = 8
 Top = 24
 Width = 121
 Height = 20
 MaxLength = 10
 TabOrder = 0
 Text = '0'
 end
 end
 object Panel3: TPanel
 Left = 16
 Top = 144
 Width = 153
 Height = 49
 BevelInner = bvLowered
 BevelOuter = bvNone
 TabOrder = 2
 object Label6: TLabel
 Left = 8
 Top = 8
 Width = 48
 Height = 13
 Caption = 'Значение 3:'
 end
 object Edit3: TEdit
 Left = 8
 Top = 24
 Width = 121
 Height = 20
 MaxLength = 10
 TabOrder = 0
 Text = '0'
 end
 end
end
{ *** КОНЕЦ КОДА DDEDLG.DFM *** }

{ *** НАЧАЛО КОДА DDEDLG.PAS *** }
{***************************************************}
{ }
{ Delphi 1.0 DDEML Демонстрационная программа }
{ Copyright (c) 1996 by Borland International }
{ }
{***************************************************}

{ Данный модуль определяет интерфейс сервера DataEntry DDE
(DDEMLSRV.PAS). Здесь определены имена Service, Topic,и Item, поддерживаемые сервером, и также определенаструктура данных, которая может использоватьсяклиентом для локального хранения "показательных" данных.
Сервер Data Entry Server делает свои "показательные"данные доступными в текстовом виде (cf_Text)сформированными в виде трех различных топика (Topics).Клиент может их преобразовывать в целое дляиспользования со структурой данных, которая здесь определена.}
unit Ddedlg;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons, StdCtrls, Mask, ExtCtrls;
type TDataEntry = class(TForm)
 OKBtn: TBitBtn;
 CancelBtn: TBitBtn;
 Bevel1: TBevel;
 Panel2: TPanel;
 Label1: TLabel;
 Label2: TLabel;
 Panel1: TPanel;
 Label4: TLabel;
 Panel3: TPanel;
 Label6: TLabel;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 procedure OKBtnClick(Sender: TObject);
 procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
S1, S2, S3: String;
 { Public declarations }
end;
var DataEntry: TDataEntry;
implementation

{$R *.DFM}

procedure TDataEntry.OKBtnClick(Sender: TObject);
begin
 S1 := Edit1.Text;
 S2 := Edit2.Text;
 S3 := Edit3.Text;
end;

procedure TDataEntry.FormShow(Sender: TObject);
begin
 Edit1.Text := '0';
 Edit2.Text := '0';
 Edit3.Text := '0';
 Edit1.SetFocus;
end;

end.
{ *** КОНЕЦ КОДА DDEDLG.PAS *** }

Как добавить группу в Program Manager?

Delphi 1 

interface
procedure CreateGroup;

implementation

procedure TSetupForm.CreateGroup;
{ Для установки группы в Program Manager используем компонент TProgMan }
var
 ItemList: TStringList;
 GroupName: String;
 ItemName: String;
 i: word;
begin
 { Получаем из INI-файла строку GroupName }
 GroupName := IniFile.ReadString('General', 'PMGroup', '');
 { Если один есть, устанавливаем группу }
 if GroupName <> '' then begin
 ItemList := TStringList.Create;
 try
 { читаем элементы для установки }
 IniFile.ReadSectionValues('PMGroup', ItemList);