Segue anexo em APT


--
 

Erasmo Bispo de Oliveira Junior
Gerente de Projetos

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: +55 (19) 3739-9241
Fax: +55 (19) 3739-9240




Rodrigo Scarano wrote:
Erasmo, vc pode salvar em apt para que eu tente abrir no CDT 112 ?
Grato, Rodrigo
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em nome de Erasmo
Enviada em: terça-feira, 11 de maio de 2004 18:00
Para: [EMAIL PROTECTED]
Assunto: Re: [sqlwin] Nome do Computador

Segue anexo exemplo em 1.5.1, que funciona com qualquer windows/centura.

Sds,
Erasmo
--
 

Erasmo Bispo de Oliveira Junior
Gerente de Projetos

Softway - SoftComex Informatica Ltda.

Web: http://www.softcomex.com.br
Email:
[EMAIL PROTECTED]
Fone: +55 (19) 3739-9241
Fax: +55 (19) 3739-9240



Krause Melo wrote:
Alguem sabe qual a melhor forma de pegar o nome do computador que funcione tanto com win 9x como win2000 se possível mandar um exemplo
 
obrigado.
 
 




<<inline: Softway.gif>>

<<image/gif>>

Application Description: Centura SQLWindows/32 Standard Application Template
        Outline Version - 4.0.27
        Design-time Settings
.data VIEWINFO
0000: 6F00000001000000 FFFF01000D004347 5458566965775374 6174650400010000
0020: 0000000000A50000 002C000000020000 0003000000FFFFFF FFFFFFFFFFFCFFFF
0040: FFE9FFFFFFFFFFFF FF000000007C0200 004D010000010000 0001000000010000
0060: 000F4170706C6963 6174696F6E497465 6D00000000
.enddata
                Outline Window State: Normal
                Outline Window Location and Size
.data VIEWINFO
0000: 6600040003002D00 0000000000000000 0000B71E5D0E0500 1D00FFFF4D61696E
0020: 0000000000000000 0000000000000000 0000003B00010000 00000000000000E9
0040: 1E800A00008600FF FF496E7465726E61 6C2046756E637469 6F6E730000000000
0060: 0000000000000000 0000000000003200 0100000000000000 0000E91E800A0000
0080: DF00FFFF56617269 61626C6573000000 0000000000000000 0000000000000000
00A0: 3000010000000000 00000000F51E100D 0000F400FFFF436C 6173736573000000
00C0: 0000000000000000 0000000000000000
.enddata
.data VIEWSIZE
0000: D000
.enddata
                        Left: -0.013"
                        Top:    0.0"
                        Width:  8.013"
                        Height: 4.969"
                Options Box Location
.data VIEWINFO
0000: D4180909B80B1A00
.enddata
.data VIEWSIZE
0000: 0800
.enddata
                        Visible? Yes
                        Left: 4.15"
                        Top:    1.885"
                        Width:  3.8"
                        Height: 2.073"
                Class Editor Location
                        Visible? No
                        Left: 0.575"
                        Top:    0.094"
                        Width:  5.063"
                        Height: 2.719"
                Tool Palette Location
                        Visible? No
                        Left: 6.388"
                        Top:    0.729"
                Fully Qualified External References? Yes
                Reject Multiple Window Instances? No
                Enable Runtime Checks Of External References? Yes
                Use Release 4.0 Scope Rules? No
        Libraries
        Global Declarations
                Window Defaults
                        Tool Bar
                                Display Style? Etched
                                Font Name: MS Sans Serif
                                Font Size: 8
                                Font Enhancement: System Default
                                Text Color: System Default
                                Background Color: System Default
                        Form Window
                                Display Style? Etched
                                Font Name: MS Sans Serif
                                Font Size: 8
                                Font Enhancement: System Default
                                Text Color: System Default
                                Background Color: System Default
                        Dialog Box
                                Display Style? Etched
                                Font Name: MS Sans Serif
                                Font Size: 8
                                Font Enhancement: System Default
                                Text Color: System Default
                                Background Color: System Default
                        Top Level Table Window
                                Font Name: MS Sans Serif
                                Font Size: 8
                                Font Enhancement: System Default
                                Text Color: System Default
                                Background Color: System Default
                        Data Field
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Multiline Field
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Spin Field
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Background Text
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Pushbutton
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                        Radio Button
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Check Box
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Option Button
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                        Group Box
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Child Table Window
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        List Box
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Combo Box
                                Font Name: Use Parent
                                Font Size: Use Parent
                                Font Enhancement: Use Parent
                                Text Color: Use Parent
                                Background Color: Use Parent
                        Line
                                Line Color: Use Parent
                        Frame
                                Border Color: Use Parent
                                Background Color: 3D Face Color
                        Picture
                                Border Color: Use Parent
                                Background Color: Use Parent
                Formats
                        Number: 0'%'
                        Number: #0
                        Number: ###000
                        Number: ###000;'($'###000')'
                        Date/Time: hh:mm:ss AMPM
                        Date/Time: M/d/yy
                        Date/Time: MM-dd-yy
                        Date/Time: dd-MMM-yyyy
                        Date/Time: MMM d, yyyy
                        Date/Time: MMM d, yyyy hh:mm AMPM
                        Date/Time: MMMM d, yyyy hh:mm AMPM
                External Functions
                        Library name: kernel32.dll
                                Function: GetComputerNameA
                                        Description:
                                        Export Ordinal: 0
                                        Returns
                                                Number: LONG
                                        Parameters
                                                Receive String: LPSTR
                                                Receive Number: LPLONG
                Constants
.data CCDATA
0000: 3000000000000000 0000000000000000 00000000
.enddata
.data CCSIZE
0000: 1400
.enddata
                        System
                        User
                Resources
                Variables
                Internal Functions
                        Function: gf_GetComputerName
                                Description:
                                Returns
                                        String:
                                Parameters
                                Static Variables
                                Local variables
                                        Number: n_Kernel32
                                        String: s_Maquina
                                Actions
                                        Set n_Kernel32 = 255
                                        Call SalStrSetBufferLength( s_Maquina, 
n_Kernel32 )
                                        Call GetComputerNameA( s_Maquina, n_Kernel32 )
                                        Return s_Maquina
                Named Menus
                Class Definitions
                Default Classes
                        MDI Window: cBaseMDI
                        Form Window:
                        Dialog Box:
                        Table Window:
                        Quest Window:
                        Data Field:
                        Spin Field:
                        Multiline Field:
                        Pushbutton:
                        Radio Button:
                        Option Button:
                        Check Box:
                        Child Table:
                        Quest Child Window: cQuickDatabase
                        List Box:
                        Combo Box:
                        Picture:
                        Vertical Scroll Bar:
                        Horizontal Scroll Bar:
                        Column:
                        Background Text:
                        Group Box:
                        Line:
                        Frame:
                        Custom Control:
                        ActiveX:
                Application Actions
                        On SAM_AppStartup
                                Call SalMessageBox( gf_GetComputerName(), 'Máquina', 0 
)

Responder a