Get Current Application Name [Inline ASM]

[Mr52]

;Thanks to mjrod5 for Fasm Example
;Mr52
Procedure GetSelfName()
!MOV eax, [fs:0x30]
!MOV eax, [eax+0x0C]
!MOV eax, [eax+0x14]
!MOV ecx, [eax+0x24] ;Length
!MOV eax, [eax+0x28] ;Buffer(Unicode btw)
ProcedureReturn
EndProcedure

It returns the Application Name like in VB App.Exename

it doesnt return the Path

[ts-soft]

thx,
easier to use:

Code: Select all

Procedure _GetSelfName()
  !MOV eax, [fs:0x30]
  !MOV eax, [eax+0x0C]
  !MOV eax, [eax+0x14]
  !MOV ecx, [eax+0x24] ;Length
  !MOV eax, [eax+0x28] ;Buffer(Unicode btw)
  ProcedureReturn
EndProcedure

Procedure.s GetSelfName()
  ProcedureReturn PeekS(_GetSelfName(), -1, #PB_Unicode)
EndProcedure

Debug GetSelfName()

[Mr52]

whats the difference between mine and urs ?

[ts-soft]

It returns the string in the right format and not only a pointer to a unicode buffer

[luis]

Am I missing something ?

Code: Select all

Debug GetFilePart(ProgramFilename())

We can do natively already.

But thanx for the asm example anyway

[Nituvious]

That's very cool. Thanks for sharing, love to see ASM code to learn from!

[Mr52]

oh @ts-soft thanks got it

[ar-s]

Interesting code thanks.

The native PB command is still faster for me.
Is that a normal thing ?

Code: Select all

	Procedure _GetSelfName() 
    !MOV eax, [fs:0x30] 
    !MOV eax, [eax+0x0C] 
    !MOV eax, [eax+0x14] 
    !MOV ecx, [eax+0x24] ;Length 
    !MOV eax, [eax+0x28] ;Buffer(Unicode btw) 
    ProcedureReturn 
  EndProcedure 
  
  
  t=ElapsedMilliseconds()
  mot$=""
  For i = 1 To 10000
    mot$+PeekS(_GetSelfName(), -1, #PB_Unicode)
  Next i
  
  temps = ElapsedMilliseconds()-t
  MessageRequester("t","ASM : "+Str(temps))
    
  
  
  t=ElapsedMilliseconds()
  mot$=""
  For i = 1 To 10000
    mot$+GetFilePart(ProgramFilename())
  Next i
  
  temps = ElapsedMilliseconds()-t
  MessageRequester("t","PB : "+Str(temps))

[luis]

@ar-s

With your code you are timing the string concatenation routines of PB, not the execution time of the two functions

When you do benchmarks, you must pay attention to any possible overhead you are introducing with your test code.
In your case it's all overhead. Change the mot$+ with mot$= to confirm that.

Anyway, how many times do you have to ask for that kind of info in your program ? Probably one.

So one millisecond or 100 milliseconds I would say it's not much important.

[em_uk]

Code: Select all

Procedure _GetSelfName()
  !MOV eax, [fs:0x30]
  !MOV eax, [eax+0x0C]
  !MOV eax, [eax+0x14]
  !MOV ecx, [eax+0x24] ;Length
  !MOV eax, [eax+0x28] ;Buffer(Unicode btw)
  ProcedureReturn
EndProcedure


t=ElapsedMilliseconds()
mot$=""
For i = 1 To 10000
  mot$=PeekS(_GetSelfName(), -1, #PB_Unicode)
Next i

Debug mot$

temps = ElapsedMilliseconds()-t
MessageRequester("t","ASM : "+Str(temps))



t=ElapsedMilliseconds()
mot$=""
For i = 1 To 10000
  mot$=GetFilePart(ProgramFilename())
Next i

Debug mot$

temps = ElapsedMilliseconds()-t
MessageRequester("t","PB : "+Str(temps))

Completes instantly on my machine. Both results 0.