Programlama yapalım ve Öğrenelim.

DevExpress Scheduler2 Türkçeleştirmesi

{********************************************************************}

{ Bu kodukopyalayıp cxSchedulerStrs.pas içerisine yapıştırın }

{ ..devexpressScheduler2 klasörü içerisinde bulabilirsiniz }

{ Bu Türkçeleştirme www.urve.com.tr tarafından yapılmıştır. }

{ }

{ Developer Express Visual Component Library }

{ ExpressScheduler }

{ }

{ The entire contents of this file is protected by U.S. and }

{ International Copyright Laws. Unauthorized reproduction, }

{ reverse-engineering, and distribution of all or any portion of }

{ the code contained in this file is strictly prohibited and may }

{ result in severe civil and criminal penalties and will be }

{ prosecuted to the maximum extent possible under the law. }

{ }

{ RESTRICTIONS }

{ }

{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }

{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }

{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }

{ LICENSED TO DISTRIBUTE THE EXPRESSSCHEDULER AND ALL ACCOMPANYING }

{ VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }

{ }

{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }

{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }

{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }

{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }

{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }

{ }

{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }

{ ADDITIONAL RESTRICTIONS. }

{ }

{********************************************************************}

unit cxSchedulerStrs;

{$I cxVer.inc}

interface

resourcestring

scxUntitledEvent = 'Başlıksız';

scxVertical = 'Dikey';

scxHorizontal = 'Yatay';

scxTimeGrid = 'Zaman Çizgisi';

scxMinute = 'Dakika';

scxMinutes = 'Dakikalar';

scxHour = 'Saat';

scxHours = 'Saatler';

scxOneDay = '1 Gün';

// dialogs constants

scxDeleteRecurringEventDescription = 'is a recurring event. Do you want to delete only this occurrence or the series?';

scxEditRecurringEventDescription = 'is a recurring event. Do you want to open only this occurrence or the series?';

scxGoToDateDialogCaption = 'Tarihi Git';

scxDeleteTypeDialogCaption = 'Silme Uyarısı';

scxDeleteTypeOccurrenceLabel = 'Başlangıcı Sil';

scxDeleteTypeSeriesLabel = 'Seriyi Sil';

scxEditTypeDialogCaption = 'İstisna Nesne Aç';

scxEditTypeOccurrenceLabel = 'Başlangıcı Aç';

scxEditTypeSeriesLabel = 'Seriyi Aç';

scxExitConfirmation = 'Değişiklikleri Kaydetmek İstiyormusunuz?';

scxDeleteConfirmation = 'Madde Değiştirildş. Silmek İstiyormusunuz?';

scxWrongTimeBounds = 'Başlangıç Tarihi Bitiş Tarihinden Önce Girilmiş';

scxWrongPattern = 'Geçersiz Şablon.';

scxReplaceOccurrenceDate = 'Bazı aylar bu günlere %s sahip değil. bu aylar için , bu günler ayın son gününe denk gelmektedir.';

scxInvalidRecurrenceDuration = 'The duration of the event must be shorter than how frequently it occurs. ' +

'Shorten the duration, or change the recurrence pattern in the Recurrence dialog box.';

scxConfirmLostExceptions = 'Any exceptions associated with this recurring event will be lost. Is this OK?';

scxInvalidNumber = 'Geçerli bir numara girmek zorundasınız';

scxNoAvailableFreeTime = 'Geçerli zamanlar kullanılabilir';

scxEvent = 'Olay';

scxUntitled = 'Başlıksız';

scxNoneEvent ='Basit Olay';

scxRecurrenceEvent ='Tekrarlanan Olay';

scxExceptionEvent ='İstisna Olay';

scxOccurenceEvent ='Başlangıç Olayı';

scxAdd ='&Ekle';

scxEdit ='&Düzenle';

scxDelete ='&Sil';

scxRecurrence ='&Yineleme';

scxDate ='&Tarih:';

scxShowIn ='&Göster:';

scxDayCalendar ='Günlük Takvimi';

scxWeekCalendar ='Haftalık Takvim';

scxMonthCalendar ='Aylık Takvim';

