| View previous topic :: View next topic |
| Author |
Message |
glassen
Advanced Cheater
![]() Reputation: 0
Joined: 17 Nov 2006
Posts: 53
|
 Posted: Mon Nov 12, 2007 12:49 am Post subject: Open Process |
 |
|
how do i make this auto open exampel MapleStory.exe when it popup?
| Code: |
var i:integer;
begin
val('$'+listbox1.items[listbox1.ItemIndex],processid,i);
Open_Process;
close;
|
_________________
... |
|
| Back to top |
|
 |
slippppppppp
Grandmaster Cheater
 Reputation: 0
Joined: 08 Aug 2006
Posts: 929
|
| Posted: Mon Nov 12, 2007 1:12 am Post subject: |
|
|
| explain more specifically what you need help on and i might be able to help.
|
|
| Back to top |
|
|
glassen
Advanced Cheater
![]() Reputation: 0
Joined: 17 Nov 2006
Posts: 53
|
| Posted: Mon Nov 12, 2007 1:35 am Post subject: |
|
|
if process "MapleStory.exe' then it should attatch MapleStory.exe
idk what it should be = if string 'Maplestory.exe exist
'$'+listbox1.items = should be Maplestory.exe address i think
but i dont thing i can write "'$'+Maplestory.exe" -.-
| Code: |
if listbox1. idk what it should be = 'MapleStory.exe' then
val('$'+listbox1.items[listbox1.ItemIndex],processid,i); // << Open Process MapleStory.exe
Open_Process;
|
_________________
... |
|
| Back to top |
|
|
Acim
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 04 Jun 2007
Posts: 1948
Location: If anyone has a GMS DK and they don't need it I'll have it!!
|
| Posted: Mon Nov 12, 2007 7:33 am Post subject: |
|
|
What language is this?
_________________
I'm alive and well, but I quit CEF for a while. Legitly playing since Novemberish 07. Starting hacking October 06. |
|
| Back to top |
|
|
Pseudo Xero
I post too much
![]() Reputation: 0
Joined: 16 Feb 2007
Posts: 2607
|
| Posted: Mon Nov 12, 2007 7:55 am Post subject: |
|
|
| glassen wrote: | if process "MapleStory.exe' then it should attatch MapleStory.exe
idk what it should be = if string 'Maplestory.exe exist
'$'+listbox1.items = should be Maplestory.exe address i think
but i dont thing i can write "'$'+Maplestory.exe" -.-
| Code: |
if listbox1. idk what it should be = 'MapleStory.exe' then
val('$'+listbox1.items[listbox1.ItemIndex],processid,i); // << Open Process MapleStory.exe
Open_Process;
|
|
What language are you using?
_________________
| haxory' wrote: | can't VB do anything??
windows is programmed using VB right? correct me if im wrong.
so all things in windows you have like the start menu is a windows form too. |
|
|
| Back to top |
|
|
Acim
Grandmaster Cheater Supreme
Reputation: 0
Joined: 04 Jun 2007
Posts: 1948
Location: If anyone has a GMS DK and they don't need it I'll have it!!
|
| Posted: Mon Nov 12, 2007 7:56 am Post subject: |
|
|
Yeah...looks like a combo of Delphi and C++... or C#, or C.
_________________
I'm alive and well, but I quit CEF for a while. Legitly playing since Novemberish 07. Starting hacking October 06. |
|
| Back to top |
|
|
the_undead
Expert Cheater
 Reputation: 1
Joined: 12 Nov 2006
Posts: 235
Location: Johannesburg, South Africa
|
| Posted: Mon Nov 12, 2007 8:20 am Post subject: |
|
|
@Acim: I'm guessing you know no C, or C++
_________________
|
|
| Back to top |
|
|
DeletedUser14087
I post too much
![]() Reputation: 2
Joined: 21 Jun 2006
Posts: 3069
|
| Posted: Mon Nov 12, 2007 8:36 am Post subject: |
|
|
| it's delphi, ListBox1.Items
|
|
| Back to top |
|
|
Acim
Grandmaster Cheater Supreme
Reputation: 0
Joined: 04 Jun 2007
Posts: 1948
Location: If anyone has a GMS DK and they don't need it I'll have it!!
|
|
| Back to top |
|
|
glassen
Advanced Cheater
![]() Reputation: 0
Joined: 17 Nov 2006
Posts: 53
|
| Posted: Mon Nov 12, 2007 9:28 am Post subject: |
|
|
still no help ...
and yea it is delphi
_________________
... |
|
| Back to top |
|
|
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Mon Nov 12, 2007 9:49 am Post subject: |
|
|
Im not really sure what you're trying to do, but I think something to execute something (ms in this context)
Use CreateProcess.
| Code: | type
TExecuteWaitEvent = procedure(const ProcessInfo: TProcessInformation;
var ATerminate: Boolean) of object; |
| Code: |
procedure ExecuteFile(const AFilename: String;
AParameter, ACurrentDir: String; AWait: Boolean;
AOnWaitProc: TExecuteWaitEvent=nil);
var
si: TStartupInfo;
pi: TProcessInformation;
bTerminate: Boolean;
begin
bTerminate := False;
if Length(ACurrentDir) = 0 then
ACurrentDir := ExtractFilePath(AFilename);
if AnsiLastChar(ACurrentDir) = '\' then
Delete(ACurrentDir, Length(ACurrentDir), 1);
FillChar(si, SizeOf(si), 0);
with si do begin
cb := SizeOf(si);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_NORMAL;
end;
FillChar(pi, SizeOf(pi), 0);
AParameter := Format('"%s" %s', [AFilename, TrimRight(AParameter)]);
if CreateProcess(Nil, PChar(AParameter), Nil, Nil, False,
CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS, Nil, PChar(ACurrentDir), si, pi) then
try
if AWait then
while WaitForSingleObject(pi.hProcess, 50) <> Wait_Object_0 do
begin
if Assigned(AOnWaitProc) then
begin
AOnWaitProc(pi, bTerminate);
if bTerminate then
TerminateProcess(pi.hProcess, Cardinal(-1));
end;
Application.ProcessMessages;
end;
finally
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);
end;
end; |
and of course to call it:
| Code: | | ExecuteFile('c:\windows\notepad.exe', '', '', false); |
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
