dpr dosyasında açılışı işlemlerini değiştirmek ? [Çözüldü]

[ByDeniS]

Merhaba arkadaşlar ben dpr dosyası üzerinde oynama yaparak açılışı değiştirmek istiyorum ama bunu kendi yöntemimle beceremedim.

Kod: Tümünü seç

    Application.Initialize;
    Application.CreateForm(TDesignerMenu, DesignerMenu);
    Application.Run;

Şeklindeki kodda şöyle bir oynama yaptım.

Uses kısmına inifiles ekledim. var ini:Tinifile; olarada değişken atadım ve sonuç olarak şöyle bir kod ortaya çıkarttım.

Kod: Tümünü seç

program Project1;

uses
  Forms, inifiles,
  Unit1 in 'Unit1.pas' {DesignerMenu},
  PasswordUnit in 'PasswordUnit.pas' {OyunHileleri};

{$R *.res}
var
ini:TIniFile;
begin
  if ini.ReadString('Degisken','SifreliGiris','') = '0' Then
   Begin
    Application.Initialize;
    Application.CreateForm(TDesignerMenu, DesignerMenu);
    Application.Run;
   End
  Else
   Begin
    Application.Initialize;
    Application.CreateForm(TPassword, Password);
    Application.Run;
   End
end.

Buradaki hatamı bulamadım mantıksal bir hata yaptığım kesin ama nedir :s

[sabanakman]

1. Hata ne?
2. Hata çıkmıyor ama program istediğim gibi çalışmıyor diyarsan bu istek (olması gereken) nedir ve buna rağmen ne oluyor?

Yine de şansımı deneyerek, if ini.ReadString('Degisken','SifreliGiris','') = '0' Then satırından kaynaklanan bir sorun yaşıyor olabilirsiniz tahminininde bulunuyorum.

[ByDeniS]

Hata program hiç açılmadan hata veriyor numeric hata kodları yazıyor sadece.

ini dosyasındaki bir değer 0'sa bir form'u ama sıfır değilse diğer formu açmasını istedim. Bana göre yazdığım kodda hata yok dpr dışındaki kısımlarda çalışıyor. Bu şekildeki kod ama dpr'de çalışmıyor.

if ini.ReadString('Degisken','SifreliGiris','') = '0' Then Mantıksal olarak burası doğru en azından dpr dışındaki kod yazma alanlarında. Ama dpr'de doğru değil sanırım.

[unicorn64]

ini değişkenini create etmediğin için program daha ilk satırda access violation a düşüyor, dolayısıyla hiç birşey göremeden kapanıyor..

öncelikle if satırından önce

Kod: Tümünü seç

ini:=TIniFile.Create('ini dosyasının konumu');

şeklinde create etmen gerek..

ondan sonrasında da sanki eksikler var gibi geldi bana, else kısmında sadece şifre formu oluşturulmuş, başka form olmadığından şifre ekranı ana form gibi algılanıp bu ekran kapatıldığında program sonlanacaktır sanırım.. gerçi o formda neler var bilemiyorum ama buradan görünen köy o..

[ByDeniS]

Böyle birşeyi nasıl kaçırmışım gözümden 2 saatirde bakar kör şeklinde bakıyorum ama uyanamıyorum.

Teşekkürler.