scxWorkWeekCalendar ='Çalışılan Günler Takvimi';

scxResource ='Bölüm';

scxSubject ='&Başlık:';

scxLocation ='&Yer:';

scxLabel ='Bil&gi:';

scxStartTime ='B&aşlangıç Saati:';

scxEndTime ='&Bitiş Saati:';

scxAllDayEvent ='&Tüm gün randevuları';

scxReminder ='Hatırlatma:';

scxShowTimeAs ='Göster:';

scxSuffixMinute ='dakika';

scxSuffixMinutes ='dakika';

scxSuffixHour ='saat';

scxSuffixHours ='saat';

scxSuffixDay ='gün';

scxSuffixDays ='gün';

scxSuffixWeek ='hafta';

scxSuffixWeeks ='hafta';

scxBusy ='Meşgul';

scxFree ='Serbest';

scxTentative ='Hemen Dönecek';

scxOutOfOffice ='Dışarıda';

scxRecurrenceCaption ='Olay Yineleme';

scxEventTime ='Olay Saati ';

scxRecurrencePattern ='Yinelenen Biçim ';

scxRangeOfRecurrence ='Yenileme Sıralaması ';

scxStart ='&Başla:';

scxStart1 ='B&aşla:';

scxEnd ='&Bitiş:';

scxDuration ='S&üre:';

// Pattern

scxDaily = '&Günlük';

scxWeekly = '&Haftalık';

scxQuarterly = '&3 Aylık';

scxMonthly = '&Aylık';

scxYearly = '&Yıllık';

// daily

scxEvery = 'He&r';

scxEveryWeekDay = 'Haftanın Her &Günü';

scxDays = 'gün(günler)';

// weekly

scxWeeksOn = 'Hafta(hafanın) üzeri:';

scxRecurEvery = 'Her Tekrarlama';

//monthly

scxOfEvery = 'her';

scxMonths = 'ay(lar)';

// yearly

scxThe = 'Bu&';

scxOf = 'nun';

// other

scxFirst = 'ilk';

scxSecond = 'sonraki';

scxThird = 'üçüncü';

scxFourth = 'dördüncü';

scxLast = 'önceki';

scxDay = 'D&ay';

scxDay1 = 'day';

scxWeekday = 'weekday';

scxWeekendday = 'weekend day';

scxNoEndDate = '&No end date';

scxEndAfter = 'End a&fter:';

scxEndBy = 'End &by:';

scxOccurences = 'occurrences';

// buttons

scxFindAvailableTime = 'Müsait Zaman Ara';

scxOk = '&Tamam';

scxCancel = '&Vazgeç';

scxClose = '&Kapat';

scxDown = '&Aşşağı';

scxRemoveRecur = '&Sil Yinelemeyi';

scxUp = '&Yukarı';

scxResourceLayoutCaption = 'Aktif Sayfa Düzenleyici';

// popup menu resources

scxpmNewEvent = '&Yeni Olay';

scxpmNewAllDayEvent = 'Yeni Bütün Gün için &Olay';

scxpmNewRecurringEvent = 'Yeni &Tekrarlanan Olay';

scxpmToday = 'Bugün';

scxpmGotoThisDay = 'Bugüne Git';

scxpmGoToDate = 'Tarihe Git...';

scxpmResourcesLayout = 'Kaynak Düzenleme Editörü...';

// for event

scxpmOpen = '&Aç';

scxpmEditSeries = 'Se&riyi Düzenle';

scxpmShowTimeAs = 'T&üm Zamanlar';

scxpmDelete = '&Sil';

scxpmFree = '&Boşalt';

scxpmTentative = '&Deneme';

scxpmBusy = '&Busy';

scxpmOutOfOffice = '&Ofis Dışında';

scxpmLabel = '&Label';

scxEventsConflict = '&Hatırlatma';

scxRecurrenceLabel = 'Yineleme';

// event label captions

scxEventLabelNone = 'Yok';

scxEventLabel0 = 'Önemli';

scxEventLabel1 = 'Meşgul';

scxEventLabel2 = 'Kişisel';

scxEventLabel3 = 'Taktik';

scxEventLabel4 = 'Toplantıda';

