В чем различие WinAPI кода на C++ и Delphi?

[nesluh]

Всем доброго времени суток. У меня имеется следующая проблема: надо написать прогу под консоль Винды на Delphi с выводом русских букв.
Решил попробовать сделать через WinAPI так же, как это делается на C++, т.е.

#include <conio.h>
#include <iostream>
#include <windows.h>
using namespace std;

typedef BOOL (WINAPI *SETCONSOLEFONT)(HANDLE, DWORD);
 SETCONSOLEFONT SetConsoleFont;

int main{

SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
HMODULE hmod = GetModuleHandleA("KERNEL32.DLL");
SetConsoleFont =(SETCONSOLEFONT) GetProcAddress(hmod, "SetConsoleFont");
if (!SetConsoleFont) {cout<<"error\n" ; exit(1);}
SetConsoleFont(GetStdHandle(STD_OUTPUT_HANDLE),1);
cout<<"Test test"<<endl;

getch();
return 0;
}

и получил следующий код:

type
  funcdll = function (handle:THandle; NumFont:DWORD):LongBool;

var
  dllHandle:THandle;
  SetConsoleFont:funcdll;
  b:boolean;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  dllhandle:=GetModuleHandle('KERNEL32.DLL');
  @SetConsoleFont:=GetProcAddress(dllhandle,'SetConsoleFont');
  b:=SetConsoleFont(GetStdHandle(STD_OUTPUT_HANDLE),1);
  if(b) then writeln('УРА') else writeln(GetLastError);
  readln;
end.

В итоге: GetLastError возвращает 6, т.е. неверный дескриптор.
В чем мной была допушена ошибка, если на C++ код работает?

[x77]

ошибка в объявлении функции, а точнее - в так называемых calling conventions, отечающих за передачу параметров. в дельфи, как и в паскале, по дефолту используется register - параметры передаются в регистрах слева направо. в си используется либо cdecl, либо stdcall, передающие параметры в стеке. сишный код работает просто потому, что kernel32 также написан на си. в вот чтобы заюзать это всё из паскаля, надо явно указывать условия вызова: cdecl или stdcall, в зависимости от того, кто занимаеися очисткой - вызывающий или сама функция.

т.е.:

Код:

type
  funcdll = function (handle:THandle; NumFont:DWORD):LongBool;stdcall;

также можно добавить, что SetConsoleFont - это переменная процедурного типа, уже являющаяся указателем, поэтому указание @ - лишено смысла, можно просто написать

Код:

SetConsoleFont:=GetProcAddress(dllhandle,'SetConsoleFont');

[resource]

сишный код работает просто потому, что kernel32 также написан на си

На самом деле все функции в kernell32.dll - stdcall. А для Си родным соглашением является cdecl.  В прототипе (сишный код) написано - WINAPI. В данном случае WINAPI это и есть __stdcall. Поэтому всё работает.

[nesluh]

Спасибо большое! Разобрался.