Club Builder

[Zitrus]

hola, alguien me podria traducir este codigo de delphi a builder 4?

TForm1 = class(TForm)
..........
private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
..........
end;

private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
MessageBox(Handle, 'Cierra antes el programa', nil, MB_OK);
Msg.result := 0;
end;

de ante mano, thanx

[_Leo]

class TForm1 : public TForm {
..........
void __fastcall WMQueryEndSession(TWMQueryEndSession& Msg);
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER( WM_QUERYENDSESSION, TWMQueryEndSession, WMQueryEndSession);
END_MESSAGE_MAP(TForm)
..........
};

void __fastcall TForm1::WMQueryEndSession(TWMQueryEndSession& Msg)
{
    MessageBox(Handle, "Cierra antes el programa", NULL, MB_OK);
    Msg.Result = 0;
}

[Zitrus]

Gracias Leo, eres mi idolo!!!!!!!!!!

Nada mas que llegue a la oficina para probarlo...

Soy tu fan #1 Leo