ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽCｿｽ`ｿｽｿｽ 2004/12/03(ｿｽｿｽ) 12:57:07

ShellExecuteｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽｿｽqｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌ終ｿｽｿｽｿｽｿｽmｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈ前ｿｽｿｽｿｽｿｽACreateProcessｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驛具ｿｽ[ｿｽ`ｿｽｿｽｿｽﾍ紹介さｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽiｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟ）ｿｽACreateProcessｿｽﾍ使ｿｽｿｽｿｽｿｽ
ShellExecuteｿｽﾅ起ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽqｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌ起ｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽqｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌ終ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾄ親ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂ趣ｿｽｿｽｿｽﾔにゑｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽiｿｽﾇゑｿｽｿｽ轤ｩｿｽﾐ包ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾔ）

ｿｽﾈ会ｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅは子ｿｽvｿｽｿｽｿｽZｿｽXｿｽﾌ起ｿｽｿｽｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾟゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽShellExecuteｿｽﾌ戻ゑｿｽlｿｽｿｽ謫ｾｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾇなゑｿｽｿｽｿｽｿｽmｿｽbｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

procedure TMastMenu.SpeedButton1Click(Sender: TObject);
var
   s        : string;
   ProgName : PChar;
   handle   : THandle;
   tpi      : TProcessInformation;
begin
   s := 'C:¥abcｿｽﾖのシｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽg.lnk';
   ProgName := PChar(sWorks);

   //ｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽ
   Handle := ShellExecute(Application.MainForm.Handle, nil,ProgName, nil, nil,SW_SHOW);
   tpi.hProcess := handle;

   //ｿｽvｿｽｿｽｿｽZｿｽXｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽﾒゑｿｽ
   while WaitForSingleObject(tpi.hProcess, INFINITE) = WAIT_TIMEOUT do
   begin
      Application.ProcessMessages;
      Self.Visible := false;
   end; 

   Self.Visible := true;
end;

ｿｽｿｽｿｽｿｽ 2004/12/03(ｿｽｿｽ) 17:48:34

GetExitCodeProcessｿｽｿｽStillActiveｿｽﾌ間待ゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽH

ｿｽ閧ｨｿｽ閧ｨ 2004/12/03(ｿｽｿｽ) 18:06:02

ｿｽｿｽｿｽｿｽAShellExecute ｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽZｿｽXｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽfｿｽｿｽｿｽﾉ、ｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽﾈとゑｿｽｿｽﾍ、ｿｽｿｽｿｽsｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ CreateProcess ｿｽｿｽ
ｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

Fusa 2004/12/03(ｿｽｿｽ) 21:21:23

ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ

ｿｽｿｽｿｽｿｽﾈのゑｿｽ
ｿｽVｿｽｿｽｿｽ[ｿｽgｿｽJｿｽbｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ趣ｿｽｿｽsｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ
CreateProcessｿｽｿｽﾄびまゑｿｽｿｽ蛯､ｿｽB

type
  TShowCommand = (scNormalWindow, scMinimize, scMaxmize, scUnknown);

  TShortcurFile = class(TObject)
  private
    ShellLink:IShellLink;
    PersistFile:IPersistFile;
    FilePath:array[0..MAX_PATH] of char;
    WorkDir:array[0..MAX_PATH] of char ;
    wsz:Array[0..MAX_PATH] of WideChar;
    pwHotKey:Word;
    pShowCmd:integer;
    pfd:TWin32FindData;

    FSourceFileName: TFileName;
    FFileName: TFileName;
    FShowCommand: TShowCommand;
    FHotKey: Word;
  protected
  public
    constructor Create(FileLink: TFileName);
    destructor Destroy; override;
  published
    property FileName: TFileName read FFileName;
    property SourceFileName: TFileName read FSourceFileName;
    property HotKey: Word read FHotKey;
    property ShowCommand: TShowCommand read FShowCommand;
  end;

{ TShortcurFile }

constructor TShortcurFile.Create(FileLink: TFileName);
begin
  if not FileExists(ChangeFileExt(FileLink,'.lnk')) then
    raise Exception.Create('ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽｿｽ');

  inherited Create;

  ShellLink := CreateComObject(CLSID_ShellLink) As IShellLink;
  try
      OleCheck(ShellLink.QueryInterface(IPersistFile,PersistFile));
      Assert(Assigned(PersistFile));
      MultiByteToWideChar(CP_ACP,0,PChar(FileLink),-1,wsz,MAX_PATH);
      OleCheck(PersistFile.Load(wsz,0));

      OleCheck(ShellLink.GetPath(FilePath,MAX_PATH,pfd,SLGP_SHORTPATH));
      FFileName := FilePath;

      OleCheck(ShellLink.GetWorkingDirectory(WorkDir,MAX_PATH));
      FSourceFileName := WorkDir;

      OleCheck(ShellLink.GetHotKey(pwHotkey));
      FHotKey := pwHotKey;

      OleCheck(ShellLink.GetShowCmd(pShowCmd));
      case pShowCmd of
        1: FShowCommand := scNormalWindow;
        7: FShowCommand := scMinimize;
        3: FShowCommand := scMaxmize;
      else
        FShowCommand := scUnknown;
      end;

  except on EOleSysError do
    raise Exception.Create('OLEｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ');
  end;
end;

n 2004/12/16(ｿｽｿｽ) 04:53:35

ShellExecuteｿｽﾅの終ｿｽｿｽｿｽﾒゑｿｽｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ShellExecuteExｿｽｿｽWaitForSingleObjectｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB

ｿｽﾕりお 2005/01/05(ｿｽｿｽ) 17:50:48

ｿｽﾈ会ｿｽｿｽﾍボｿｽ^ｿｽｿｽｿｽiButton1ｿｽjｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾜで待機ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽQｿｽlｿｽﾉなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH


procedure TForm1.Button1Click( Sender: TObject);
var
  SXInfo: TShellExecuteInfo;
begin
  with SXInfo do//TShellExecuteInfoｿｽ¥ｿｽｿｽｿｽﾌの擾ｿｽｿｽｿｽｿｽｿｽ
  begin
    cbSize := SizeOf( SXInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS;//ｿｽｿｽｿｽ黷ｪｿｽﾈゑｿｽｿｽﾆ終ｿｽｿｽｿｽﾒゑｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽ
    Wnd := Application.Handle;
    lpVerb := 'open';
    lpFile := PChar( 'notepad.exe');
    lpParameters := Nil;
    lpDirectory := Nil;
    nShow := SW_SHOW;
  end;

  ShellExecuteEx( @SXInfo);
  Button1.Enabled := False;//ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆまゑｿｽｿｽｿｽｿｽﾌゑｿｽ...

  //ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌ終ｿｽｿｽｿｽﾒゑｿｽ
  while WaitForSingleObject( SXInfo.hProcess, 0) = WAIT_TIMEOUT do
    Application.ProcessMessages;

  ShowMessage( 'ｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽI');
  Button1.Enabled := True;
end;

ｿｽｿｽｿｽｿｽhttp://www.asahi-net.or.jp/‾GV4J-SGUR/narik/stp001.htm#SHGetSpecialFolderLocationｿｽﾅゑｿｽｿｽB

Created by board of various Programming Library.