scxEventLabel5 = 'Gezide';

scxEventLabel6 = 'Hazırlan';

scxEventLabel7 = 'Doğumgün';

scxEventLabel8 = 'Yıl Dönümü';

scxEventLabel9 = 'Ara';

// for time ruler menu items

scxpmTimeZone = 'Chan&ge Time Zone';

scxpm60Minutes = '6&0 Dakika';

scxpm30Minutes = '&30 Dakika';

scxpm15Minutes = '&15 Dakika';

scxpm10Minutes = '10 &Dakika';

scxpm6Minutes = '&6 Dakika';

scxpm5Minutes = '&5 Dakika';

//navigator hints

scxFirstButtonHint = 'İlk Kaynak';

scxPrevPageButtonHint = 'Önceki Sayfa';

scxPrevButtonHint = 'Önceki Kaynak';

scxNextButtonHint = 'Sonraki Kaynak';

scxNextPageButtonHint = 'Sonraki Sayfa';

scxLastButtonHint = 'Son Kaynak';

scxShowMoreResourcesButtonHint = 'Tüm Kaynakları Göster';

scxShowFewerResourcesButtonHint = 'Daha Az Kaynak Göster';

//for reminder

scxrCaptionReminder = '1 Hatırlatma';

scxrCaptionReminders = '%d Hatırlatma';

scxrDismissButton = '&Çıkar';

scxrDismissAllButton = 'Tümünü Çıkar';

scxrDueIn = 'Tarih İçindeki';

scxrOpenItemButton = '&Öğeyi Aç';

scxrSnoozeButton = '&Ara(Uyku,Dinlenme)';

scxrSubject = 'Başlık';

scxrSnoozeLabel = '&Diznen';

scxrSelected = '%d Seçilenleri Hatırlar';

scxrStartTime = 'Başlangıç Saati: %s';

// time

scxTime0m = '0 Dakika';

scxTime5m = '5 Dakika';

scxTime10m = '10 Dakika';

scxTime15m = '15 Dakika';

scxTime20m = '20 Dakika';

scxTime30m = '30 Dakika';

scxTime1h = '1 saat';

scxTime2h = '2 saat';

scxTime3h = '3 saat';

scxTime4h = '4 saat';

scxTime5h = '5 saat';

scxTime6h = '6 saat';

scxTime7h = '7 saat';

scxTime8h = '8 saat';

scxTime9h = '9 saat';

scxTime10h = '10 saat';

scxTime11h = '11 saat';

scxTime12h = '12 saat';

scxTime18h = '18 saat';

scxTime1d = '1 gün';

scxTime2d = '2 gün';

scxTime3d = '3 gün';

scxTime4d = '4 gün';

scxTime1w = '1 Hafta';

scxTime2w = '2 hafta';

// advance time

scxAdvance0h = '0 saat önce başlat';

scxAdvance5m = '5 dakika önce başlat';

scxAdvance10m = '10 dakika önce başlat';

scxAdvance15m = '15 dakika önce başlat';

// for export

secxExportStorageInvalid = 'Depolama onaylanmadı';

// card field names

secxYes = 'Evet';

secxNo = 'Hayır';

secxSubject = 'Konu';

secxLocation = 'Yer';

secxDescription = 'İçerik';

secxAllDay = 'Tüm Gün';

secxStart = 'Başlat';

secxFinish = 'Bitir';

secxState = 'State';

secxReminder = 'Hatırlat';

// table fields

secxStartDate = 'StartDate';

secxStartTime = 'StartTime';

secxEndDate = 'EndDate';

secxEndTime = 'EndTime';

secxAlldayevent = 'Alldayevent';

secxReminderonoff = 'Reminderonoff';

secxReminderDate = 'ReminderDate';

secxReminderTime = 'ReminderTime';

secxMeetingOrganizer = 'MeetingOrganizer';

secxRequiredAttendees = 'RequiredAttendees';

secxOptionalAttendees = 'OptionalAttendees';

secxMeetingResources = 'MeetingResources';

secxBillingInformation = 'BillingInformation';

secxCategories = 'Categories';

secxMileage = 'Mileage';

secxPriority = 'Priority';

