Procedure in DLL?

[Bluemeus]

hi,

ich möchte eine Procedure, die die registry öffnet, den rootkey öffnet und einen Key, der als const übergeben werden soll, in eine dll auslagern?

ungefähr so:

Delphi-Quellcode:

procedure OpenReg(const Key: ShortString);
var reg: TRegistry;
begin
      reg:= TRegistry.Create;
      reg.RootKey:= HKEY_CURRENT_USER;
      reg.OpenKey(Key,true);
end;

und danach wieder schließen ...

Delphi-Quellcode:

procedure CloseReg;
var reg: TRegistry;
begin
      reg.free;
end;

aber ich erhalte immer einen fehler ... kann mir jmd. mal erklären, wie ich proceduren in eine dll auslagere?!

[Oxmyx]

In DLLs kannst du nicht ohne weiteres Strings verwenden. Übergebe den Key doch mal per PChar.

[Bluemeus]

Zitat von Oxmyx:

In DLLs kannst du nicht ohne weiteres Strings verwenden. Übergebe den Key doch mal per PChar.

Strings nicht, aber PChar und Shortstring dachte ich?!

[fkerber]

Hi!

Welchen Fehler erhälst du denn?


Ciao Frederic

[Bluemeus]

Zitat von fkerber:

Hi!

Welchen Fehler erhälst du denn?


Ciao Frederic

Zugriffsverletzung bei Adresse xxx in Modul xxx. Lesen von adresse 00000004

[Sprint]

Zitat von Bluemeus:

Delphi-Quellcode:

procedure CloseReg;
var reg: TRegistry;
begin
      reg.free;
end;

aber ich erhalte immer einen fehler

Du kannst nichts freigeben, was nicht existiert.

[paresy]

du hast "var reg: TRegistry; " nur lokal definiert.... deswegen kannst du es mit reg.free nicht freigeben, weil es garnicht in der prozedur existiert.

du musst es in der DLL global definieren.

außerdem ist das was du in die DLL auslagern willst bestimmt nocht nicht alles!? du willst du bestimmt noch nen wert zurückbekommen?

grüße, paresy

[Bluemeus]

Zitat von Sprint:

Zitat von Bluemeus:

Delphi-Quellcode:

procedure CloseReg;
var reg: TRegistry;
begin
      reg.free;
end;

aber ich erhalte immer einen fehler

Du kannst nichts freigeben, was nicht existiert.

Ok ... ich fass nochmal zusammen:

sagen wir mal, wir lassen die CloseReg Proc. weg ... das ist eh nur eine zeile.
aber ich möchte gern die registry mit dem key etc. per OpenReg öffnen können, sprich diese funktion nicht wie bisher per programm sondern per dll aufrufen!

könnte mir jmd. den aufbau mal erklären, ob ich stdcall benötige etc..?!

[glkgereon]

du musst erst mal reg: TRegistry global deklarieren

so, wie du es machst, wird alles in openreg schön gemacht, nur bei procedure-ende verschwindet reg im nirvana....

[Sprint]

Zitat von Bluemeus:

könnte mir jmd. den aufbau mal erklären, ob ich stdcall benötige etc..?!

Delphi-Quellcode:

library Project2;

uses
  Windows, SysUtils, Registry;

var
  FRegistry: TRegistry;

{--------------------------------------------------------------------------------------------------}

procedure OpenKey(const Key: PChar);
begin

  if not Assigned(FRegistry) then FRegistry := TRegistry.Create;
  FRegistry.OpenKey(Key, True);

end;

{--------------------------------------------------------------------------------------------------}

procedure CloseKey;
begin
  FreeAndNil(FRegistry);
end;

{--------------------------------------------------------------------------------------------------}

procedure LibraryProc(Reason: Integer);
begin

  case Reason of
    DLL_PROCESS_DETACH: if Assigned(FRegistry) then FRegistry.Free;
  end;

end;

{--------------------------------------------------------------------------------------------------}

exports
  OpenKey, CloseKey;

{--------------------------------------------------------------------------------------------------}

begin
  DllProc := LibraryProc;
end.