如何制作重启EXPLORER按钮？

Question

如何制作重启EXPLORER按钮？

Answer 1

没有看懂问题。不过Explore重启，貌似系统也

Answer 2

啥意思，直接执行explorer命令

Answer 3

就是鼠标点一下按钮可以结束并重启explorer.exe，用Delphi怎么写？

Answer 4

terminateprocess
createprocess……

Answer 5

还能怎么具体……结束explorer进程，然后创建一个explorer进程，你不会连这种代码都不会写吧……

Answer 6

直接查一下4楼的两个API，基本上就可以了

Answer 7

分太少的原因。因为虽然你的贴子给了50分，但结贴时系统会返还你25分，而且你发贴还可以得到10分奖励，因此，实际你的贴子只付出15分。一般没有100分以上的贴子，我基本上都只帮忙顶顶贴子算了，100分的贴子实际发贴者只付出了40分。论坛积分规则：http://community.csdn.net/help/GetUsablePoint.htm

Answer 8

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,TLHelp32;type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    procedure EndProcess(ProcessName: string);
  public
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var 
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
   //   初始化工作
   FillChar(StartupInfo,Sizeof(StartupInfo),#0);
   StartupInfo.cb   :=   Sizeof(StartupInfo);
   StartupInfo.dwFlags   :=   STARTF_USESHOWWINDOW;
   CreateProcess(nil, 'EXPLORER.exe ', nil,  nil, false, CREATE_NEW_CONSOLE   or
                NORMAL_PRIORITY_CLASS, nil,nil,StartupInfo,ProcessInfo);end;procedure TForm1.EndProcess(ProcessName: string);
const
  PROCESS_TERMINATE=$0001;
var
  ExeFileName: String;
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  ExeFileName := ProcessName;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
           UpperCase(ExeFileName))
       or (UpperCase(FProcessEntry32.szExeFile) =
           UpperCase(ExeFileName))) then
        TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                          FProcessEntry32.th32ProcessID), 0);
      ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
    end;
end;procedure TForm1.btn2Click(Sender: TObject);
begin
  EndProcess('EXPLORER.exe');
end;end.

Answer 9

dmf文件object Form1: TForm1
  Left = 238
  Top = 179
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 131
    Top = 510
    Width = 75
    Height = 25
    Caption = '开启'
    TabOrder = 0
    OnClick = btn1Click
  end
  object btn2: TButton
    Left = 261
    Top = 504
    Width = 75
    Height = 25
    Caption = '结束'
    TabOrder = 1
    OnClick = btn2Click
  end
end

Answer 10

@echo off
taskkill /f /im explorer.exe
start explorer.exe
exit
bat文件