secxPrivate = 'Private';

secxSensitivity = 'Sensitivity';

secxShowtimeas = 'Showtimeas';

secxNormal = 'Normal';

// storage

scxRequiredFieldsNeeded = 'The following required fields'#13#10'%sare not assigned!';

scxInvalidFieldName = 'Invalid field name';

scxInvalidCustomField = 'Invalid custom field';

const

sRangeNames: array[0..4] of Pointer =

(@scxFirst, @scxSecond, @scxThird, @scxFourth, @scxLast);

sDayNames: array [0..9] of string =

(scxDay, scxWeekday, scxWeekendday, '', '', '', '', '', '', '');

sEventLabelCaptions: array[0..10] of Pointer = (

@scxEventLabelNone, @scxEventLabel0, @scxEventLabel1, @scxEventLabel2,

@scxEventLabel3, @scxEventLabel4, @scxEventLabel5, @scxEventLabel6,

@scxEventLabel7, @scxEventLabel8, @scxEventLabel9);

procedure cxSchedulerInitStrings;

implementation

uses

SysUtils;

procedure cxSchedulerInitStrings;

var

I: Integer;

begin

for I := 1 to 7 do

sDayNames[2 + I] := LongDayNames[I];

end;

initialization

cxSchedulerInitStrings;

end.

Delphi - .....................................

BUTONU KLASORE YONLENDIRME OKUL ICIN ACIL LAZIM yardım edecek bi yardımsever yok mu

ark butonu klasore yonledırme kodu lazım coook acıl

Delphi - .....................................

Kodbank içinde ingilizce çokmu lazım

Herkes için geçerli..

Bazen bakıyoum da Kod gönderiyorsunuz. Güzel birşey ama anlamını bilmediğiniz

kodlar da var içlerinde. Önce o kodun ne anlama geldiğini anlayın sonra kodu herkesin

anlayacağı şekilde yorumlayıp yollayın.

Hiç incelemeden bakmadan "aha bu kod şu işe yarıyormuş! al sana kod!" diye göndermeyin.

Kod yazan herkesin %100 ingilizce bildiğini zannetmeyin. Anlamayanlar da olacaktır.

Yaklaşık 22 yıldır Yazılımcıyım bu işi öğrenecekseniz adam gibi öğrenin. Ki ileride

sizin de öğretebileceğiniz birşeyler olsun elinizde.

Delphi - .....................................

Küçük harfe dönüşüm Türkçe Karekterler

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Cb1: TCheckBox;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Cb1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit1Exit(Sender: TObject);

private

// Function kucult(Yazim:string):string;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

Function kucult(Yazim:string):string;

var

Harfim:char;

Sayim:Byte;

begin

for Sayim:=1 to length(yazim) do

begin

Harfim:=Yazim[sayim];

Case Harfim of

'A'..'H','J'..'Z':Harfim:=Chr(Ord(Harfim)+32);

'Ö': Harfim:='ö';

'Ğ': Harfim:='ğ';

'Ü': Harfim:='ü';

'Ş': Harfim:='ş';

'İ': Harfim:='i';

'Ç': Harfim:='ç';

'I': Harfim:='ı';

end;

Yazim[Sayim]:=Harfim;

end;

Kucult:=Yazim;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if cb1.Checked then

Begin

edit2.Enabled :=False;

end

else

Begin

Edit2.text:=kucult (edit1.text);

edit2.Enabled :=True;

edit2.Color := $00EDE212;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

harf:string;

begin

harf:=key;

harf:=KUCULT(harf);

key:=harf[1];

end;

procedure TForm1.Cb1Click(Sender: TObject);

begin

if cb1.Checked then

Begin

Edit1.OnKeyPress := Edit1KeyPress;

Edit2.Enabled :=False;

Edit2.Clear;

end

else

Begin

edit1.OnKeyPress :=Nil ;

Edit2.Enabled :=True;

Edit2.Color := ClWhite;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.OnKeyPress :=Nil ;

end;

procedure TForm1.Edit1Exit(Sender: TObject);

begin

Edit2.Clear;

end;

end.

Delphi - .....................................

Yaş Bulma

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Mask;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

