哪位能把下面的BCB的代码转换一下。封成Delphi Dll，在线等待。(20分)

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #1

BOOL APIENTRY DllMain(HANDLE hModule, DWORD reason, LPVOID lpReserved)
{
char szProcessId[64] ;
switch ( reason )
{
　 case DLL_PROCESS_ATTACH:
　 {
　　 //获取当前进程ID
　　 _itoa ( GetCurrentProcessId(), szProcessId, 10 );
　　 MessageBox ( NULL, szProcessId, "RemoteDLL", MB_OK );
　 }
　 default: return TRUE;
}
}

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #2

procedure DllMain(dwReason : DWORD);
begin
case dwReason of
DLL_PROCESS_ATTACH :
begin
ShowMessage(inttostr(GetCurrentProcessId));
end;
end;
end;

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #3

高手到哪去了，是不是嫌分少啊。

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #4

真让人失望。

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #5

我希望转换后的函数与原函数参数相同。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #6

没这么严重吧，其实象我那用写，作为DllMain是可以的。如果你非要照样翻，当然也可以。
function DllMain(hModule: THANDLE;
reason: DWORD;
lpReserved: Pointer): BOOL;stdcall;
begin

case Reason of
DLL_PROCESS_ATTACH :
begin
Windows.MessageBox(0,pchar(inttostr(GetCurrentProcessId)),'RemoteDLL',MB_OK);
end;
end;

end;

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #7

是阿，zw84611刚开始已经给了你回答，并且也很正确，信不过就算了

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-11

• #8

其实我简单的翻译是没问题的。zw84611的先提的译文我当然明白其正确性，
只不过想体现原译的妙处所以才那样说。

 

R

rainsea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-06

• #9

units MyDLL;
interface
uses Windows, Messages, SysUtils,...;
procedure DllMain(Reason: Integer);
// this procedure for your dll myproc
implementation
{ something in this ....}
procedure DllMain(Reason: Integer);
begin
case Reason of
DLL_PROCESS_ATTACH:
{ Example ShowMessage('Hello')}
MessageBox(0,pchar(inttostr(GetCurrentProcessId)),'RemoteDLL',MB_OK);
DLL_PROCESS_DETACH:
{ Example ShowMessage('Quit')}
DLL_THREAD_ATTACH:;
DLL_THREAD_DETACH:;
end;
end;
begin
DLLProc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.

 

D

dafuweng2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #10

rainsea 答的很好！！

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #11

ok!

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #12

多人接受答案了。