Po przeczytaniu Kompendium mam pytanie, jak załadować zmienną z dll'ki do głównego programu?
Chodzi o to: Główny program ma zmienną nazwa:string, i teraz chcę, żeby program "pobrał" tą zmienną z dll'ki i nazwał tak guzik.
Główny program:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
nazwa:string;
procedure About; stdcall external 'biblioteka.dll' name 'About';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Caption:=nazwa;
about;
end;
end.
I DLLka
library biblioteka;
uses
SysUtils, Windows;
type
nazwa=string;
{$R *.res}
procedure About; stdcall;
var
nazwa:string;
begin
nazwa:='Guzik';
end;
exports
About name 'About';
end.