MaskEdit1: TMaskEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses math;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

d:double;

a:Tdate ;

begin

try

if MaskEdit1.Text = ' . . ' then

begin

showmessage ('Lütfen Tarih giriniz..') ;

maskedit1.SetFocus ;

exit;

end;

a:=now;

d:=floor((a-(strtodate(MaskEdit1.Text )))/(365));

if (d >= 150) or (d <= -1) then

begin

showmessage ('Bu Tarihte İnsan mı Yaşar Dikkatli Yaz...!') ;

exit;

end;

edit1.text:=floattostr(d);

except

begin

showmessage ('Tarih Formatını Yanlış Girdiniz.') ;

MaskEdit1.Text:='';

edit1.text:='';

end;

end.

Delphi - .....................................

TMemo bileşeninde sayısal değer kontrolü

NeverFear - kaheri579@hotmail.com

1.TForm üzerine 1 adet TMemo bileşeni bırakın.

2.TMemo özelliklerini Height->21, Alignment->taRightJustify, WantReturns->False,

WordWrap->False olarak ayarlama yapın.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure Memo1Exit(Sender: TObject);

procedure Memo1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

function IsInteger(X: string): boolean;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

end;

function IsInteger(X: string): boolean;

var X_int: integer;

begin

Result:= True;

try

X_int:= StrToInt(X);

except on EConvertError do

Result:= False;

end;

procedure TForm1.Memo1Exit(Sender: TObject);

begin

if Memo1.Text <> '' then

begin

if not IsInteger(Memo1.Text) then //Memo1.Text'e girilen değerin sayısal olup

//olmadığı kontrol ediliyor. Sayısal değilse "raise" devrede.

