1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
  begin  if FileExists('C:\Datei.exe') then    
  Showmessage('Datei vorhanden');
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
  begin  if FileExists('C:\Datei test.exe') then    
  Showmessage('Datei vorhanden');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  Initest:=TIniFile.Create(form1.edt_p_ini_pfad.text);//Hier wählt der Benutzer die INI Datei aus
  parameterx1:=Initest.ReadString('Allgemein','Prog','');//Hier Pfad zur beliebigen Anwendung in der INI Datei
    if FileExists(parameterx1) then //Hier prüfe ich ob es das file gibt
      begin
        form1.Img_prog_false.Visible:=false;
        form1.Img_prog_ok.Visible:=true;
        form1.l_p_e_prog.Caption:=parameterx1;
      end
        else
      begin
          form1.Img_prog_false.Visible:=true;
          form1.Img_prog_ok.Visible:=false;
          form1.img_prog_false.ShowHint:=true;
          form1.img_prog_false.Hint:='Bitte angegebene Pfad zum Programm prüfen';
          form1.l_p_e_prog.Caption:=parameterx1;
      end;					

1:

if (FileExists('"Die ausgelesene Datei"')) or (FileExists('Die ausgelesene Datei'))					

1:
2:

if FileExists('D:\Delphi6\Projects\1234567890.1234567890') then
 Memo1.Lines.LoadFromFile('D:\Delphi6\Projects\1234567890.1234567890');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

//--------------------------------------------
// INI Dateien laden und speichern
//--------------------------------------------


function TForm1.DoReadINI(const strFile,strWhichSection,strString:string): string;
 var
    ReadINI : TINIFile;
begin
try
    ReadINI := TINIFile.Create(strFile);
    result := ReadINI.ReadString(strWhichSection, strString, 'Default');
    finally
    ReadINI.Free;
end;
end;



procedure TForm1.DoWriteINI(const strFileWRI,strWhichSectionWRI,strNameWRI,strStringWRI:string);
 var
    WriteINI : TINIFile;
begin
try
    WriteINI := TINIFile.Create(strFileWRI);
    WriteINI.WriteString(strWhichSectionWRI, strNameWRI, strStringWRI);
    finally
    WriteINI.Free;
end;
end;					

1:

uses iNIFiles;					

1:

DoReadINI('DEINFILENAME.ini','SUCHENDER TEXT in [KLAMMERN]','DEN WERT DES TEXTES'); //Rückgabewert ist das was hinter dem = dann steht					

1:

DoReadINI('system.ini','Visual','shadow');  //Rückgabe hier würde die 0 sein denn das was hinter dem = steht wird genommen egal ob leerzeichen oder sonst was					

1:
2:
3:
4:
5:

;inhalt der Datei Project1.ini
[Files]
File1 = C:\Datei.exe
File2 = C:\Datei test.exe
File3 = C:\Programme\Microsoft.NET\Primary Interop Assemblies\Microsoft.mshtml.dll					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Ini := TIniFile.Create(changefileext(paramstr(0), '.ini'));
with ini do
begin
  if FileExists(ReadString('Files', 'File1', '')) then
  showmessage('File1 gefunden') else showmessage('File1 nicht gefunden');
  
  if FileExists(ReadString('Files', 'File2', '')) then
  showmessage('File2 gefunden') else showmessage('File2 nicht gefunden');

  if FileExists(ReadString('Files', 'File3', '')) then
  showmessage('File3 gefunden') else showmessage('File3 nicht gefunden');
end;
Ini.Free;