Private Declare Function Func Lib "my DLL.dll" () as Long

...код более CHEATабелен

Private Declare Function Func& Lib "my DLL.dll" ()

Ну тогда продолжаем гадать? Или дашь больше информации?

Я вроде, все, что используется дал...

Dll давай

#include <windows.h>
#include "Main.h"
#include "head.h"
#include "string.h"
#include "RichEdit.h"
#include <stdio.h>
#define Public extern "C" __declspec(dllexport)
void ParseHTML(String Text,int SelStart,HWND Rich,int SLine=-1,int ELine = -1);

HMODULE lRich;

LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
return DefWindowProc(hwnd,msg,wParam,lParam);
}

BOOL InitApp(HINSTANCE hInstance)
{
 ATOM aWndClass;
 WNDCLASS wc;
 memset(&wc, 0, sizeof(wc));
 wc.style = 0;

 wc.lpfnWndProc = (WNDPROC) WndProc;
 wc.cbClsExtra = 0;
 wc.cbWndExtra = 0;
 wc.hInstance = hInstance;
 wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
 wc.hCursor = LoadCursor(NULL, IDC_ARROW);
 wc.hbrBackground = (HBRUSH)(COLOR_WINDOW +1);
 wc.lpszMenuName = (LPSTR)NULL;
 wc.lpszClassName = (LPSTR)"RichEditor";
 aWndClass = RegisterClass(&wc);
 return (aWndClass != 0);
}

const Green = 0xB000;
const Yellow = 0x7777;
const Gray = 0x777777;
const PHP = 0x808000;
HWND NRich,Form;
struct P2P
{
int StartP;
int EndP;
};
int IsPHP;bool IsJS;
String* PHPTagInd, *CQ; //', ELINET&
String Rich_Callback_string;
bool RtfSend=false;
bool Running=true;

BOOL APIENTRY DllMain( HANDLE hModule,DWORD  ul_reason_for_call,LPVOID lpReserved)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
MSG msg;
if(!InitApp((HINSTANCE)hModule)) return FALSE;
lRich=LoadLibrary("RichEd20.dll";
Form = CreateWindow("RichEditor","a",0,CW_USEDEFAULT,CW_USEDEFAULT,
CW_USEDEFAULT,CW_USEDEFAULT,0,0,HINSTANCE(hModule),NULL);
NRich = CreateWindowEx(NULL,"RichEdit20a",NULL,WS_VISIBLE|ES_SUNKEN|WS_CHILDWINDOW|ES_MULTILINE|WS_VSCROLL|ES_AUTOVSCROLL|ES_NOHIDESEL|WS_HSCROLL|ES_AUTOHSCROLL|ES_WANTRETURN,10,10,200,200,Form,(HMENU)25,(HINSTANCE)hModule,NULL);
UpdateWindow(Form);
break;
case DLL_THREAD_ATTACH:
//MessageBox(0,"THREAD_ATTACH","",0);
break;
case DLL_THREAD_DETACH:
//MessageBox(0,"THREAD_DETACH","",0);
break;
case DLL_PROCESS_DETACH:
FreeLibrary(lRich);
Running=false;
DestroyWindow(NRich);
DestroyWindow(Form);
break;
    }
    return TRUE;
}

DWORD CALLBACK Rich_ES_Callback_Get(DWORD dwCookie, LPBYTE pbBuff, LONG cb, LONG *pcb)
{
Rich_Callback_string="";
Rich_Callback_string.SetContent((char*)pbBuff,cb-1);
return 0;
}

DWORD CALLBACK Rich_ES_Callback_Set(DWORD dwCookie, LPBYTE pbBuff, LONG cb, LONG *pcb)
{
int ret=RtfSend?0:1;
String*Str;
Str=(String*)dwCookie;
strcpy((char*) pbBuff, (char*)*Str);
*pcb=Str->StrLen();
RtfSend=false;
return ret;
}

String GetTextRtf(HWND Rich,int Type=SF_RTF)
{
EDITSTREAM es;
es.pfnCallback=Rich_ES_Callback_Get;
SendMessage(Rich,EM_STREAMOUT,Type,(LPARAM)&es);
return Rich_Callback_string;
}

int SetTextRtf(HWND Rich,String Str)
{
EDITSTREAM est = {(DWORD)&Str, 0, (EDITSTREAMCALLBACK)&Rich_ES_Callback_Set};
RtfSend=true;
if(Str.InStr(0,(String)"{\\rtf"==-1)
{
SendMessage(Rich, EM_STREAMIN, SF_TEXT, (LPARAM)&est);
}
else
{
SendMessage(Rich, EM_STREAMIN, SF_RTF, (LPARAM)&est);
}
return 0;
}

Public int SetTextRtf(HWND Rich,char* Str)
{
String _;
_=Str;
SetTextRtf(Rich,_);
return 0;
}