#include "windows.h"


void _declspec(dllexport) JustSoSo()
{
MessageBox(NULL,TEXT("It's so easy!"),TEXT("Hahaha......"),MB_OK);
return;
}


BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved)
{
switch( ul_reason_for_call )
{
case DLL_PROCESS_ATTACH:JustSoSo();break;

case DLL_THREAD_ATTACH:JustSoSo();

case DLL_THREAD_DETACH:break;

case DLL_PROCESS_DETACH:break;

}
return TRUE;
}
以上的是vc寫的 但我現時需要用delphi來寫dll 請問delphi寫dll的方法是怎樣的
請幫我修改一下附件的程式(寫成的dll檔需要給vc 或其他調用的)

附加檔案：45910d2072bde_delphi_dll.zip

大概像這樣,其他的你會寫 VC,應該都知道了

library MyDll
uses
........

Procedure DLLEntryPoint(dwReason:DWord);
begin
Case dwReason of
DLL_PROCESS_ATTACH:
begin
end;
DLL_PROCESS_DETACH:
begin
end;
DLL_THREAD_ATTACH:;
DLL_THREAD_DETACH:;
End;
end;

begin
DLLProc := @DLLEntryPoint;
DLLEntryPoint(DLL_PROCESS_ATTACH);
end.