Delphi에서 Win32 API 불러쓰기
절름발이 프로그래머/Delphi / 2009. 5. 1. 23:36
델파이에서
Win32 API 대부분은 쉽게 사용할 수 있게 되어 있다.
그 이유는
windows.pas 파일에서 함수들을 모두 제공하기 때문이다.
uses
windows;
위 구문만 소스에 추가하면 Win32 API 함수를 모두 사용할 수 있다.
그런데, 최근에 SetFilePointerEx 라는 Win32 API가 필요했는데,
이것은 Delphi 2007, 2009에서도 제공하지 않고 있다. 즉, Windows.pas 파일에 내용이 없는 것이었다.
해결방법은 windows.pas에서와 같이, Win32 API를 import 하는 것이다.
실제로 windows.pas를 보면,
가장 비슷한 함수인 SetFilePointer라는 Win32 API가 다음과 같이 import 되어 있음을 알 수 있다.
interface
...
...
function SetFilePointer(hFile: THandle; lDistanceToMove: Longint;
lpDistanceToMoveHigh: Pointer; dwMoveMethod: DWORD): DWORD; stdcall;
{$EXTERNALSYM SetFilePointer}
...
...
implementation
...
...
function SetFilePointer; external kernel32 name 'SetFilePointer';
그렇다면 아주 간단하게 다음과 같이, SetFilePointerEx 를 import 할 수 있다.
interface
...
...
function SetFilePointerEx(hFile: THandle; lDistanceToMove: LARGE_INTEGER;
lpDistanceToMoveHigh: Pointer; dwMoveMethod: DWORD): BOOL; stdcall;
{$EXTERNALSYM SetFilePointerEx}
...
...
implementation
...
...
function SetFilePointerEx; external kernel32 name 'SetFilePointerEx';