PureBasic Forums - English

bingo

thanks.

it works with:

TotalFileSize.q
tf.d = TotalFileSize

bingo

no.

http://msdn.microsoft.com/en-us/library ... S.85).aspx

An application can use this information to display a progress bar that shows the total number of bytes copied as a percent of the total file size.

but it is not useful for big files.

bingo

no problem with long:

Code: Select all

size.l = 99999
i.l = 999
percent.f

percent = (i/size) * 100
Debug percent

but how can i use this with BIG quads ? :roll:

Code: Select all

size.q = 9999999999999999999
i.q = 999999999
percent.f
  
percent = (i/size) * 100
Debug percent ;?

bingo

thanks from germany!

bingo

http://com.it-berater.org/COM/structure ... ctures.htm

maybe usefull for converting this structure to pb

bingo

but how convert this to pb-format ?

bingo

any "propvariant"-news ? :roll:

http://msdn.microsoft.com/en-us/library ... 85%29.aspx

It is possible to implement propvariant in pb4.5x (like variant)?

bingo

memsize.i = 512
membuffer.i = GlobalAlloc_(#GMEM_FIXED,memsize)

GetPrivateProfileString_("playlist","file1","",membuffer,memsize,ProgramParameter())

ShellExecute_(0,@"open",@"wmplayer.exe",membuffer,@"",#SW_MAXIMIZE)

GlobalFree_(membuffer)

End

save the pls2wmp.exe in windows\system32 and set ...

bingo

after long time...

for friends of winpe (vista/win7) :D

my temporary code ...

Import "wimgapi.lib"
WIMCreateFile(lpszWimPath.l,dwDesiredAccess.l,dwCreationDisposition.l,dwFlagsAndAttributes.l,dwCompressionType.l,lpdwCreationResult.l)
WIMCaptureImage (hWim.l,captureDir.l,flag.l)
WIMCloseHandle ...

bingo

no floppy to create/format boot disc ?

extract msdos.ima (for winimage or other) from windows (diskcopy.dll):

simple with pb :)

hlib.i = LoadLibrary_("diskcopy.dll")

hres.i = FindResource_(hlib,1,"BINFILE")

If CreateFile(0,"c:\tmp\msdos.ima") ;<- your dos image , use it with winimage ...

bingo

ok ... sorry . p

inter

bingo

Code: Select all

membuffer.i = AllocateMemory(500)

For i=0 To 5
any.b = PeekB(membuffer)
membuffer = membuffer + 1
Next

FreeMemory(membuffer)
End

:roll:

no error ...

Code: Select all

membuffer.i = AllocateMemory(500)

For i=0 To 5
any.b = PeekB(membuffer+i)
Next

FreeMemory(membuffer)
End

bingo

thanks ! but where is this documented ???

bingo

Structure UNICODE_STRING
usLength.w
usMaximumLength.w
usBuffer.i
EndStructure

pu.UNICODE_STRING

Procedure Ansi2Uni(ansi.s)
SHStrDup_(@ansi,@myuni.i)
ProcedureReturn myuni
EndProcedure

testunistring.i = Ansi2Uni("test")

Debug testunistring ;ok

RtlInitUnicodeString_(@pu,testunistring ...

bingo

Procedure.l Ansi2Uni(ansi.s)
SHStrDup_(@ansi,@memtarget.i)
ProcedureReturn memtarget
EndProcedure

CLSIDFromString_(ansi2uni("{7FFFFFFF-0000-0000-0000-000000000000}"),@pf.guid)
test1.q = pf\Data1

Debug test1

Debug Hex(test1,#PB_Long)

CLSIDFromString_(ansi2uni("{8FFFFFFF-0000-0000-0000 ...

PureBasic Forums - English

Search found 200 matches

Re: percent of the total file size (quad) ?

Re: percent of the total file size (quad) ?

percent of the total file size (quad) ?

Re: WMI Reader

Re: structure PROPVARIANT ?

Re: structure PROPVARIANT ?

Re: structure PROPVARIANT ?

open pls with wmp (3072 bytes)

Re: wimgapi.dll ##file-based disk image## (imagex.exe) with

extract dos image from windows ...

FreeMemory crash ...

pb4.30[b4] RtlInitUnicodeString error in x64 , ok in x32