Почему не работает?

← →
Vinivor (2002-04-11 12:10) [0]

Привет всем!
Помогите чайнику плз %)

////////////////// roll.dll ///////////////////////////////
library roll;
uses
windows, Registry;
var reg:Tregistry;

function read_regedit_str(root_key:HKEY; reg_path,name_param:string):string; stdcall;
begin
Reg:=TRegistry.Create;
With Reg do
Try
Begin
RootKey:=root_key;
OpenKey(reg_path,true);
If ValueExists(name_param) then
Result:=Readstring(name_param);
CloseKey;
End;
Reg.CloseKey;
finally
Reg.Free;
end;
end;
exports read_regedit_str;

begin
end.

////////////////////////////////////////////////////////////////

////////////// use_roll.exe /////////////////////
unit Unit1;

interface

uses
Windows, Forms, registry, StdCtrls, Controls, Classes, sysutils,
ExtCtrls;

type --
TForm1 = class(TForm)
str: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
reg:tregistry;
implementation

function read_regedit_str(root:HKEY; reg_path,name_param:string):string stdcall; external "roll.dll";

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:=read_regedit_str(HKEY_CURRENT_USER,"\Software\Microsoft\ Notepad","lfFaceName");
end;

end.
/////////////////////////////////////////////////////////////////

Не работает, и не пойму почему? Boolean и float работают, а string не хочет

Жду ответов :)

Почему не работает? Найти похожие ветки