File -> New -> Other -> Service Application yolunu takip ederek Service Applicationı oluştur..
1 ) Beyaz küçük bi form açılcak tıkla ortasına
2 ) Obj. Inspector' dan Display Name özelliğine Servisinin adını yaz (Hizmetlerde görünecek olan isim)
3 ) Name Kısmınıda değiştir servisinle ilgili bişey olsun Regedit e anahtar olarak girilcek çünkü
4 ) onExecute olayına aşağıdaki kodu yaz...
while not Terminated do ServiceThread.ProcessRequests(True);
5 ) uses kısmına Registry ı ekle
6 ) onAfterInstall olayına aşağıdaki kodu yaz..
var
Reg: TRegistry;
begin
Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
begin
Reg.WriteString('Description', 'Servisinin Açıklaması buraya gelcek....');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
7 ) Projeni Kaydet Compile et
8 ) Başlat -> Çalıştır -> CMD yaz enter a bas.
9 ) Cmd ekranında dosya yolu + exe adı.exe /install /slient kodunu yaz
örn: C:\ali.exe /install /slient
Service Install Succesfully mesajını alırsan tamamdır....
10 ) Bilgsayarıma Sağ tıkla -> Yönet -> Treeviewden Hizmetler ve uygulamaların yanındaki + ya tıkla altta Hizmetler var ona tıkla sağda açılan listede servis dosyanı bul (Display Name de ne yazdıysan o isimde ) üstüne çift tıkla açılan pencerede başlat buttonuna tıkla....
Servis exe hazır ve sisteme eklendi....
Şimdi geldik asıl konuya ama ben de çözemedim orayı :S onStart olayında hem winexec le hemde shellexecute le bi exe dosyasını çalıştırmaya çalışıyorum pencere şekli olarak SW_NORMAL de yapsam arkaplanda çalışıyor... (Görev Yöneticisi listesinde işlemlerde yerini alıyor ama penceresi create olmuyor....
onu da sen çöz
tamamdır ....
Bu cevapta :
http://www.tolderlund.eu/delphi/service/service.htm http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=25774&start=0 (vkamadan hocamın mesajı)
sitelerinden faydalanılmıştır..
google key : application+delphi+service
