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

(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);

   with TProgMan.Create(Self) do try

    CreateGroup(GroupName);

    for i := 0 to ItemList.Count  – 1 do begin

     { получаем имя файла }

     ItemName := Copy(ItemList.Strings[i], 1, Pos('=', ItemList.Strings[i]) – 1);

     { прибавляем путь к имени файла и добавляем элемент }

     AddItem(GetTarget(ItemList.Values[ItemName][1]) + ItemName, ItemName);

    end;

   finally

    Free;

   end;

  finally

   ItemList.Free;

  end;

 end;

end; 

OLE

OLE-автоматизация в Delphi 1

Delphi 1 

Delphi 16 также может осуществлять автоматизацию OLE, как она может и многое другое. Другое дело, что у нее нет компонентов-инкапсуляторов, и нет традиционных объектов, делающих работу с OLE такой же легкой, как это происходит с другими вещами в Delphi. Delphi32 таки должен иметь какие-то характеристики для работы с OLE (я так надеюсь).