Delphi Forum

Rica ederim

Merhabalar!
edit den 30 geri sayma yönteminin örneği aşağıda. Kolay gelsin. (timer ın intervali 1000 olacak)
unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl ...

Merhaba !

Resimleri veri tabanında çekerek sorun halletmişsiniz. Fakat bu yöntem veri tabanınızı zamanla çok yoracaktır. Nihai kullanıcının büyük boyutlu bir image kaydettiğini düşünün. Programınız çok yavaşlayacaktır. Bana sorarsanız, resimdeki grid i döngü ile doldurun. döngü esnasında sıra image ...

Merhaba !

CreateSemaphore fonksiyonun üçüncü parametresi (yani sizde 1 olan) 2,3,4 vs yapmayı denedin mi (üçüncü parametre = IMaximumCount)

Merhaba !

Bence en kestirme sizin probleminiz şu şekilde çözülür :

1- Forma aşağıdaki procedure yi ekleyin :

procedure goster;
.
.
.
procedure TForm1.goster;
begin
if not Assigned(Form1) then
Application.CreateForm(TForm1, Form1);

Form1.Show;
end;


2- Ana menüden Project->Options->Forms ...

Merhaba !
Bu yöntemle istediğin forma ulaşabilirsin. Kolay gelsin...

Merhaba Arkadaşlar !

Uzun süren bir çalışmadan sonra sorunu çözdüm. Aşağıdaki fonksiyonu son gönderdiğim mesajdaki WTSQueryUserToken fonksiyonunun ikici parametresi olarak kullanmak gerekiyor. Büyük bir ihtimal ile; server da aynı anda birden fazla bilgisayar ile birden fazla oturum açılabildiği ...

Merhaba !

Vista/Server 2008'den sonra servisler tek bir oturuma(session) hapsedildi ve de interaktif olmaları da engellendi. Yani shellExecute, winExec gibi

komutlarla exe çalıştırırsanız servisin bulunduğu (local system) oturumda çalışıyor. Hatta görev yönetici / işlemler de görünüyor. Öyle bir ...

Dostum kolay gelsin.
Servisten exe çalıştırmada sıkıntılarım var. Servisten Exe çalıştırma işini Server işletim sistemlerinde bir türlü yapamadım.
"Windows servis uygulamasının Windows kapanırken engel olması" Başlıklı soru bu konuyla alakalı ve soruyu ben sordum. İncelersen sevinirim. Kolay gelsin.

Merhabalar !

SimaWB arkadaşımızın dediği gibi mesaj yakalama işini bir masaüstü uygulamasına bıraktım. Ama sürekli çalışmayacak. Yazdığım serviste, veri tabanı ile etkileşimli kodlar çalışmadan önce masaüstü uygulaması çalıştırıp, servisin kodları işlemini bitirince kapatıyorum. Böylelikle servis ...

Dediğinizi çok iyi anladım. Anlattıklarınızı proje yöneticimize daha önceden sundum. Ne yazık ki içerikte bir masa üstü uygulaması olduğu için kabul görmedi. İlginiz için çok teşekkür ederim.

Merhaba SimaWB !

Anlattıklarınızı uyguladım. Evet, dediğiniz gibi oldu.Bu yöntemle Windows'un servis uygulamalarına gönderdiği mesajları yakalayabildim. Fakat yine Windows mesaja kayıtsız kalıyor ve kapanıyor. Mesajı yakaladığımın farkına şöyle vardım : WindowProc procedure sinin içine intlist ...

Merhaba SimaWB

Öncelikle ilgilendiğiniz için çok teşekkür ederim. Win api ler ile ilgili pek çalışmam olmadı. Rica etsem ikinci gönderdiğiniz mesajı biraz daha açabilir misiz ?

Merhaba Arkadaşlar

Windows servisin, windows kapanırken engel olmasını istiyorum. Bunu bir masa üstü uygulaması ile yapabiliyorum :
procedure WMQueryEndSession(var Msg: TWMQueryEndSession);message WM_QUERYENDSESSION;
procedure WMEndSession(var Msg: TWMEndSession);message WM_ENDSESSION ...