Create EXE?

sharkbate24 · Post by **sharkbate24** » Thu Oct 30, 2008 6:26 pm

Hello everyone,

I want to have a go at making an Update Patcher, where the user can create patches for his program / game. I want to know how I can go abouts creating an EXE file from a program I create, after the user presses a button?

Thanks everyone.

ts-soft · Post by **ts-soft** » Thu Oct 30, 2008 6:47 pm

Code: Select all

OpenWindow(0, #PB_Ignore, #PB_Ignore, 100, 50, "PatchCreater", #PB_Window_SystemMenu)
CreateGadgetlist(WindowID(0))
ButtonGadget(0, 10, 10, 80, 30, "create")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow : Break
    Case #PB_Event_Gadget
      If EventGadget() = 0
        If CreateFile(0, "Patcher.exe")
          For i = 0 To 1000
            WriteLong(0, Random(999999))
          Next
          CloseFile(0)
          MessageRequester("PatchCreater", "Patch successfull created")
          End
        EndIf
      EndIf
  EndSelect
ForEver

Kaeru Gaman · Post by **Kaeru Gaman** » Thu Oct 30, 2008 6:49 pm

@ts

I thought tomorrow was All Hallows Eve, not April Foolz...

DoubleDutch · Post by **DoubleDutch** » Thu Oct 30, 2008 10:14 pm

sharkbate24:
I think this may solve the problem:
http://kobik.net/codefusion.asp

Rook Zimbabwe · Post by **Rook Zimbabwe** » Fri Oct 31, 2008 4:16 am

Kaeru Gaman wrote:@ts

I thought tomorrow was All Hallows Eve, not April Foolz...

Not true... if he runs that code enough times... one time he will have FALLOUT 3 the complete version...

It may take a while what with the randomness and all...

DoubleDutch · Post by **DoubleDutch** » Fri Oct 31, 2008 9:46 am

Sorry Rook, your wrong...

Fallout3 will be larger than 4KB

(plus a larger random number [-1?] would be needed)

Joakim Christiansen · Post by **Joakim Christiansen** » Fri Oct 31, 2008 2:56 pm

Well, he probably want to include a exe and then extract it...
Like this:

Code: Select all

DataSection
  ExeFile: IncludeBinary "whatever.exe"
  DataEnd:
EndDataSection 

If CreateFile(0,"whatever.exe")
  WriteData(0,?ExeFile,?DataEnd-?ExeFile)
  CloseFile(0)
EndIf

DoubleDutch · Post by **DoubleDutch** » Fri Oct 31, 2008 3:17 pm

After re-reading the first post I think your right - I though he wanted a system that could create the patch files (in which case http://kobik.net/codefusion.asp would do the job).

rsts · Post by **rsts** » Fri Oct 31, 2008 3:38 pm

Based on the announcement, that seems to be correct.

sharkbate24 · Post by **sharkbate24** » Fri Oct 31, 2008 5:32 pm

rsts wrote:Based on the announcement, that seems to be correct.

Yeah, basically I did it another way, rather than create an EXE. I'd like to know how to create an exe with the users input though, but I guess it would be hard?

Thanks.

Rook Zimbabwe · Post by **Rook Zimbabwe** » Fri Oct 31, 2008 8:36 pm

OK 1 clue... LINKERs.

One way to make a program run in the old days was to use a LINKER at the end... OK my swiss cheese brain may be miscalling it but most BASIC compilers back in the day only had a small startup piece and then the basic code and then the tiny linker/COM runner at the end to run it!

If I am remembering correctly!