파일 찾기

procedure TForm1.Button1Click(Sender: TObject);

    var TheResult : String; 

    begin 

    TheResult := FileSearch('netscape.exe', 'c:\ProgramFiles\Netscape\Communicator\Program; + c:\windows'); 

    if TheResult = '' then 

    ShowMessage('Netscape was not found in this path.') 

    else 

    Label1.Caption := TheResult; 

    end;