 |
|
|
Programcılık » Delphi forumunda Regİstry,e Dosya Ekleme. konu başlığının kısa özeti; Formunuza bir adet buton yerlestirin ve asagidaki kodu gerekli yerlere uygulayin,
HKEY_CURRENT_USER rotunda tugrul ve hamal isminde iki dosya ekleyecektir.
programi calistirmadan önce kendi dosyaniz...
|
1. sayfa (Toplam 1 sayfa)
|
Bu başlığı gezen kullanıcılar:0 Kayıtlı, 0 Gizli, 0 Misafir ve 0 Bot
Kayıtlı Kullanıcılar: Yok
|
| Yazar |
Mesaj |
saracoza
Slow Friend
Kayıt: 24 Mart 2008
Mesajlar: 18
Tema: Parthenos (27984)
Yaş: 28
  
Puan: 34
|
Formunuza bir adet buton yerlestirin ve asagidaki kodu gerekli yerlere uygulayin,
HKEY_CURRENT_USER rotunda tugrul ve hamal isminde iki dosya ekleyecektir.
programi calistirmadan önce kendi dosyanizi yaziniz uses kismina Registry yazmayi unutmayin
Kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
//uses Registry kütüphanesini eklemeyi unutmayınız.
//Alt Klasör Oluştur
var
deger:TRegistry;
altklasor:AnsiString;
begin
deger:=TRegistry.Create;
deger.RootKey:=HKEY_CURRENT_USER;//Bu Roota ekle
altklasor:='Tugrul\Hamal'; //iki klasör
deger.CreateKey(altklasor);//oluştur
deger.CloseKey;
end;
end.
ALINTIDIR. |
|
|
|
|
| Oylanmadı
|
    |
|
|
|
|
|
1. sayfa (Toplam 1 sayfa)
|
Bu başlığı gezen kullanıcılar:0 Kayıtlı, 0 Gizli, 0 Misafir ve 0 Bot
Kayıtlı Kullanıcılar: Yok
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu foruma eklenti dosyaları gönderemezsiniz
Bu forumdaki dosyaları indiremezsiniz
Bu forumda eklenti önizlemelerini/linklerini görebilirsiniz
|
|
|
