Club Builder

[Pepito]

Necesito un formulario que no se pueda cerrar de ninguna manera, he puesto la propiedad BorderStyle a bsNone, pero pulsando Alt + F4 se cierra.

Gracias por vuestro interes.

Salu2

[TONI]

Hola el codigo es:

if ((Shift.Contains(ssAlt))&& (VK_F4) )
Key=0;


Espero q te sirva un saludo, como yo estoy en lo mismo aprovecho, yo tb estoy haciendo un programa en pantalla completa y no quiero q lo cierren ni nada, lo q quiero saber es como anular CTRL + ALT + SUP sin q se quiete tb el alt + tb. O hacer una imitacion a ALT + TAB


venga un saludo

[nuno272]

Hola muchachos escuche que le hace falta un ejemplo de como deshabilitar el Ctl+Alt+Del to tengo uno asi que si quieren me dan su mail y se los paso

aca les dejo mi mail
nunobetencuert272@hotmail.com

saludos nuno

[nuno272]

Hola muchachos escuche que le hace falta un ejemplo de como deshabilitar el Ctl+Alt+Del to tengo uno asi que si quieren me dan su mail y se los paso

aca les dejo mi mail
nunobetencurt272@hotmail.com

saludos nuno

[Invitado]

nada

[Dream]

Hola , anda si mandamelo mira mi e-mail es antonio@computertoledo.com
de todas formas publicalo si puedes para verlo todos. MUCHAS GRACIAS
UN SALUDO

[nuno]

hola aca les mando el codigo para deshabilitar el Ctr+Alt+Del
saludos nuno

PD: no deshabilita la ventana, simplemente la aplicacion no aparece en ella (en w2000 no anda).

"esto va en Unit.h del form"

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
typedef DWORD (__stdcall *pRegFunction)(DWORD, DWORD);

class TForm1 : public TForm
{
__published: // IDE-managed Components
private:
HINSTANCE hKernelLib;
pRegFunction RegisterServiceProcess;
public:
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

"este es el evento cuando se crea el form"

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
hKernelLib = LoadLibrary("kernel32.dll");
if(hKernelLib)
{
RegisterServiceProcess =(pRegFunction)GetProcAddress(hKernelLib,"RegisterServiceProcess");

if(RegisterServiceProcess)
RegisterServiceProcess(GetCurrentProcessId(),RSP_SIMPLE_SERVICE);
}
}

__fastcall TForm1::~TForm1()
{
if(hKernelLib)
{
if(RegisterServiceProcess)
RegisterServiceProcess(GetCurrentProcessId(),RSP_UNREGISTER_SERVICE);
FreeLibrary(hKernelLib);
}
}