Reg Database & Form1?

Lav denne function i dit programs source:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
function CheckCode : Byte;
Var
  Test : Byte;
begin
// HER LAVER DU SÅ DIT CHECK FRA REG BASEN
Test:=1;
if Test=1 then CheckCode:=1 else CheckCode:=0;
end;

begin
  Application.Initialize;
  if CheckCode=1 then
  begin
  Application.CreateForm(TForm1, Form1);
  end
  else
  begin
  Application.CreateForm(TForm2, Form2);
  end;
  Application.Run;
end.

Håber du kan bruge det.

Jeg skal hjem og prøve det det ser ikke så tosset ud :-)

/Michael S

Hvordan gik det?

Ikke så godt det driller :-)

Den skal jo søge efter en streng i Reg'en

Hvis Strengen Findes Lad vær med at åbne form1!

Jeg prøver men jeg kan ikke få det til at virke!

/Michael S

Her et eksempel, prøv at sætte 1 til 0 og omvendt.

program Project1;

uses
  Forms,Registry,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

Var
CheckReg : TRegIniFile;
Test: String;
{$R *.res}

begin
  Application.Initialize;
  CheckReg:=TRegIniFile.Create('MyApp');
  CheckReg.WriteString('Sample','String','1');
  Test:=CheckReg.ReadString('Sample','String','');
  if Test='0' then
  begin
  Application.CreateForm(TForm1, Form1);
  end
  else
  begin
  Application.CreateForm(TForm2, Form2);
  end;
  CheckReg.Free;
  Application.Run;

end.