درخواست یه کد که اینترنت اکسپلورر رو ببنده.

[s.hidden]

سلام.
بازم ازتون کمک میخوام.
چطوری نرم افزارم برنامه ی Internet Explorer رو شناسایی کنه و اونو ببنده؟؟
اگه سورس کد هم بدید ممنون میشم.
Thanks A Lot

[TCG]

من سرعتم خیلی پایینه وگرنه برات مینوشتم و ایمیل میکردم.
کدها رو کپی پیست میکنم ببین چیزی متوجه میشی؟

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, mmsystem, StdCtrls, ExtCtrls,Registry,
XPMan, ComCtrls, Buttons, Tlhelp32;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
GroupBox1: TGroupBox;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
CV:BOOLEAN;
implementation
var
myString : String;
buff : array[0..MAX_COMPUTERNAME_LENGTH] of char;
nsize : DWORD;
rc : hwnd;
DTM: Tregistry;
plp : tpoint ;
wnd : longint;
buf : pansichar;
result : integer;
{$R *.dfm}

function EndTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EndTask('IEXPLORE.exe');
end;

end.

[Bill Gates]

سلام
endtask واسه اینترنت اکسپلورر 7 و 6 باهم یکی هستش؟ یا در ویستا و اکس پی؟

[TCG]

اینترنت اکسپلورر 6 و 7 یکیه. ولی ویست رو نمیدونم.
ببین توی یک سری XP ها اینتر نت اکسپلورر بصورت IEXPLORER.EXE هست و توی یک سری IEXPLORE.EXE
هردوشو توی دو خط متفاوت بزنی جواب میده:
EndTask('IEXPLORE.exe');
EndTask('IEXPLORER.exe');

[s.hidden]

دستتون درد نکنه.

[Bill Gates]

مرسی بخاطر اطلاعات خوبتون

تشکر//