Cheat Engine

[Lorrenzo]

Ok, so I've been bored and wanting to learn some Delphi..

I created this program, which really does nothing..its just for my own fun~



Anyways, I got some of the buttons to work, but need help with others..

This is basically a program to launch my things,(Yes I have desktop icons)

I've marked all the ones I got working with a Green Dot..



And I would like some help on how to get the others working..

I would also like to learn how to create a pop-up 'about' box..

All help welcome~

Thanks in advance~

-Lorrenzo

[appalsap]

post source code

[Lorrenzo]

There, not much..prolly will need a fix or 2

[appalsap]

Hardcoding to C:\. Bad.

Use SHGetFolderPath to get the paths to program files, my documents, my pictures etc via class IDs. To get to the root (in your case c:\, in my case d:\) use PathStripToRoot. To check whether programs like AOL or photoshop are installed and where they're installed, use the registry (where add/remove programs stores the information)

[oib111]

Um, whats so hard about using shellexecute again? And to make an about form come up. Make a new form and design it then. Then double click on the about button and put this code.

[Lorrenzo]

[UnLmtD]

You may want to use CreateProcess() instead of ShellExecute() to open your programs, if that's what your doing right now.

[Symbol]

on some computers photo shop directory is diffrent/doesnt exist...
so use a batch file and put photo shop on the same folder or another and do in the batch file:
move photoshopfoldername: c:\Docume~1\%username%\desktop
i dont really remember the move command im not sure its like that...
u can also do the same with shell execute... its easier...

paint = MSPaint?

ShellExecute(Handle, 'open', 'C:\Windows\System32\MSPaint.exe', nil, nil, SW_SHOWNORMAL);

notepad:

ShellExecute(Handle, 'open', 'C:\Windows\System32\Notepad.exe', nil, nil, SW_SHOWNORMAL);

My Documents:

i dont know on delphi... i know with command prompt:
start C:\Docume~1\%username%\desktop\Mydocu~1\

and u can use shell execute on that batch file...

maple:

ShellExecute(Handle, 'open', 'C:\Program Files\Nexon\MapleStory\MapleStory.exe', nil, nil, SW_SHOWNORMAL);

(might be wizet for old maple users... =\ i think...)


c: lol O_o

ShellExecute(Handle, 'open', 'C:\', nil, nil, SW_SHOWNORMAL);

internet?

ShellExecute(Handle, 'open', 'http://?????', nil, nil, SW_SHOWNORMAL);


delphi if i remember..:
ShellExecute(Handle, 'open', 'C:\Program Files\Borland\Delphi7\Delphi7\Delphi 7.exe', nil, nil, SW_SHOWNORMAL);

[UnLmtD]

Symbol, did you even read what appalsap wrote? And stop using ShellExecute to open programs. And after, you all say "I'm here to learn" you don't even take in consideration what other people said.

[Symbol]

no i havent read O_o
now i did... =\
i dont even know what she means im new at delphi

[UnLmtD]

In appalsap post you can find 2 functions: PathStripToRoot and SHGetFolderPath. Now there's this cool site called MSDN So you go there's, and there's a search box on the top left, you search those functions there. You will end up with a page that will explain to you what that function does.

Example are in C, and since you may not understand C, you go to google and search for example "PathStripToRoot delphi" Or something like that, and well look at examples and that's how you learn.

[Symbol]

already searched SHGetFolderPath delphi =)
reading now

[Lorrenzo]

[oib111]

Guys, it really doesnt matter. Cuz this is a launcher for him, not us. He should know his file paths. If he doesn't he should figure them out, it really isn't that hard.

[UnLmtD]