DLL og Reg. Databasen

library MinDLL;

function StrCopy(Dest: PChar; const Source: PChar): PChar;
asm
        PUSH    EDI
        PUSH    ESI
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     ECX,0FFFFFFFFH
        XOR     AL,AL
        REPNE   SCASB
        NOT     ECX
        MOV     EDI,ESI
        MOV     ESI,EDX
        MOV     EDX,ECX
        MOV     EAX,EDI
        SHR     ECX,2
        REP     MOVSD
        MOV     ECX,EDX
        AND     ECX,3
        REP     MOVSB
        POP     ESI
        POP     EDI
end;

function MyProc(mWnd, aWnd: THandle; Data, Parms: PChar; Show, NoPause: Boolean): Integer; stdcall;
begin
  StrCopy(Data, 'echo *** Hmmm... Hva skal printes ut her?');
  Result := 2;
end;

exports
  MyProc;

begin
end.

I mIRC kan du kalle prosedyren den som dette: /dll MinDLL.dll MyProc

Mvh
DiZpel

[Redigeret d. 12/04-04 01:26:33 af DiZpel]

Efter at have rodet lidt mere med det har jeg kunne loade data fra reg. dben men nu er problemet så at få dem printet ud

Jeg har gjort alt som det skulle være men problemet ligger i at printe ud når jeg kalder mit indgangspunkt f.eks. ReadKey
det resultere bare i ingenting eller at mIRC crasher.

Hmm.. Hvis du har problemer med å lese fra registret, så kan du prøve dette (det virker):
Du kan bruke dette med å skrive i mIRC: //echo $dll(mIRC_DLL.dll, RegRead,)

library mIRC_DLL;

uses
  Registry;

function StrCopy(Dest: PChar; const Source: PChar): PChar;
asm
        PUSH    EDI
        PUSH    ESI
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     ECX,0FFFFFFFFH
        XOR     AL,AL
        REPNE   SCASB
        NOT     ECX
        MOV     EDI,ESI
        MOV     ESI,EDX
        MOV     EDX,ECX
        MOV     EAX,EDI
        SHR     ECX,2
        REP     MOVSD
        MOV     ECX,EDX
        AND     ECX,3
        REP     MOVSB
        POP     ESI
        POP     EDI
end;

function RegRead(mWnd, aWnd: THandle; Data, Parms: PChar; Show, NoPause: Boolean): Integer; stdcall;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := LongWord($80000002); // HKEY_LOCAL_MACHINE
  if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion', False) then
    StrCopy(Data, PChar(Reg.ReadString('ProductName')))
  else
    StrCopy(Data, nil);
  Reg.Free;
  Result := 3;
end;

exports
  RegRead;

begin
end.

Du kan også bruke dette med å skrive i mIRC: /dll mIRC_DLL.dll RegRead

library mIRC_DLL;

uses
  Registry;

function StrCopy(Dest: PChar; const Source: PChar): PChar;
asm
        PUSH    EDI
        PUSH    ESI
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     ECX,0FFFFFFFFH
        XOR     AL,AL
        REPNE   SCASB
        NOT     ECX
        MOV     EDI,ESI
        MOV     ESI,EDX
        MOV     EDX,ECX
        MOV     EAX,EDI
        SHR     ECX,2
        REP     MOVSD
        MOV     ECX,EDX
        AND     ECX,3
        REP     MOVSB
        POP     ESI
        POP     EDI
end;

function RegRead(mWnd, aWnd: THandle; Data, Parms: PChar; Show, NoPause: Boolean): Integer; stdcall;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := LongWord($80000002); // HKEY_LOCAL_MACHINE
  if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion', False) then
    StrCopy(Data, PChar('echo ' + Reg.ReadString('ProductName')))
  else
    StrCopy(Data, nil);
  Reg.Free;
  Result := 2;
end;

exports
  RegRead;

begin
end.

Håper det hjelper

Mvh
DiZpel

Faktisk havde jeg fået det til at virke men det gav mig da et skub i den rigtige retning så derfor skal du da have nogle points