Галактика в вопросах и ответах

Код: Выделить всё

                 ULONG  HelloGalaxyA(LPCSTR string)

                {

                ::MessageBoxA(NULL,  string , "HelloGalaxyA", 

                                                                                                              MB_OK|MB_ICONINFORMATION);

                               return 0;

                }

[b]в VIP:[/b]
function XML4GalaxyA2(var string) : word; external 'XMLDoc4Galaxy.dll#HelloGalaxyA';

Код: Выделить всё

   │  Ошибка: Повторная перерегистрация функции не совпадает с используемой

Код: Выделить всё

exports
   ToTable_Init  name 'TOTABLE_INIT' // 1

Код: Выделить всё

Function  FpUnPackComp         (String)                      : Comp;    external 'FpServ.dll';