Ekran Çözünürlügünü Ögrenmek

28.09.08, 16:01

#1 (permalink)

Kullanıcı Adı

Baytar

Pc Kopat ADмiηistяαtOR™

Rütbesi

Yasal Uyarı

Cehennemden Çıkan Çılgın Türk

Üye Resmi

Üye No

Bilgiler

Üyelik tarihi: Jul 2008

Mesajlar: 1.240
Konular: 1085
Online Süre: 5 gün 1 saat 2 dk

Reklam Komisyonu: 0

Cinsiyet
Bay

Ruh HaLi

Nereden?
Dünyanın Merkezinden

İtibar
Tesekkür: 25
73 Mesajina 83 Tesekkür Aldi

Karizma

Rep Gücü : 8026

Rep Puanı : 800012

Rep Seviyesi :

Seviye: 30 []
Aktiflik: 621 / 888

Güç: 413 / 1010

Deneyim: 60%

İletisim

Ekran Çözünürlügünü Ögrenmek

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
saat,dakika,saniye,milisaniye:word;
s,s1,s2,d1,d2:string;
implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DecodeTime(Time,saat,dakika,saniye,milisaniye);
if s1=inttostr(saat) then
if s2=inttostr(dakika) then
begin
exitwindowsex(EWX_SHUTDOWN,0);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=timetostr(Time);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=edit1.text;
s1:=Copy(s,1,2);
s2:=copy(s,4,2);
Timer1.Enabled:=true;
Application.Minimize;
end;

end.

---------------------------------------------------------------------------------------------------------

Altın harflerle yaz mahlasımı. halvetim kasvet, kem gözlere şiş!... Cadü ya herru!...ya merru!...kafkef, gölge harâmilerine bir selam çak!... Abile ğatladı, demlenir simam, nüşinrevan'dan handan ummam ben. Ahu-yi felek mum, ben şamdan. düşmez kalkmaz bir Allah'tır uyan!...

Baytar isimli Üye şimdilik offline konumundadır

Konuyu Beğendin mi ? O Zaman Arkadaşınla Paylaş

Sayfayı E-Mail olarak gönder

Sponsorumuz

Tags

çözünürlügünü, ekran, ögrenmek

« Visual Basic.NET Döküman | Grafik Ve Resimler »

internet kitapçınız kitapyurdu.com'dan binlerce kitaba ulaşabilirsiniz.

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Yetkileriniz
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB Kodları Açık Smileler Açık [IMG] Kodları Açık HTML-KodlarıKapalı Trackbacks are Açık Pingbacks are Açık Refbacks are Açık

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Fifa 2009 Ekran görüntüleri	Baytar	Oyun Haberleri	0	27.09.08 21:49
Ekran temizleme servisi	-Elisa-	Resimler	2	05.09.08 14:53
Windows Mavi Ekran Hataları	wtere	Windows İşletim Sistemi	1	25.08.08 14:30
ATI ve Nvidia Ekran Kartları İçin Sürücü Silici	Armageddon	Güncel Driver , Firmware ,BIOS	0	29.07.08 14:50
Ekran kartlarında overclock	Armageddon	Overclock ve Modifikasyon	0	19.07.08 16:22

Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 06:52 .

Konu Bilgileri
	Konu Başlığı Ekran Çözünürlügünü Ögrenmek	Konudaki Cevap Sayısı 0
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 30

		WwW.TaRaBuL.NeT > Bilgisayar ve İnternet > Bilgisayar Programlama
Ekran Çözünürlügünü Ögrenmek

Kullanıcı ismi		Beni hatırla
Şifreniz