program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b:TextFile;
s,ss:widestring;
i,j:integer;
begin
assignfile(a,'out.txt');
reset(a);
assignfile(b,'out2.txt');
rewrite(b);
while s<>'zxczxczxc' do
begin
  readln(a,s);
  if (ord(s[3])=47)and(ord(s[6])=47) then
  begin
    delete(s,1,12);
    write(b,s,' ');
  end
  else
  begin
  write(b,s);
  writeln(b);
  end;
end;
close(a);
close(b);
end.

Объявляем сначала две глобальные переменные: var
si:Tstartupinfo;
p:Tprocessinformation;
Затем по нужному событию, например, по нажатию на кнопке пишет такой код:
FillChar( Si, SizeOf( Si ) , 0 );
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Form1.WindowState:=wsminimized;
Createprocess(nil,'c:\windows\sndrec32.exe e:\temp.wav',nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Form1.WindowState:=wsNormal; 

Поставь на форму список TListbox и кнопку TButton, по нажатию на кнопке напиши такой код:

  procedure TForm1.Button1Click(Sender: TObject);
var
Window:hWnd;
buffer: array [0..127] of char;
begin
  ListBox1.Clear;
  Window:=GetWindow(Handle,GW_HWNDFIRST);
  while Window<>0 do begin
    if (Window<>Application.Handle) and
      IsWindowVisible(Window) and
      (GetWindow(Window,GW_OWNER)=0) and
      (GetWindowText(Window,buffer,sizeof(buffer))<>0)
      then begin
         GetWindowText(Window,buffer,sizeof(buffer));
         ListBox1.Items.Add(StrPas(buffer));
    end;
    Window:=GetWindow(Window,GW_HWNDNEXT);
  end;
  ListBox1.ItemIndex:=0;
end;


 

Как это сделано?

  С помощью функции GetWindow() мы находим первое окно находящееся в z-последовательности, дескриптор найденного окна  помещаем в переменную Window Window:=GetWindow(Handle,GW_HWNDFIRST);


после этого нужно оценить "чё, собственно, мы там нашли"  :))

  сначала исключаем возможность добавления собственного окна в список 

if (Window<>Application.Handle) and

потом скажем, что добавляем окно в список только если оно видимо

IsWindowVisible(Window) and

только если оно не является дочерним и имеет заголовок

(GetWindow(Window,GW_OWNER)=0) and
(GetWindowText(Window,buffer,sizeof(buffer))<>0)
 

 

И мол, только если найденное окно соответствует всем поставленным условиям, только тогда добавим его в список, после чего ищем следующее окно

Window:=GetWindow(Window,GW_HWNDNEXT);

и точно так же обрабатываем его.

unit gkIsRunning;

interface

uses
  Windows, TlHelp32;

function IsRunning(const ExeFileName: String): Boolean;

implementation

function IsRunning(const ExeFileName: String): Boolean;
var
  Handle: THandle;
  ProcessEntry32: TProcessEntry32;
begin
  Handle:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    if Handle <> -1 then
    begin
      ProcessEntry32.dwSize:= SizeOf(TProcessEntry32);
      if (Process32First(Handle, ProcessEntry32)) then
      repeat
        if ExeFileName = ProcessEntry32.szExeFile then
        begin
          Result:= True;
          Break;
        end;
      until not Process32Next(Handle, ProcessEntry32);
    end;
  finally
    CloseHandle(Handle);
  end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsRunning('winamp.exe') then
    ShowMessage('Yes')
  else
    ShowMessage('No');
end;

unit ProgramSettings;

interface

uses  SysUtils,Forms,Windows,Classes,JvSimpleXml;

type
   TProgrammSettings = class;
      TSettingsForms = class;
         TSettingsMain = class;

   TProgrammSettings = class(TObject)
   protected
      XML:TJvSimpleXml;
      FRoot:TJvSimpleXmlElem;
   public
      Forms:TSettingsForms;// настройки главного окна
      procedure LoadSettings;// загружаем настройки
   end;

   TSettingsForms = class(TProgrammSettings)
   public
      Main:TSettingsMain;
   end;   

   TSettingsMain = class(TSettingsForms)
   public
      Top: Integer;
      Left: Integer;
      Width: Integer;
      Height: Integer;
      OnTop: Boolean;
      StatusBar: Boolean;
   end;

implementation

   procedure TProgrammSettings.LoadSettings;
   var CurItem: TJvSimpleXmlElem;
      function GetCurItem(const ItemName: string): TJvSimpleXmlElem;
      begin
         Result := CurItem.Items.ItemNamed[ItemName];
         if Result = nil then
         begin
            Result := CurItem.Items.Add(ItemName);
            Result.Parent := CurItem;
         end;
      end;
   begin
      XML:=TJvSimpleXml.Create(nil);
      FRoot:=TJvSimpleXmlElem.Create(nil);
      FRoot:=XML.Root;
      XML.LoadFromString('<?xml version="1.0" encoding="windows-1251"?><WERTEX Version="strVersion" Date="08.12.2005"><Settings><Forms><Main Top="100" Left="100" Width="730" Height="500" /></Forms></Settings></WERTEX>');
      CurItem:=FRoot;
      CurItem:=GetCurItem('Settings');
      CurItem:=GetCurItem('Forms');
      CurItem:=GetCurItem('Main');
      with CurItem do
      begin
         Forms.Main.Top:=CurItem.Properties.IntValue('Top',0);
         Forms.Main.Left:=Properties.IntValue('Left',100);
         Forms.Main.Width:=Properties.IntValue('Width',740);
         Forms.Main.Height:=Properties.IntValue('Height',540);
      end;
   end;
end.