PROCEDURE Main
LOCAL oProgbar, nCont
SetMode( 40, 100 )
CLS
oProgbar := wvgProgressbar():New()
WITH OBJECT oProgbar
:Create( ,, { -23, -1 }, { -2, -MaxCol() } )
:SetCaption( "teste" )
FOR nCont = 1 TO 100
:SetValue( nCont, 1, 100 )
Inkey(0.3)
NEXT
ENDWITH
RETURN
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"
uiAccess="false"
/>
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- Windows 10 -->
<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
<!-- Windows 8.1 -->
<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
<!-- Windows Vista -->
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
<!-- Windows 8 -->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
<!-- Windows 7 -->
<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
<!-- Windows Vista and Windows Server 2008 R2 -->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
<!-- Windows XP ignores this section -->
</application>
</compatibility>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>
</assembly>
É o mesmo EXE.
A única diferença é que criei NO DISCO o arquivo test.exe.Manifest antes da segunda execução.
De vez em quando perguntam porque criar manifest no EXE.... tá aà um exemplo.
O visual é alterado pra mais moderno (além de não obrigar direitos de administrador).
O arquivo externo vale pra Harbour, XHarbour, Visual Basic 6, ou qualquer outro aplicativo.
Nota:
Usem a opção do Harbour de embutir no EXE, não precisa distribuir arquivo externo.
Progressbar disponÃvel apenas na GTWVG do Harbour 3.4