Re: openlibsys.org Open source driver
Zitat:
|
Re: openlibsys.org Open source driver
Here we this more alike :) .Works!
Delphi-Quellcode:
Const
ring: THandle; procedure tform1.Load; VAR Pfad: AnsiString; begin Pfad := ExtractFilePath(application.ExeName) + 'WinRing0x64.DLL'; if FileExists(Pfad) then begin form1.Color:=clgreen; ring := LoadLibrary(PChar(Pfad)); if ring = 0 then showmessage('loaded'); end; end; Now for the functions,this is wrong i know,but if it says it has no params and return value then i thought why not but this wont work.I have clearly no idea how to call how to call a function off an dll. :oops:
Delphi-Quellcode:
From the manual
type
TInitializeDll = function(InitializeDll) stdcall; Zitat:
Zitat:
|
Re: openlibsys.org Open source driver
I am frightened, that you have not learned some basics. Learn the basics!
What is the difference between function and procedure? If there is none, we do not need two identifiers in the Delphi language... |
Re: openlibsys.org Open source driver
Ofcourse theres a difrence
Delphi-Quellcode:
Like this?
var
Form1: TForm1; ring: THandle; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin load; end; procedure tform1.Load; VAR Pfad: AnsiString; Intalize: procedure(InitializeDll: Pointer); stdcall; begin Pfad := ExtractFilePath(application.ExeName) + 'WinRing0x64.DLL'; if FileExists(Pfad) then begin form1.Color:=clgreen; ring := LoadLibrary(PChar(Pfad)); if ring = 0 then Intalize:= GetProcAddress(ring,'InitializeDll'); if Assigned(Intalize) then showmessage('intalized'); showmessage('loaded'); end; end; |
Re: openlibsys.org Open source driver
Hi Razor,
Zitat:
Zitat:
So, no go for your x64 Driver without Digital Signature or F8 on boot... Cheers Assertor |
Re: openlibsys.org Open source driver
As far as I know does the driver within WinRing0 have a Verisign certification and is runable under Vista x64 even without the BCDEdit option.
That option was originally a way for developers to test their X64 drivers, as long as the Verisign certification process is running. |
Re: openlibsys.org Open source driver
Zitat:
What about all the warnings and hints of your source? Why do you access the global Form1 variable in a method of TForm1? What about a basic source code formating? |
Re: openlibsys.org Open source driver
This what ive done so far,error comes up i uploaded the image..
http://img504.imageshack.us/img504/3955/captureke1.jpg
Delphi-Quellcode:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure load; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ring: THandle; procedure InitializeDll(); stdcall; external 'WinRing0x64.dll'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin load; end; procedure tform1.Load; VAR Pfad: AnsiString; begin Pfad := ExtractFilePath(application.ExeName) + 'WinRing0x64.dll'; if FileExists(Pfad) then begin ring := LoadLibrary(PChar(Pfad)); if ring = 0 then form1.Color:=clgreen; showmessage('loaded'); end; InitializeDll(); end; end. |
Re: openlibsys.org Open source driver
So the imports of the WinRing0x64.dll could not be resolved by the module loader.
|
Re: openlibsys.org Open source driver
Set a debug breakpoint before the line:
Delphi-Quellcode:
and check the content of the Pfad variable. Maybe some backslash is missing.
ring := LoadLibrary(PChar(Pfad));
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz