小问题！带送分！先到先得，五分钟后结贴！

Question

1、怎样在一程序运行时打开另一外部程序，程序关闭时也关闭另一外部程序？2、怎样将一个字符串{包括中英文}中的中文字符串用中文拼音的第一个字母表示，而英文字符则不变地显示出来？

Answer 1

ShellExecute(handle, 'open', 'Your.exe', nil, nil, SW_SHOWNORMAL);
ShellExecute(handle, 'close', 'Your.exe', nil, nil, SW_SHOWNORMAL);

Answer 2

1.打开与关闭外部程序
 public
    ProcessInfo: TProcessInformation;
    { Public declarations }
  end;procedure TForm1.Button1Click(Sender: TObject);
var
  filename:string;
  StartupInfo: TStartupInfo;begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_SHOW;
  end;
  filename:='g:\project1.exe';
  createprocess(pchar(filename),nil,nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);end;procedure TForm1.Button2Click(Sender: TObject);
var
  ec:cardinal;
begin
  getexitcodeprocess(ProcessInfo.hProcess,ec);
  TerminateProcess(ProcessInfo.hProcess,ec);
end;

Answer 3

打开：
var
  PStartupInfo: TStartupInfo;
  aProcessInfo: TProcessInformation;
begin
      FillChar(PStartupInfo, SizeOf(PStartupInfo), 0);
      PStartupInfo.cb:=SizeOf(PStartupInfo);
      CreateProcess(nil,
      PChar(ServerPath+'SmartUpg.exe Y '+ Trim(UserRecord.UserID)+' '+tbUser.FieldByName('PASSWD').AsString),
      nil, nil, False, DETACHED_PROCESS, nil, nil, PStartupInfo, aProcessInfo);
      CloseHandle(aProcessInfo.hThread);
      CloseHandle(aProcessInfo.hProcess);
end;当主程序关闭，线程打开的程序也同时关闭

Answer 4

use shellapi;//程序运行时打开另一外部程序
procedure TForm1.FormCreate(Sender: TObject);
begin
  WinExec('notepad.exe',SW_SHOWMAXIMIZED);
end;//程序关闭时也关闭另一外部程序
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  h:THandle;
begin
  h:=findwindow(nil,'无标题 - 记事本');  //注意修改为自己的窗口标题
  if h <> 0 then  sendmessage(h,WM_CLOSE,0,0);
end;//2、怎样将一个字符串{包括中英文}中的中文字符串用中文拼音的第一个字母表示，而英文字符则不变地显示出来？
function GetHzPy(const AHzStr: string): string;
const
  ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
    (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
    (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
    (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
    (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
  i, j, HzOrd: integer;
begin
  i := 1;
  while i <= Length(AHzStr) do
  begin
    if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
    begin
      HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
      for j := 0 to 25 do
      begin
        if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
        begin
          Result := Result + char(byte('A') + j);
          break;
        end;
      end;
      Inc(i);
    end else Result := Result + AHzStr[i];
    Inc(i);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(gethzpy('你好hello'));  //结果为NHhello
end;

Answer 5

ShellExecute(handle, 参数, 程序, nil, nil, SW_SHOWNORMAL);

Answer 6

再请问一下！怎么让程序运行时不出现在任务栏上，就是WINDOWS窗口下边那一条上！

Answer 7

//不出现在任务栏上
procedure TForm1.FormCreate(Sender: TObject);
begin
  setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
end;