Недавно добавленные исходники

•  3D Designer  129

•  Sik Screen Capture  103

•  Patch Maker  91

•  Айболит (remote control)  110

•  ListBox Drag & Drop  85

•  Доска для игры Реверси  1 527

•  Графические эффекты  100

•  Рисование по маске  75

•  Перетаскивание изображений  79

•  Canvas Drawing  82

•  Рисование Луны  150

•  Поворот изображения  64

•  Рисование стержней  55

•  Paint on Shape  50

•  Генератор кроссвордов  60

•  Головоломка Paletto  75

•  Теорема Монжа об окружностях  113

•  Пазл Numbrix  56

•  Заборы и коммивояжеры  87

•  Игра HIP  65

•  Игра Go (Го)  51

•  Симулятор лифта  55

•  Программа укладки плитки  56

•  Генератор лабиринта  97

•  Проверка числового ввода  45

•  HEX View  101

•  Физический маятник  102

•  Задача коммивояжера  129

•  Автомобильная пробка  52

•  Квадратные сетки из слов  46

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Как создать Ini-файл в директории программы



Автор: Павел

По умолчанию ini-файл создается в Windows-директории (например: TIniFile.Create('MFile.ini' )), что приводит к "захламлению" оной. Более (эко-)логично (за исключением случаев, когда программа делается для CD-ROM) если ini-файл создается в той же директории что и главная программа. Вот пример чтения и записи ini файла из директории программы:


function ReadIni(ASection, AString : String) : String;
var
  sIniFile: TIniFile;
  sPath: String[60];
begin
  GetDir(0,sPath);
  sIniFile := TIniFile.Create(sPath + '\Name.INI');
  Result := sIniFile.ReadString(ASection, AString, S); sIniFile.Free;
end;

procedure WriteIni(ASection, AString, AValue : String);
var
  sIniFile: TIniFile;
  sPath: String[60];
begin
  GetDir(0,sPath);
  sIniFile := TIniFile.Create(sPath + '\Name.INI');
  sIniFile.WriteString(ASection, AString, AValue);
  sIniFile.Free;
end;

Еще один более легкий способ:

uses
    IniFiles,  SysUtils,  System;
...
var
    sIniFile: TIniFile;
begin
...
    sIniFile := TIniFile,Create(ChangeFileExt(ParamStr(0),'.ini'));
...
    sIniFile.Free;




Похожие по теме исходники

Mini Audio Player

Snake & MiniSaper WinApi

Mini WebBrowser (браузер)

FTP MiniChat

 

IniEx2

Mini HTML Editor

INI XML Files

Work with INI

 

Mini Archiver (архиватор)

Чтение PSD файлов

Шифратор файлов

Разбиение файла на части

 

Поиск файлов

FileMan (менеджер файлов)

Поиск открытых файлов

Текст внутри файла

 



Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter