Sorry your browser is not supported!

#define DLL _declspec(dllexport)
#define UNDEC extern "C"

#include <windows.h>
#include <stdio.h>

FILE * file;

UNDEC DLL void Startup()
{
    file = fopen("testfile.txt", "wt");
}

UNDEC DLL DWORD TestFunc(int value)
{
    fprintf(file, "value: %i\n", value);
    LPSTR returnString;
    returnString = "empty";
    return (DWORD)returnString;
}

#include <winresrc.h>

STRINGTABLE 
BEGIN
    1, "STARTUP%0%Startup"
    2, "TESTFUNC[%SL%TestFunc%"
END

startup
print testfunc(10)
wait key

#include <windows.h>
#include <stdio.h>

#define EXPORT     _declspec(dllexport)
#define EXPORTC    extern "C" EXPORT

#include <globstruct.h>

// ---- SUPPORT FUNCTIONS ----
GlobStruct* GetCore()
{
    static GlobStruct* CorePtr = NULL;
    
    // If already have the core pointer, return it.
    if (CorePtr)
        return CorePtr;

    // Get the core pointer ...
    typedef GlobStruct* (__cdecl *tGetGlobPtr)(void);
    
    HINSTANCE CoreHandle = LoadLibrary("DBProCore.dll");
    tGetGlobPtr GetGlobPtr = (tGetGlobPtr)GetProcAddress( CoreHandle, "?GetGlobPtr@@YAKXZ" );
    FreeLibrary( CoreHandle );
    
    CorePtr = GetGlobPtr();
    
    // ... and return it.
    return CorePtr;
}

void DeleteString(LPCSTR OldStr)
    {
        if (OldStr)
        {
            GetCore()->CreateDeleteString( (DWORD *)&OldStr, 0);
        }
    }

LPSTR CreateString(int Size)
{
    LPSTR NewString=NULL;
    GetCore()->CreateDeleteString( (DWORD *)&NewString, Size);
    return NewString;
}

LPSTR CreateString(LPCSTR Source)
{
    return strcpy( CreateString( (int)strlen(Source)+1 ), Source );
}

// ---- User Code ----
EXPORTC DWORD TestFunc(LPSTR OldString, int Value)
{
    // Remove the old string
    DeleteString( OldString );
    
    // Allocate a new string
    LPSTR RetString = CreateString(12); // 10 possible digits, leading sign, null terminator
    
    // Populate the new string
    sprintf(RetString, "%d", Value);
    
    // Return the new string
    return (DWORD)RetString;
}