PureBasic Forums - English

Hello

Part 1

1) I have base this code https://www.purebasic.fr/english/viewtopic.php?p=585471#p585471

2) I have add code to return patch co cmd

Command.s = ProgramParameter() ; e.g.: "SET varname="

If Result

Path$ = Space(#MAX_PATH) ;Create a buffer to receive the string as a result ...

Olli

Hello

1) I copy-paste this code and make Notepad.exe file

Count = CountProgramParameters()
If Count
param$ = ""
For i = 0 To Count - 1
param$ + ProgramParameter(i) + " "
Next
param$ = Left(param$, Len(param$) - 1)
EndIf

2) I copy Notepad.exe file in folder

C:\Windows\System32
C ...

Count = CountProgramParameters()
If Count
param$ = ""
For i = 0 To Count - 1
param$ + ProgramParameter(i) + " "
Next
param$ = Left(param$, Len(param$) - 1)
EndIf


Hello

I very excusme, please, write full code, i copy-past and tested code

I do not telepat

Thank You!

Change in the registry
notepad.exe %1
on the
notepad.exe "%1"


Hello

Excuse me, please

I respect your work, your help to me

But when I had this idea - I fundamentally do not change the registry, I do not want any associations and other things, only by means of PureBasic

So there is no way to ...

Permission to use ingenuity.
Filename$ = "C:\Program Files\AkelPadPortable\AkelPad.exe"
#q$ = Chr(34)
Count = CountProgramParameters()
If Count
param$ = ProgramParameter(0)
If FileSize(param$) > 0
MessageRequester("1", "|" + param$ + "|")
RunProgram(Filename$, #q$ + param$ + #q$, GetPathPart ...

Filename$ = "C:\Program Files\AkelPadPortable\AkelPad.exe"
#q$ = Chr(34)
Count = CountProgramParameters()
If Count
param$ = ProgramParameter(0)
If FileSize(param$) > 0
RunProgram(Filename$, #q$ + param$ + #q$, GetPathPart(param$))
Else
RunProgram(Filename$, param$, GetPathPart(Filename ...

Filename$ = "C:\Program Files\AkelPadPortable\AkelPad.exe"
Count = CountProgramParameters()
If Count
param$=ProgramParameter(0)
If FileSize(param$) > 0
RunProgram(Filename$, param$, GetPathPart(param$))
Else
RunProgram(Filename$, param$, GetPathPart(Filename$))
EndIf
Else
RunProgram ...

RunProgram(Filename$, param$, "")


Hello

1) I create 1.exe file on PureBasic 4.20 (Windows - x86)

Filename$ = "C:\Program Files\AkelPadPortable\AkelPad.exe"
RunProgram(Filename$, param$, "")

2) I rename 1.exe in notepad.exe

3) I copy notepad.exe file in directory

C:\Windows\notepad.exe ...

Doesn't Windows (the OS) just replace the Notepad.exe file for not being the original? As part of its security.


Hello

1) Excusme, my question - how write exe file on PureBasic, such as

"C:\Program Files\AkelPadPortable\AkelPad.exe", $CmdLineRaw

2) My broken-example code on PureBasic ...

Don't copy akelpad.exe by renaming it : just change the shortcut system. If anybody clicks on a *.txt file, akelpad.exe is executed from its original path.

Hello

No, No

I have hint - replace original file to mod file

In default i open txt file - txt files open on AkelPad (withOUT change in ...

Hello

1) I have make modifidied notepad.exe file

2) I deleted original notepad.exe file in directory

C:\Windows\notepad.exe
C:\Windows\System32\notepad.exe
C:\Windows\SysWOW64\notepad.exe

3) I copy modifidied notepad.exe file in directory

C:\Windows\notepad.exe
C:\Windows\System32\notepad.exe
C ...

mk-soft
netmaestro

I have code, if i run program, monitor is off

If I move the mouse or press the buttons on the mouse, the monitor will NOT turn on

If I press any buttons on the keyboard, the monitor will NOT turn on

If I press the ESC button twice on the keyboard, the monitor will turn on ...

mk-soft
BarryG

Hello

Please, give me work code

I compile your code and run exe file

I write, work or not

Thank You!

Hello

On Microsoft Windows 7 Professional Service Pack 1 code work perfectly - after run code, monitor is off, if i click any button on keyboard - monitor is on, in tray i see icon

#PHYSICAL_MONITOR_DESCRIPTION_SIZE = 128

Structure PHYSICAL_MONITOR
hPhysicalMonitor.i ...

breeze4me

Hello

Excellent!

https://cloclo55.cloud.mail.ru/weblink/view/JYKj/pEf7RQ3n5

On the right, the panel File type, scroll bar on the right - do not jumps up and down

Folder Windows and System32

Also see video - on the right, the panel File type, scroll bar on the right - do not jumps ...