raise EIntError.Create(''' ' + Memo1.Text + ' '' sayısal bir değer değil..!')

else ShowMessage(''' ' + Memo1.Text + ' '' sayısal bir değer.');

end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then Memo1Exit(Memo1);

end;

end.

NOT: IsInteger fonksiyonunu, Mart 2006'da drony takma isimli arkadaşımız göndermiş ve

bu konuda başka kodlama yok. Ancak, arkadaşımız fonksiyonun kullanılması ile

ilgili herhangi bir kod eklememiş. Bunun üzerine, ben de, kullanımına ait örnek

kodlama gönderme ihtiyacı duydum. Ayrıca, yeni başlayanlar açısından yararlı

olacağı düşüncesindeyim.

İşinizi görmesi dileğimle,

Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com

Delphi - .....................................

WEB BROWSER KULLANIMI

formunuzun internet yaprağından bir adet web browser secin ve 4 adet buton 1.butonu (ana sayfa) 2.Butonu (Önceki sayfa) 3.Butonu (sonraki sayfa) ve 4.Butonu (Ara)

olarak atlandırın son olarak bir adette combobox yapıştırın

aşağıdaki kodları gerekli yerlere uygulayın.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleCtrls, SHDocVw;

type

TForm1 = class(TForm)

WebBrowser1: TWebBrowser;

ComboBox1: TComboBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure FormCreate(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

ComBoBox1.Items.Add('http://www.tugrulhamal.somee.com');

ComBoBox1.Items.Add('http://www.delphi.freezoka.com/index.php');

ComBoBox1.Items.Add('http://www.google.com');

ComBoBox1.Items.Add('http://.....................................');

ComBoBox1.Items.Add('http://www.superonline.com');

ComBoBox1.Items.Add('http://www.mynet.com');

ComboBox1.ItemIndex:=0;//ilk elemanı göster

WebBrowser1.Navigate(ComboBox1.Text);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

WebBrowser1.Navigate(ComboBox1.Text);

Button2.Enabled:=true;

Button3.Enabled:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WebBrowser1.GoHome;

ComboBox1.Text:=WebBrowser1.LocationURL;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

try

WebBrowser1.GoBack;

except

Button2.Enabled:=false;

Button3.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

//Sonraki Sayfaya Git

begin

try

WebBrowser1.GoForward;

except

Button3.Enabled:=false;

Button2.Enabled:=true;

end;

procedure TForm1.Button4Click(Sender: TObject);

//Arama Sayfasına Git

begin

WebBrowser1.GoSearch;

ComboBox1.Text:='www.mmicrosoftsourch.com';

end;

end.

Delphi - .....................................

MOUSE Simulasyon Yeni DBLCLİCK RCLİCK

/////////////click

begin

mouse_event(mouseeventf_leftdown,0,0,0,0);

mouse_event(mouseeventf_leftup,0,0,0,0);

end;

//////////////////

////////// Double click

var

i:integer;

for i:=0 to 1 do

begin

mouse_event(mouseeventf_leftdown,0,0,0,0);

mouse_event(mouseeventf_leftup,0,0,0,0);

end;

/////////////////////

/////// right click

begin

mouse_event(mouseeventf_rightdown,0,0,0,0);

mouse_event(mouseeventf_rightup,0,0,0,0);

end;

Delphi - .....................................

ExThreads Unit Basitçe Thread Kullanalım.

bu uniti sizin için hazırladım bir çoğumuz hala thread kullanımını bilmiyor.

threadi başlattıkdan sonra kapatmasınada dikkat etmek gerekir.

thread handlelerini bir yerde saklamak thread sonunda kapattırmak ve

üstüne üstlük thread sayısı arttıkça eziyet haline gelebilir.

beginthread ile bir thead açtığımızda fonksiyon işletilip bittiğinde

o thread durmuş olarak hala bellekden alan götürür. bunu engellemek için

thread ile işiniz bittiğinde kapatmanız gerekir. bu işi ExThreads uniti üstlenir.

birde video kaydettim burdan;

http://rapidshare.com/files/100114739/exthreads.avi.html

Unit1 Pas

---------

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Uses ExThreads;

procedure Prosedurumuz(TID:Pointer);

begin

// Kodlarımızı buraya yazalım

{ ---- }

StopThread(TID);

{ İşlem Bittiğinde Bu Çağrılmalı her ne kadar thread durmuş olsada hala bellekde }

End;

procedure TForm1.Button1Click(Sender: TObject);

Var

i:longint;

begin

for i:=1 to 500 do begin StartThread(Addr(Prosedurumuz)); end; // 500 tane thread aç.

{

if StartThread(Addr(Prosedurumuz)) then

begin

thread çalıştırıldı

end

else

begin

thread çalıştırılamadı

end;

}

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.Caption:=IntToStr(Threads_ActiveCount)+' İş Parçacığı.';

// if Threads_ActiveCount=0 then halt; // kaç thread aktif şu an..

Application.ProcessMessages;

end;

end.

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

ExThreads.pas

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

Unit ExThreads;

interface

uses

Windows;

Function StartThread(ThreadFunc: TThreadFunc):Boolean;

Procedure StopThread(TID:Pointer);

Function Threads_ActiveCount:LongInt;

Implementation

Const

MaxThread=65535;

Var

Threads:Array[1..MaxThread] Of LongWord;

Function GetEmty_TID:LongInt;

Var

I:LongInt;

Begin

Result:=0;

For I:=1 To MaxThread Do

Begin

If Threads[I]=0 Then

Begin

Result:=I;

Exit;

End;

Function Threads_ActiveCount:LongInt;

Var

I:LongInt;

Begin

Result:=0;

For I:=1 To MaxThread Do

Begin

If Threads[I]>0 Then

Begin

Result:=Result+1;

End;

Procedure StopThread(TID:Pointer);

Begin

CloseHandle(Threads[Integer(TID)]);

Threads[Integer(TID)]:=0;

End;

Function StartThread(ThreadFunc: TThreadFunc):Boolean;

Var

Temp:DWORD;

TID:LongInt;

Begin

Result:=False;

TID:=GetEmty_TID;

If TID>0 Then

Begin

Threads[TID]:=BeginThread(nil, 0, Addr(ThreadFunc), Pointer(TID), 0, Temp);

SetThreadPriority(Threads[TID], THREAD_PRIORITY_HIGHEST);

If Threads[TID]>0 Then

Begin

Result:=True;

End;

{ *-*--*-*----**-*--*-**-*-*--**--*-*-*-*-*-*-*-* }

Var

I:LongInt;

Begin

For I:=1 To MaxThread Do

Begin

Threads[I]:=0;

End;

End.

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

Delphi - .....................................

www.cozumhatti.com / içten sövgülerimle

{çözüm hattımısın nesin ikide bir güncelleme yaptığımda karşıma çıkma

brası paylaşım yeri reklam alanı diil en içten sövggülerimle }

//--bizim amacımız reklam diil paylaşım --

uses

ShellAPI;

function MakeDrop(const FileNames: array of string): THandle;

// Creates a hDrop Object

// erzeugt ein hDrop Object

var

I, Size: Integer;

Data: PDragInfoA;

P: PChar;

begin

// Calculate memory size needed

// berechne notwendig Speichergröße

Size := SizeOf(TDragInfoA) + 1;

for I := 0 to High(FileNames) do

Inc(Size, Length(FileNames[I]) + 1);

// allocate the memory

// alloziere den speicher

Result := GlobalAlloc(GHND or GMEM_SHARE, Size);

if Result <> 0 then

begin

Data := GlobalLock(Result);

if Data <> nil then

try

// fill up with data

// fülle daten

Data.uSize := SizeOf(TDragInfoA);

P := PChar(@Data.grfKeyState) + 4;

Data.lpFileList := P;

// filenames at the at of the header (separated with #0)

// am ende des headers nun die filenamen getrennt mit #0

for I := 0 to High(FileNames) do

begin

Size := Length(FileNames[I]);

Move(Pointer(FileNames[I])^, P^, Size);

Inc(P, Size + 1);

end;

finally

GlobalUnlock(Result);

end

else

begin

GlobalFree(Result);

Result := 0;

end;

function MyEnum(Wnd: hWnd; Res: PInteger): Bool; stdcall;

// search for a edit control with classname 'TEditControl'

// suche ein child fenster mit klassennamen 'TEditControl'

var

N: string;

begin

SetLength(N, MAX_PATH);

SetLength(N, GetClassName(Wnd, Pointer(N), Length(N)));

Result := AnsiCompareText('TEditControl', N) <> 0;

if not Result then Res^ := Wnd;

end;

// Example: Open msdos.sys in Delphi's Editor window

// Beispiel: msdos.sys im Delphi Editor öffnen

procedure TForm1.Button1Click(Sender: TObject);

var

Wnd: HWnd;

Drop: hDrop;

begin

// search for Delphi's Editor

// suche Delphis Editor Fenster

EnumChildWindows(FindWindow('TEditWindow', nil), @MyEnum, Integer(@Wnd));

if IsWindow(Wnd) then

begin

// Delphi's Editor found. Open msdos.sys

// Delphis editor gefunden, also öffne msdos.sys

Drop := MakeDrop(['c:msdos.sys']);

if Drop <> 0 then PostMessage(Wnd, wm_DropFiles, Drop, 0);

// Free the memory?

// Speicher wieder freigeben?

GlobalFree(Drop);

end;

Delphi - .....................................

Örnek Kodlarınızı kendiniz ekleyin hemen yayınlansın...

Örnek Kodlarınızı kendiniz ekleyin hemen yayınlansın...

Delphi - .....................................

www.cozumhatti.com

Örnek Kodlarınızı kendiniz ekleyin hemen yayınlansın...

Delphi - .....................................

Aplikasyon Maximize Handle Find Window

function FindWindowByTitle(WindowTitle: string): Hwnd;

var

NextHandle: Hwnd;

NextTitle: array[0..260] of char;

begin

// Get the first window

NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);

while NextHandle > 0 do

begin

// retrieve its text

GetWindowText(NextHandle, NextTitle, 255);

if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then

begin

Result := NextHandle;

Exit;

end

else

// Get the next window

NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);

end;

Result := 0;

end;

// Kullanılışı ... COMMANDX

procedure TForm1.Button1Click(Sender: TObject);

var

h: hwnd;

begin

h := FindWindowByTitle('Adsız - Not Defteri');

if h <> 0 then // if we found notepad

ShowWindow(h, SW_MAXIMIZE)

else

ShowMessage('not found.');

end;

end.

Delphi - .....................................