Трабл с экспортом функций из dll

[dolphin705]

Здравствуйте.

есть код примерно такова вида

program abc;

const
  kernel32 = 'kernel32.dll';
  GENERIC_READ = INTEGER($80000000);
  FILE_SHARE_READ = $00000001;
  FILE_ATTRIBUTE_NORMAL = $00000080;
  OPEN_EXISTING = 3;
type
  BOOL     = BOOLEAN;
  DWORD    = INTEGER;
  THandle  = INTEGER;
  HMODULE  = INTEGER;
  FARPROC  = Pointer;
  LPCSTR   = PAnsiChar;

var
  CreateFile        : function(lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD; lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD; hTemplateFile: THandle) : THandle;
  CloseHandle       : function(hObject: THandle): BOOL;

function LoadLibrary(lpLibFileName: PChar): HMODULE; stdcall; external kernel32 name 'LoadLibraryA';
function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; stdcall; external kernel32 name 'GetProcAddress';
function FreeLibrary(hLibModule: HMODULE): BOOL; stdcall; external kernel32 name 'FreeLibrary';

Procedure Cp(F:PChar);
var
  f1 : integer;
  h   : Integer;
begin
  H:= LoadLibrary(kernel32);
  //Гружу библиотеку, но по идее она уже подключена, нужен всего лишь
  //Дескриптор!
  @CreateFile:= GetProcAddress(h,'CreateFileA');
  f1:=CreateFile(F,GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING, 0,0);
  if f1<>-1 then
  begin
    @CloseHandle:= GetProcAddress(h,'CloseHandle');
    CloseHandle(f1);
  end;
  FreeLibrary(h);
end;

Я первый раз имею дело с таким экспортом, немного ещё не в теме.
Данный код не работает, CreateFile вседа возвращает -1, мне кажется дело в том что библиотека уже подключена. Как можно узнать дескриптор? Или как заставить этот код работать???

[Valio]

А если h: THandle;

[dolphin705]

Valio, в данном случае это ничего не изменит, т.к. тип THandle переопределён.

[Пепел Феникса]

GetLastError что говорит?(для отладки подключите лишнее) или сами найдите реализацию исключения LastOSError

[GunSmoker]

WTF is this?

var
  f1 : integer;

  f1h:=CreateFile(f1,GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING, 0,0);
  if f1<>-1 then

[dolphin705]

Сори щас поправим

[dolphin705]

Пепел Феникса, GetLastError говорит ошибка 87

[Пепел Феникса]

0x57 — The parameter is incorrect. ERROR_INVALID_PARAMETER

проверяйте параметры(мне почему то кажется что предпоследний, может и не прав)

кстати, а причем тут экспорт? у вас импорт вообще то.

[dolphin705]

Вот код

var
F1,H : integer;
CreatFile : function(lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD; lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD; hTemplateFile: THandle) : THandle;
begin
F1:=CreateFile('c:\1.txt',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING, 0,0);
ShowMessage(IntToStr(GetLastError));
H:=LoadLibrary('kernel32.dll');
@CreatFile:= GetProcAddress(H,'CreateFileA');
F1:=CreatFile('c:\1.txt',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING, 0,0);
ShowMessage(IntToStr(GetLastError));
FreeLibrary(H);

В первой 0, во второй ошибка 87...

[GunSmoker]

Delphi какой версии?