opdater

Det er sku da noget du selv styrer, du skal da bare lave en nyindlæsning af dine indstillinger efter du har ændret dem ( kan du ikke det skal du nok overveje at re-designe din kode )

/Martin

Det er vel bare et spørgsmål om hvornår du læser inifilen.

Hvis du læser inifilen ved ændring af checkboxen, så burde det lykkeds.

For mig lyder det som om at du læser inifilen ved opstart af programmet.

Dennis

Jeg fik ikke opdateret siden :-)

Kender det godt :(

assassin--> Hvordan gør man det du siger med at læse ini filen ved ændring af checkboxen??

På samme måde som du læser inifilen når du starter op, du kan bruge OnClick / OnChange event på CheckBox'en til at kalde din indlæsning

problemmet er at CheckBox'en er i en dll fil så det vil jo sådanset sige at det er et andet program der skriver i ini filen end det er der læser ini filen.

Ok, det er IKKE dig der styrer tingende ?

jo det er en dll fil som jeg har lavet.

jamen så skal du jo bare Exportere din IndlæsINI procedure og kalde den, når du har ændret.

Hvordan gør man det?

Ved det ikke, har ikke prøvet, jeg har aldrig brugt dll'er fra delphi, kig i online hjælpen, jeg tror ikke det er svært, hvordan kalder du din form, det er vel noget ala det samme

Hvordan Exportere man normalt? for så kan jeg jo prøve det

library MyDLL;

uses Windows;

{$R *.RES}

exports 
  LoadINI;

begin
end.

Gider du ikke lige at forklare det lidt bedere?

hvis du har lavet dll'en må du da også vide hvordan man kalder/modtager kald fra den ??

I din dll har du noget som exports, der skriver du de functioner som du ønsker der skal være adgang til udefra.

fx.

library MyDLL;

uses Windows;

{$R *.RES}

Procedure SaveINI;
begin
//Write ini code
end;

exports
  SaveINI;
begin
end.

i dit program kalder du så bare den function som du normalt ville gøre.
Sig til hvis du ikke forstår.

her kan du se hvordan det skal gøres:
http://delphi.about.com/library/weekly/aa041100a.htm

dkn->>

Når jeg skal kalde den så bruger jeg denne kode:

procedure ShowForm;stdcall;external 'Project1dll.dll' name 'ShowDllForm';

og så en knap med denne kode:

ShowForm;

Og i min dll
(Hele filen (.pas))

unit DllForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Registry, StdCtrls, TFlatCheckBoxUnit, TFlatGroupBoxUnit, inifiles,
  TFlatTabControlUnit;

type
  TfrmDllForm = class(TForm)
    Ok: TButton;
    Button1: TButton;
    FlatTabControl1: TFlatTabControl;
    FlatGroupBox1: TFlatGroupBox;
    tlenial: TFlatCheckBox;
    vlenial: TFlatCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDllForm: TfrmDllForm;

implementation

{$R *.DFM}
procedure iniadd(filename: string; Section: string; Name: string; value: string);
var
  ini: Tinifile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'info.ini');
  ini.WriteString(section,name,value);
  ini.free;
end;

function iniread(filename: string; Section: string; Name: string; defaultvalue: string):string;
var
  ini: Tinifile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'info.ini');
  result:=ini.readString(section,name,defaultvalue);
  ini.free;
end;


procedure TfrmDllForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;


procedure TfrmDllForm.OkClick(Sender: TObject);
begin
If tlenial.Checked=true then begin
    iniadd('info.ini','tlenial','Status','true');
end
else begin
  iniadd('info.ini','tlenial','Status','false');
end;
If vlenial.Checked=true then begin
    iniadd('info.ini','vlenial','Status','true');
end
else begin
  iniadd('info.ini','vlenial','Status','false');
end;
Close;

end;

procedure TfrmDllForm.FormCreate(Sender: TObject);
begin
If iniread('info.ini','tlenial','Status','true')='true' then begin
  tlenial.Checked:=true;
end
else begin
  tlenial.Checked:=false;
end;
If iniread('info.ini','vlenial','Status','true')='true' then begin
  vlenial.Checked:=true;
end
else begin
  vlenial.Checked:=false;
end;

end;

end.

Og så har jeg et projeckt som compiler dll filen. Den ser sådan her ud:

library Project1dll;


uses
  SysUtils,
  Classes,
  DllForm in 'DllForm.pas' {frmDllForm};

procedure ShowDllForm;stdcall;
begin
  frmDllForm :=TfrmDllForm.Create(nil);
  frmDllForm.Show;
end;

function ShowDllFormModal:integer;stdcall;
begin
  frmDllForm :=TfrmDllForm.Create(nil);
  Result := frmDllForm.ShowModal;
end;

Exports
    ShowDllForm,
    ShowDllFormModal ;

begin
end.

Håber det kan hjælpe lidt.

lukker