小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

Question

I would like to prevent loading of malicious DLLs that may be possible through access of the current working directory as described in http://msdn.microsoft.com/en-us/library/ff919712(VS.85).aspx

The solution implemented in our C++ apps was to make a WinAPI call to SetDllDirectory(""), which would effectively remove the current working directory from the Windows DLL loading search path. However, it seems this solution is not available for our Delphi apps because the SetDllDirectory() function doesn't exist.

Is there an equivalent call in Delphi that does the same thing as SetDllDirectory("")? Thanks!

If you want to use a function in the Windows API (that is, a function in Windows, that looks the same in any language) that is not declared in Windows.pas, it is generally really easy to declare it yourself. All you need is the information at the MSDN, where the data types of the argument and result are specified, as is the DLL to look in. In most cases, the types used there can be used even in Delphi as well (such as HBRUSH, HWND, etc.), or you can use an equivalent type (such as cardinal, or THWND). Just don't forget to set the calling convention to stdcall.

Jens Mühlenhoff · Answer 1 · 2010-10-28 21:43:15Z

up vote 5 down vote

This should do the trick:

function SetDllDirectory(lpPathName:PWideChar): Bool; stdcall; external 'kernel32.dll' name 'SetDllDirectoryW';

answered Oct 28 '10 at 21:43

Jens Mühlenhoff
3,730629

	Keep in mind that you are static-linking to the function, so the app will require at least XP SP1 to run. If you need to run on older versions, then you need to dynamically load the function via GetProcAddress() instead. – Remy Lebeau Oct 29 '10 at 1:13
	In a pre-Unicode Delphi version function SetDllDirectory(lpPathName:PAnsiChar): Bool; stdcall; external 'kernel32.dll' name 'SetDllDirectoryA'; can be used as well. – user160694 Oct 29 '10 at 7:38
	@Remy: Technically correct, but if they used SetDllDirectory in their C++ applications before, I guess that would not be a problem. – Jens Mühlenhoff Oct 29 '10 at 8:26

feedback

Allen Bauer · Answer 2 · 2010-10-28 21:51:43Z

Calling SetDllDirectory('') doesn't work? I see that it is declared properly in the latest versions of Windows.pas. If you have a version of Delphi in which it isn't declared, you can upgrade to the latest version of Delphi, or declare it yourself.

Update: And there you go... Jens just posted the declaration.

score 2 · Answer 3

uses DSiWin32;

if not DSiSetDllDirectory('path') then
   ....

DSiSetDllDirectory will also take care of dynamic linking and will fail gracefully on pre-XP SP1 systems.

DSiWin32 is released as a freeware.

小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

How to call WinAPI function SetDllDirectory()

How to call WinAPI function SetDllDirectory() in Delphi?

3 Answers