winexec(pchar(edit1.text),9);
CreateProcess(nil,
'notepad.exe',
nil,nil,false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, sInfo, pInfo);
//点击用户自定义的菜单的事件
//简亮 2003-1-18
procedure Tmainform.ToolsMenuClick(sender: Tobject);
var
title:STring;
i:Integer;
aListITem:TListItem;
begin
title := TMenuItem(sender).Caption;
for i:= 0 to toolList.Items.Count -1 do
begin
if toolList.Items.Caption = title then
begin
aListITem := toolList.Items;
break;
end;
end;
if aListItem = nil then
begin
Informationbox('error!');
exit;
end;
//winexec(Pchar(aListItem.SubItems[0]),9);
shellExecute(self.Handle,nil,PChar(aListItem.SubItems[0]),
PChar(aListItem.SubItems[2]),PChar(aListItem.SubItems[1]),SW_SHOW);
end;