PureBasic Forums - English

Name_funcA.s = Space(#MAX_PATH) ; Ascii
handle = GetModuleHandle_("user32.dll")
If handle
CompilerIf #PB_Compiler_Unicode
WideCharToMultiByte_(#CP_ACP, 0, @"MessageBoxA", -1, @Name_funcA, #MAX_PATH, #Null, #Null)
Debug Hex(GetProcAddress_(handle, Name_funcA))
CompilerElse
Debug Hex ...

I present to your the disassembler of lengths of instuktion
;The disassembler of lengths of instructions 32х a bit executed code of x86 processors.
;3DNOW-Supported
;SSE-Supported
;SSE2-Supported
;MMX-Supported

#pref66h = 1
#pref67h = 2

Procedure OpcodeLen(pointer.l)
EnableASM
mov esi ...

Happiness for all - for nothing and let nobody will leave the offended (c)

ts-soft wrote: But you should remove the .l or change to .i from the variables (callbacks, hwnd and so on) to work on 64-Bit!

Corrected

Office XP style Colour Picker control
http://i078.radikal.ru/1205/47/3388bfc39f7at.jpg
; Office XP style Colour Picker control by Pablov
; Win XP SP3; Win7
; PureBasic ver. => 4.6

Enumeration
#Window_0
#Window_1
EndEnumeration
Enumeration
#rgb
#text
#ComboBox_1
EndEnumeration

Structure ...

2electrochrisso
Sorry, I have't tested for win7
try it
Enumeration
#Main
EndEnumeration
Enumeration
#String_0 = 0
#String_1 = 1
#String_2 = 2
#String_3 = 3
#String_4 = 4
#String_5 = 5
#String_6 = 6
#String_7 = 7
#Button_4 = 8
EndEnumeration ...

Number one

http://s019.radikal.ru/i632/1205/48/dc18852afba9.png
ColorOptionDlg.res

; ColorPicker2
; Author Pablov
; 01\05\2012
; Win XP SP3; Win7
; PB 4.3 - 4.6
Enumeration
#Main
EndEnumeration
Enumeration
#String_0 = 0
#String_1 = 1
#String_2 = 2
#String_3 = 3
#String_4 = 4 ...

Offer You my variant
; Author: Pablov
; Date: 19. 08.2011
; OS: Windows (for PB4.30 - 4.51)
;DllFM.pbi
#IMAGE_REL_BASED_ABSOLUTE = 0
#IMAGE_ORDINAL_FLAG32 = $80000000
Structure IMAGE_SECTION_HEADER
SecName.b[8]
StructureUnion
PhysicalAddr.l
VirtualSize.l
EndStructureUnion
VirtualAddress.l ...

If create the table DBF using CHEETAH2.DLL, MEMO field well are read.
IncludeFile "Cheetah2.pbi"
If xdbUseDLL()
AllFields$ = "ID,N,10,0; CHARACTER,C,20,0; MEMO,M,0,0" ; Create three field, including MEMO-field
xdbCreate("C:\1.dbf", AllFields$)
FileName.s = "C:\1.dbf"
hDB = xdbOpen ...

Greetings.
How to read MEMO field, using cheetah2.dll
Or other tools are necessary?
Thanks

WinXP SP2 running PB4.3 32 bit This code works

This example starts file calc.exe from memory
Enumeration
#btn1
EndEnumeration
EnableExplicit

Structure IMAGE_SECTION_HEADER
SecName.b[8]
StructureUnion
PhysicalAddr.l
VirtualSize.l
EndStructureUnion
VirtualAddress.l
SizeOfRawData.l
PointerToRawData.l
PointerToRelocations.l ...

How syncronize scroll in two Scintilla Gadget?
Here is so works :wink:
Global hSci0.l, hSci1.l, scroll_0.l, scroll_1.l
Enumeration 0
#Sci0
#Sci1
EndEnumeration

If InitScintilla("Scintilla.dll")=0
MessageRequester("File not found", " File " + Chr(34) + "Scintilla.dll" + Chr(34) + " not ...

One more question.
How syncronize scroll in two ScintillaGadget?

Thank you

Fluid Byte
thank you