Newbie Spellweaver
- Joined
- Apr 6, 2008
- Messages
- 95
- Reaction score
- 0
we need this things
client.rar (( this is the V53 localhost already modded so it doesnt have the GMS launcher, can drop cash, no DMG cap and can drop mora than 50k mesos // if you dont want it , any other local host without GMS launcher works))
you can use this button
![gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7 "gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums")
and boreland delphi
ok------
lets prepare the client.exe
you should kno whow to hex it so just change the IP
the actual IP there is 5.195.198.230 search for that and change it to yours
first make a form
(( sorry not for noobish people , you need to know how to use boreland delphi to follow this tutorial ))
and add there a web browser and speedbuttons
Use speed buttons so you can change the glyph and make pretty buttons like mines
for the buttons you can use photoshop or whatever you want , and then use paint to convert them to .bmp
ok the code
first the settings:
very important
on the declaration of uses you need to add
now click on the form and select the events tab
you are going to use on create so double click it and then in there write the following
we are going to use some registers and external programs
thats why we had to add shellappi
on your play speed button you are going to add this
//this code is thanks to the Cheat engine MS execute xP
you can change the name of the client.exe to the name of your server but you have to change your file and the code
and remember to change the IP to yours.
--------------------------------------------------
thats all , compile it and all is right
remember you can add as much web browsers and as much speed buttons as you want
also in mine I added a 2 form to pop up when you click skills...xxx button so the 2 form shows you what skills DC on my maple xP
also you can change the page of your browser with the buttons with the same code
this is an example
well thats all and you should get something like this
client.rar (( this is the V53 localhost already modded so it doesnt have the GMS launcher, can drop cash, no DMG cap and can drop mora than 50k mesos // if you dont want it , any other local host without GMS launcher works))
You must be registered to see links
you can use this button
![gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums](http://i238.photobucket.com/albums/ff56/KisKAs/Button.jpg "gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums")
You must be registered to see links
and boreland delphi
ok------
lets prepare the client.exe
you should kno whow to hex it so just change the IP
the actual IP there is 5.195.198.230 search for that and change it to yours
first make a form
(( sorry not for noobish people , you need to know how to use boreland delphi to follow this tutorial ))
and add there a web browser and speedbuttons
Use speed buttons so you can change the glyph and make pretty buttons like mines
for the buttons you can use photoshop or whatever you want , and then use paint to convert them to .bmp
ok the code
first the settings:
very important
on the declaration of uses you need to add
Code:
ShellAPIyou are going to use on create so double click it and then in there write the following
Code:
Webbrowser1.Navigate('your start page here');thats why we had to add shellappi
on your play speed button you are going to add this
Code:
dwType := REG_SZ;
dwSize := 255;
RecvBuf := StrAlloc(MAX_PATH);
if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Wizet\MapleStory', 0, KEY_READ, mKey) <> ERROR_SUCCESS) then begin
ShowMessage('ERROR! OS Reports ' + IntToStr(GetLastError()));
end;
if (RegQueryValueEx(mKey, 'ExecPath', nil, @dwType, pbyte(RecvBuf), @dwSize) <> ERROR_SUCCESS) then begin
ShowMessage('ERROR! OS Reports ' + IntToStr(GetLastError()));
end;
if (RegCloseKey(mKey) <> ERROR_SUCCESS) then begin
ShowMessage('ERROR! OS Reports ' + IntToStr(GetLastError()));
end;
lstrcat(RecvBuf, '\[B]client.exe[/B]');
ShellExecute(Cardinal(nil), 'open', RecvBuf,'[B]5.195.198.230[/B] 8484', nil, SW_RESTORE);
StrDispose(RecvBuf);
Application.Terminate;you can change the name of the client.exe to the name of your server but you have to change your file and the code
and remember to change the IP to yours.
--------------------------------------------------
thats all , compile it and all is right
remember you can add as much web browsers and as much speed buttons as you want
also in mine I added a 2 form to pop up when you click skills...xxx button so the 2 form shows you what skills DC on my maple xP
also you can change the page of your browser with the buttons with the same code
this is an example
Code:
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://5.195.198.230/start.php');
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://5.195.198.230/ranking.php');
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://5.195.198.230/register.php');
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://5.195.198.230/GMlist.html');
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
Form2.show
end;![gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums](https://forum.ragezone.com/images/404_image.png "gogodr - [Tut] How to make a launcher With Boreland Delphi - RaGEZONE Forums")
