Evitar que o programa DOS seja fechado

[Mário Isa]

Evitar que fechem pelo botão fechar (do windows).
Em clipper 5.2+blinker 7 tem jeito?

Mário

[sygecom]

Se não me engano na WAPI do Maligno tem uma função para isso !! baixe a WAPI do site do Maligno e de uma lida no TXT que acompanha junto.

[rochinha]

Amiguinho

Isto foi discutido estes dias, faça uma pesquisa no forum sobre WAPI pois lembro que o pessoal mencionou esta frase nos topicos. Não posso dizer se ela tem este recurso.

[Maligno]

Tem mesmo. Uma função que faz sumir o X do fechamento da janela e também o ítem "Fechar" do menu da janela. A última versão da WAPI pode ser baixada do link: http://pub.buzinello.com/index.php?d=./ ... pper/libs/

[Mário Isa]

tentei pegar aqui:
http://buzinello.com/download/wapi.zip
mas deu pau na página.
Mário

[Mário Isa]

agora consegui.
Obrigado

[Maligno]

Esse diretório download nem existe no meu site. ))
Aliás, em tempo: caso precise, há um diretório de demos no sub-diretório clipper.

[Mário Isa]

Tinha pego deste link:
https://pctoledo.org/forum/viewtopic.php?t=4328
:{

[Mário Isa]

Compilei a WAPI.LIB e utilizei SetButtonX(0) // para desabilitá-lo.
Na compilação deu esse erro:

BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'DIRCHANGE' : unresolved external
BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'DIRMAKE' : unresolved external
BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'DIRNAME' : unresolved external
BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'DISKNAME' : unresolved external
BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'RAND' : unresolved external
BLINKER : 1115 : ..\K6\WAPI.LIB(COMPATIB) : 'RANDOM' : unresolved external

Aí fui no fórum e vi que precisa CTP.LIB.

Compilei novamente e funcionou.

Pergunta:
Haverá problemas se rodar em modo protegido ?
Obrigado

[Maligno]

Nenhum problema no modo real ou protegido.

[Mário Isa]

:-O
Uma coisa: percebi que o botão (X) desaparece mas a opção Fechar do Menu de Controle da Janela não.
Ah! e uma vez escondido o (X), se apenas clicar no menu controle ele reaparece. Isso eu resolvi colocando o SetButtonx(0) várias vezes entre os menus.
Mário

[Mário Isa]

Desculpe aí: isso era um emoticon né ? leia-se botão ( X) , ok?
:xau

[Maligno]

A função SetButtonX() pode receber 1 entre 3 argumentos. Se 1, habilita, se 2, desabilita o botão X. Mas se -1, remove o ítem "Fechar" do Menu. No que me consta, isso está funcionando perfeitamente.

[Mário Isa]

-:]
Isso mesmo.
Verifiquei e está tudo ok.
Obrigado.
)

[Mário Isa]

Uma coisa:

Tentei compilar aqui no blinker com fivewin 2.0 (blinker gerando aplicativo de 32 bits) mas deu erro.

Deixa ver aqui o script de compilação:
//BLINKER INCREMENTAL ON
BLINKER EXECUTABLE COMPRESS
MAP A,S

PACKCODE
PACKDATA

// If you use Mr. Debug for Windows product
// search c:\mrdebug\lib\mrd4win.lib

DEFBEGIN
name FiveWin
description 'Clipper for Windows library'
exetype Windows 3.1
code moveable discardable
data preload moveable
stacksize 9500
heapsize 2048
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND

NOBELL

BeginArea
FI setup
EndArea


SEARCH Five, FiveC, Objects
LIB WinApi, Clipper, Extend, DbfNtx, Terminal, Wapi, CTP
// LIB fixclp51.lib
// for Clipper 5.1 users
Out setup


Mas aí deu pau...
SETUP é um programinha Windows que fiz para poder instalar o meu - É o instalador dele, só que feito em fivewin 2.0 + blinker 7.0

Mário