pairs

Actions > On Startup ;

[CODE]
Program.Aciksa(_SourceFilename)
[/CODE]

Global Functions ;

[CODE]
Program = {}
Program.Aciksa = function(islem)
Acilan = 0
tProc = System.EnumerateProcesses();
for i,v in pairs (tProc) do
Split = String.SplitPath(v);
if Split.Filename..Split.Extension == islem then
Acilan = Acilan + 1
end
end
if Acilan > 1 then -- ikinci acilista
Dialog.Message("Hata", "Program zaten açık !", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
os.exit() -- programi kapat
end
end
[/CODE]

Kodlar Divane Arkadaşımıza aittir.

Reg add HKLM\Software\test

Reg load C:\1.reg


şeklinde kullanabilirsiniz.

Valla aklıma birşey gelmiyor şuanlık neden hata verdiğine dair.Bende çalışlıyordu başka arkadaşlar varsa deneyen sonuçlarını yazarsa daha iyi olur.

Örnek projeyi kullandınızmı.Birde database bölümünden sqlite3 ü seçmeyi unutmayın.

Örnek proje eklenmiştir.

[center][img]http://img834.imageshack.us/img834/20/sqlitep.png[/img]

Öncelikle veritabanını sqlite3 olarak seçiyoruz daha sonrasında bu kodları global functions a yapıştırıyoruz.[/center]
[codebox]sqlite =
{
baglan = function(path)
SQLite3Connection, err = SQLite3:connect(path);
end,

degergir = function(query)
SQLite3Cursor, err = SQLite3Connection:execute(query);
end,

tekdegercek = function(query)
SQLite3Cursor, err = SQLite3Connection:execute(query);
data = SQLite3Cursor:fetch();
return data;
end,


tabloisimlerinigetir = function()
SQLite3Cursor, err = SQLite3Connection:execute("SELECT * FROM sqlite_master WHERE type='table'");
deger = SQLite3Cursor:fetch({},"a");
data = {}
index = 0;
while deger do
data[index] = deger.name;
deger = SQLite3Cursor:fetch(deger,"a");
index = index + 1;
end
return data;
end,

topluvericek = function(table)
SQLite3Cursor, err = SQLite3Connection:execute("SELECT * FROM "..table);
al = SQLite3Cursor:fetch({},"a");
tables = {}
index = 0;

while al do
tables[index] = al;
index = index + 1;
al = SQLite3Cursor:fetch(al,"a");
end

return tables;
end,

rowcount = function(table,column)
SQLite3Cursor, err = SQLite3Connection:execute("SELECT count("..column..") FROM "..table);
data = SQLite3Cursor:fetch();
return data;
end
}[/codebox]
[center]
Kullanımı :
Bağlanmak için.
[code]sqlite.baglan(dosyayolu);[/code]
Değer girmek yada silmek için
[code]sqlite.degergir(select & delete & Create & Drop gibi komutlar);[/code]
Veritabanından tek bir değer çekecekseniz
[code]sqlite.tekdegercek(select komutu);[/code]
Veritabanındaki Tablo isimlerini getirmek için.
[code]sqlite.tabloisimlerinigetir();[/code]
Çoklu veri çekmek için
Bu komutta çekilen değerler çoklu geleceği için.
data değişkeninden sonra hangi kolondan veri çekecekseniz onu yazmanız lazım örn:data.name gibi.
[code]sqlite.topluvericek(tablo ismi);[/code]
Kolondaki değer sayısını öğrenmek.
[code]sqlite.rowcount(tabloadı,kolonadı);[/code]


Arkadaşlar eğer eksik gördüğünüz hatalı buldugunuz.Daha stabil kod bu olabilir dediğiniz kodlar olursa konuya ekleyebiliriz aklıma bu kadar seçenek geldi gayetde geniş oldu.[/center]

[center][color=#ff0000][size=5][b].:Download:.[/b][/size][/color][/center]


[center][quote]http://yadi.sk/d/sCparL2pKYLp[/quote][/center]

Editçilik değildir ama yaptıgınız programın işlevselliği veyahut görselliği ile alakalıdır o eksiklik.

Ams nin help dosyasındaki file find komutunu kullan ama araya application sleep koy yardım istiyorsan özel bir çalışman oldugu için PM den destek verebilirim.

On shutdown eventine. os.exit() yazman yeterli o iletinin çıkmaması için.

Hangi dil ile kodluyorsun.Delphi gibi geldi bana procedure uygulamışsın.

Valla merak ettim ne gibi özellikleri var acaba kod kısmı cezbetti beni.

Kim kodlamış bunu böyle

Yapmak mesele değil ama ögrenmen lazım her seferinde kimse yardım etmez.İkinci olarakta kimsenin işten kafasını kaldırıpta tutup proje hazırlayacagını sanmıyorum.üçüncü olarakta tavsiyede bulunayım galetis in sqlite videoları var onları izle istediğin tarz programı çok rahatlıkla yaparsın.

Example dosyasında var kardeşim.

[code]drive_type = Drive.GetType(_SourceDrive);

-- If the drive type is a CD/DVD ROM drive, eject it.
if (drive_type == DRIVE_CDROM) then
Drive.Eject(_SourceDrive);
end[/code]

Arkadaşlar hepinize teşekkür ederim gerçekten çok mutlu oldum inanın hiç beklemiyordum.

sYol = Input.GetText("yol")
sMetin1 = Input.GetText("Input1")
sMetin2 = Input.GetText("Input2")
if sYol ~= "" and sMetin1 ~= "" and sMetin2 ~= "" then
sDosya = TextFile.ReadToString(sYol)
nAra = String.Find(sDosya, sMetin1, 1, true)
if nAra ~= -1 then
[color="#FF0000"] sDegisen = String.Replace(sDosya, sMetin1, sMetin2, true)[/color]
[color="#0000FF"]sDegisen = String.Replace(sDegisen, bulunacak yazi,değiştirilecekyazi, true)[/color][color="#9ACD32"]--Burayı bu şekilde istediğin gibi çogaltabilirsin.[/color]
TextFile.WriteFromString(sYol, sDegisen, false)
Dialog.TimedMessage("OK", "Değiştirme başarılı!", 2000, MB_ICONINFORMATION)
else
Dialog.Message("Hata", "Aradığınız kelime mevcut değil", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end
else
Dialog.Message("Hata", "Tüm alanları doldurun", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1)
end

bu program yerine speecy ile bak daha net degerler alırsın.

Sanırım arkadaş windows live messenger daki gibi istiyor.input içinde soluk yazı yazacak mesela kullanıcı adınızı girin inputa tıklayınca o kaybolacak.

Engellenemez diye birşey yok bu dll ile engelleniyor kendim kullanıyorum bu dll i.

Alternatif olarak veritabanından doğrulamalı olarak bunuda kullanabilirsiniz.

[code]http://pastebin.mozilla.org/1715294[/code]

Ams için buton kodu

[code]test = Input.GetText("Input1");
if test ~= "" then
myValues={action=test};
result = HTTP.Submit("http://site.com/test.php", myValues, SUBMITWEB_POST, 20, 80, nil, nil);
Dialog.Message("",result);
else
Dialog.Message("","En az bir değer girmeniz gerekmektedir.");
end [/code]

Kodlamalar bana aittir.Her türlü sıkıntıda yardımcı olabilirim.

DLLexport ile fonksiyonlara bak.
değer olarakda true veya false gönder

AMS yüklü değil pc de o yüzden yardımcı olamayacagım.Ama kolaylıkla yapılabilir.

Yapılır.

http://www.mediafire.com/download.php?vw7zqaacn7771iu

bu linkteki dll ile işini görebilirsin ben bunu kullanıyordum.

Bazı tuşlar derken ctrl+alt+delete gibi özel tuşlarımı kast ediyorsun.