Ekran Koruyucu

[athena]

yapmak istediğiniz şey windowsun parolalı ekran koruyucusunun aynısı oluyor.

Arıca şifreyi de bir inifile içine yazdırabilirsin. Tinifile kullanımını inceleyerek nasıl yapılacağını bulabilirsin.

[mrmarman]

@athena Cevap yazmışsın taktir ediyorum ama bunun ne anlama geldiğini kısaca özetlesen daha faydalı olurdu diye düşünüyorum.

- Cevap verdiğimiz kişiler, sorularında hangi seviyede Delphi kullanıcısı olduklarının işaretlerini veriyorlar, bunlara uygun cevap yazarsak daha faydalı olur. Şifre Windows Registry kaydına da yazılır, EXE içine de gömülür vs.

... programa baya bişey ekldeim ama mesela şifreyi bilmesen bile 4,5 adet benim koyduğum oyunları oynuyabiliyorsun keğıt oyunu falan baya güzel oldu ayrıca ...

- Görüldüğü gibi @zemin Windows Parolalı Screen Saver'dan farklı olarak oyun vs. oynamasına izin vermek gibi amacını belirtmiş zaten...

- Örnek olarak verilen yöntemler için açıklama yazmayı alışkanlık haline getirelim...

[Misafir]

verdiğin bilgi için teşekküler yanlız bu kodları nereye yazıcam ben ???

[Misafir]

yapmak istediğiniz şey windowsun parolalı ekran koruyucusunun aynısı oluyor.

Arıca şifreyi de bir inifile içine yazdırabilirsin. Tinifile kullanımını inceleyerek nasıl yapılacağını bulabilirsin.

bu nedemek yaw??? benim sayfa haır zati sadece şifrei kullanıcılar nasıl değiştircek şuan ben programı yazarken "delphi" şifresi geçerli önemki olanprogramı açınca kullanıcıların kolay bi şekilde şifresini değiştirmesi???

[mrmarman]

Selam....

Daha önceki yazdığım kodu düzenleyip tekrar yazıyorum. kendi programına aynen kopyala.

Kod: Tümünü seç

Procedure TForm1.SifreKaydet(Sifre : String);
Var
  Dosya : TStringList;
begin
  Dosya := TStringList.Create;
  Dosya.Add(Sifre);
  Dosya.SaveToFile(ExtractFilePath(Application.ExeName)+'Sifre.TXT');
  Dosya.Free;
end;

Kod: Tümünü seç

Function TForm1.SifreOku : String;
Var
  Dosya : TStringList;
begin
  Dosya := TStringList.Create;
  // Önce şifre dosyası, program dizinde mevcut mu diye kontrol edilecek
  If FileExists(ExtractFilePath(Application.ExeName)+'Sifre.TXT') then
  begin  // Şifre dosyası varsa okunur...
    Dosya.LoadFromFile(ExtractFilePath(Application.ExeName)+'Sifre.TXT');
    Result := Dosya.Text;
  end
  else Result := 'delphi'; // Şifre dosyası yoksa şifre 'delphi' olarak varsayılır...
  Dosya.Free;
end;

Formunun adının Form1 olduğunu varsayıyorum Değilse TForm1 ile başlayan başlıkları başında T olacak şekilde (programındaki diğer procedure başlıklarına benzer şekilde) değiştir.

Delphi'de bir kolaylık vardır. Bu Procedure ve Function başlıklarının üzerine sırasıyla gelip CTRL+ALT+C tuş kombinasyonlarına basarsan, senin yerine bu kodu yukarıya da işlerler... Bu işlemleri yap ki hata vermesin...
Fonksiyonlar artık kullanıma hazır...

Şifreli kullanıcıların girebildiği, formda uygun gördüğünüz yere bir buton daha ekle...
Bu butona basınca şu kodu ekle...

Kod: Tümünü seç

  SifreKaydet(InputBox('Lütfen Şifre Giriş Ekranı', 'Yeni Şifreyi Girin', Trim(SifreOku)));

Artık gönül rahatlıyla kullanabilirsin. Çalışmalarında başarılar..

[Misafir]

teşekkürler