помогите пожалуйста перевести код С++ Паскаль


#include <windows.h>

#ifdef __cplusplus
extern "C" {
#endif

BOOL WINAPI DllMain(HINSTANCE, DWORD, void*)
{
MessageBox(NULL, "mydll.dll", "mydll.dll", 0);
return true;
}

#ifdef __cplusplus
}
#endif

Здравствуйте Anbod, Вы писали:

A>помогите пожалуйста перевести код С++ Паскаль


A>#include <windows.h>

A>#ifdef __cplusplus
A>extern "C" {
A>#endif

A>BOOL WINAPI DllMain(HINSTANCE, DWORD, void*)
A>{
A> MessageBox(NULL, "mydll.dll", "mydll.dll", 0);
A> return true;
A>}

A>#ifdef __cplusplus
A>}
A>#endif
A>

Давно не писал на паскале, но, наверное, так для дельфей и нетолько пойдёт

Integer DllMain(a,b: Integer; c: Pointer); CDecl;
begin
...
end;

а вообще, главное правильно указать компилятору, как со стэком обращаться, и, вообще, DllMain — довольно специфичная функция ведь, в документации к компилятору описание должно быть, как её описывать...

Здравствуйте konst, Вы писали:

K>Здравствуйте Anbod, Вы писали:

A>>помогите пожалуйста перевести код С++ Паскаль


A>>#include <windows.h>

A>>#ifdef __cplusplus
A>>extern "C" {
A>>#endif

A>>BOOL WINAPI DllMain(HINSTANCE, DWORD, void*)
A>>{
A>> MessageBox(NULL, "mydll.dll", "mydll.dll", 0);
A>> return true;
A>>}

A>>#ifdef __cplusplus
A>>}
A>>#endif
A>>

K>Давно не писал на паскале, но, наверное, так для дельфей и нетолько пойдёт


K>

K>Integer DllMain(a,b: Integer; c: Pointer); CDecl;
K>begin
K>...
K>end;
K>

K>а вообще, главное правильно указать компилятору, как со стэком обращаться, и, вообще, DllMain — довольно специфичная функция ведь, в документации к компилятору описание должно быть, как её описывать...

Вообще-то это не совсем так будет выглядеть (в дельфах спец. конструкция Library есть), гляньте пример хотя бы здесь (к сожалению сейчас Delphi под рукой нет, но помню, что там тоже живой пример был).