Список процессов в StringGrid

[artemavd]

Здравствуйте! Есть такая задачка. Есть код, который выводит список процессов. Проблема в том, что они выводятся в Memo1, а как сделать, чтобы они выводились в StringGrid в том виде, в котором они на примере в таблице (первую строчку я написал вручную в качестве примера)?

[MaxNik2009]

Попробуй через функции

ExtractFileDir
ExtractFileDrive	 	
ExtractFileName

[SERG1980]

procedure TForm1.FormCreate(Sender: TObject);
var
 tmp: TStrings;
 i:integer;
 s:string;
begin
 tmp:=Form1.Memo1.Lines;
 GetProcessList(tmp);

 Form1.StringGrid1.Cells[0,0]:=' Диск';
 Form1.StringGrid1.Cells[1,0]:='                                         Путь к процессу';
 Form1.StringGrid1.Cells[2,0]:='           Имя процесса';
// Form1.StringGrid1.Cells[0,1]:=' C:';
// Form1.StringGrid1.Cells[1,1]:=' \WINDOWS\system32\';
// Form1.StringGrid1.Cells[2,1]:='winlogon.exe';
 for i:=0 to tmp.Count - 1 do
  begin
    if Form1.StringGrid1.RowCount<i+2 then
    Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
    Form1.StringGrid1.Cells[0,i+1]:=ExtractFileDrive(tmp[i]);
    s:= ExtractFileDir(tmp[i]);
    delete(s,1,Pos(':',s));
    Form1.StringGrid1.Cells[1,i+1]:=s;
    Form1.StringGrid1.Cells[2,i+1]:=ExtractFileName(tmp[i]);
  end;
end;

НЕ УСПЕЛ