谁能把这5行c代码翻译成delphi代码(50分)

F

findwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #1

#include &lt;windows.h&gt;<br>int APIENTRY WinMain( HINSTANCE, HINSTANCE, LPTSTR, int )<br>{<br>HANDLE m_hMutex = CreateMutex( NULL, TRUE, &quot;ctfmon.exe&quot; ); <br>if( GetLastError() != ERROR_ALREADY_EXISTS )<br> &nbsp;while ( 1 ) Sleep( INFINITE );<br>return 0;<br>}

 

C

cjmcn-sh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #2

可以翻译<br>而且差不多，<br>防止程序多次运行的。<br>你找找看有DELPHI

 

R

Rainstorey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #3

var <br>m_hMutex:HANDLE;<br>procedure Form1_OnCreate(Sender:TObject);<br>begin<br>m_hMutex:=CreateMutex(nil,true,'ctfmon.exe');<br>if GetLastError &lt;&gt; ERROR_ALREADY_EXISTS then<br>while true do sleep(INFINITE);<br>end;<br>-----------------------<br>以上C代码编程风格不好，建议不要使用。

 

F

findwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #4

to:Rainstorey<br>[]不想使用tform<br>怎么办?

 

H

hzjone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #5

Rainstorey,说得对.自已通过API建FORM.

 

F

findwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #6

可能没明白我的意思,<br>我是说根本没准备有from怎么半?

 

A

ANZZL

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-02

• #7

主窗口内：<br>var<br> &nbsp;hnd: THandle;<br>.......................................<br>initialization<br> &nbsp;hnd := CreateMutex(nil, True, 'ctfmon.exe');<br> &nbsp;if GetLastError = ERROR_ALREADY_EXISTS then Halt;<br>finalization<br> &nbsp;if hnd &lt;&gt; 0 then CloseHandle(hnd);<br>end.

 

F

findwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-04

• #8

多人接受答案了。