Cheat Engine :: View topic - alright, i got my project down but i have another error

Cheat Engine
The Official Site of Cheat Engine

FAQ

Memberlist

Usergroups

Profile

alright, i got my project down but i have another error

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

killar456
Master Cheater

Reputation: 0

Joined: 30 Mar 2007
Posts: 415

Posted: Thu Aug 23, 2007 6:06 pm Post subject: alright, i got my project down but i have another error

never mind i have droped this project Last edited by killar456 on Fri Aug 24, 2007 5:25 am; edited 1 time in total

TheSorc3r3r
I post too much

Reputation: 0

Joined: 06 Sep 2006
Posts: 2404

Posted: Thu Aug 23, 2007 7:01 pm Post subject:

declare it _________________ Don't laugh, I'm still learning photoshop!

hcavolsdsadgadsg
I'm a spammer

Reputation: 26

Joined: 11 Jun 2007
Posts: 5801

Posted: Thu Aug 23, 2007 7:14 pm Post subject:

It's different from every other one?

killar456
Master Cheater

Reputation: 0

Joined: 30 Mar 2007
Posts: 415

Posted: Thu Aug 23, 2007 8:06 pm Post subject:

TheSorc3r3r wrote:

declare it

uh..............declare it??????????? what u mean???

muffinman177
Master Cheater

Reputation: 0

Joined: 09 Dec 2006
Posts: 377
Location: Drury Lane

Posted: Thu Aug 23, 2007 8:24 pm Post subject:

You have to declare Shellapi for the ShellExecutes to work

killar456
Master Cheater

Reputation: 0

Joined: 30 Mar 2007
Posts: 415

Posted: Thu Aug 23, 2007 8:32 pm Post subject:

i droped delphi, its crap to learn lol, i used vb6 and it works for a couple porgrams.....im droping it

MadDoom
Cheater

Reputation: 0

Joined: 27 Dec 2006
Posts: 38

Posted: Fri Aug 24, 2007 3:18 am Post subject: Re: alright, i got my project down but i have another error

killar456 wrote:

i have my project, got a error tho, my code i found my paths

Code:

TForm1.Button1click(Sender: TObject);

says this is wrong on delphi
and i need help trying to figure it out been working on this for a bit....

Quote:

unit source;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
procedure Button1click(Sender: TObject);
procedure Button2click(Sender: TObject);
procedure Button3click(Sender: TObject);
procedure Button4click(Sender: TObject);
procedure Button5click(Sender: TObject);
procedure Button6click(Sender: TObject);
procedure Button7click(Sender: TObject);
procedure Button8click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Documents and Settings\Owner\My Documents\WoW-2.0.0-enUS-Installer\Installer.app\Contents\Daemons Ring-Gunz\theduel.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Documents and Settings\Owner\My Documents\WoW-2.0.0-enUS-Installer\Installer.app\Contents\Visual Basic 6 Portable', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Wolfenstein - Enemy Territory\et.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Gpotato\Flyff\Flyff.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Cheat Engine\Cheat Engine.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Mozilla Firefox\firefox.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\maplestory folder\MapleStory\MapleStory.exe', nil, nil, SW_SHOWNORMAL) ;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Internet Explorer\iexplorer.exe', nil, nil, SW_SHOWNORMAL) ;
end;

end

fixed your code here Very Happy

Last edited by MadDoom on Fri Aug 24, 2007 3:21 am; edited 1 time in total

ups2000ups
I post too much

Reputation: 0

Joined: 31 Jul 2006
Posts: 2471

Posted: Fri Aug 24, 2007 3:20 am Post subject:

add "Shellapi" to uses _________________ dont complain about my english... 1*1 = 2?

assaf84
Expert Cheater

Reputation: 0

Joined: 03 Oct 2006
Posts: 238

Posted: Fri Aug 24, 2007 3:21 am Post subject:

BTW, You need to add ShellAPI to your uses list.

MadDoom
Cheater

Reputation: 0

Joined: 27 Dec 2006
Posts: 38

Posted: Fri Aug 24, 2007 3:21 am Post subject:

oh ya, i forget. lol

killar456
Master Cheater

Reputation: 0

Joined: 30 Mar 2007
Posts: 415

Posted: Fri Aug 24, 2007 5:21 am Post subject:

oh ok

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours
Page 1 of 1

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum