unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, DdeMan;
type
TForm1 = class(TForm)
DdeClientConv1: TDdeClientConv;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
TheData: PChar;
Data: array[0..79] of Char;
begin
{Microsoft Excel 5.0a}
StrPCopy(Data, 'Chris');
DDEClientConv1.PokeData('R1C1', Data);
TheData := DDEClientConv1.RequestData('R1C2');
Edit1.Text := StrPas(TheData);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
end.
델파이 수퍼사이트에서 받은 건데여~ Excel5.0a와 연동하는 프로그램이라는데
이해가 잘 안되네여~ 엑셀과 도대체 어디서 연결이 되는 건지..
그리고 Excel2000과 연동시키려면 어찌 해야하나요??
아시는 분 도와주셔여~~