[deepred]

rust-02,

А зачем? В DELPHI есть собственная функция поиска файлов: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec):

В Вашем случае будет что-то в таком духе:

Код:

findFirst('C:\','123456.exe',faAnyFile,sr)

если нужна форма, то примерно так:
procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
begin
findFirst('C:\','123456.exe',faAnyFile,sr)
edit1.Text:=sr.Name;
end;

выполнить в cmd можно так
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,'open','cmd.exe','/k Where /r C:\ 123456.exe','C:\Windows\system32\',SW_SHOW);
end;

PPS: рекомендую Вам этот форум: DELPHI и этот форум: DELPHISOURCES.RU