Alt+F4 tuş kombinasyonuyla programın kapanmaması için

Formun KeyPreview özelliğini True yapın, daha sonra formun OnKeyDown olayına aşağıdaki kodu yazın.  

if ((ssAlt in Shift) and (Key = VK_F4)) then
     Key := 0;

 Bir string'in başındaki ve sonundaki boşlukları atmak için 

Trim(string) 
TrimLeft (string)  //stringin sadece başındaki boşlukları atmak için
TrimRight (string) //stringin sadece sonundaki boşlukları atmak için

Listbox'a, Memo'ya ve Combobox'a bir seferde birden çok eleman eklemek

Listbox1.items.SetText('Ali'#13'Veli'#13'kırkdokuzelli');

Memo1.Lines.SetText('Ali'#13'Veli'#13'kırkdokuzelli');

Combobox1.items.SetText('Ali'#13'Veli'#13'kırkdokuzelli');

II. Yol : Mustafa Kılınç tarafından gönderilmiştir.

procedure TForm1.Button1Click(Sender: TObject);
var
 gelen : TStringList;
begin
 gelen := TStringList.Create;
 gelen.sorted := True;
 gelen.Duplicates := dupIgnore;
 gelen.Add('evli');
 gelen.Add('bekar');
 gelen.Add('Dul');
 ComboBox1.Items.Assign(gelen);
 gelen.free;
end;

Memo içinde imlecin hangi satır ve kolonda olduğunu bulma

var
  LineNum:logint;
  CharsBeforeLine:logint;
begin
  LineNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
  CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,LineNum,0);
  Label1.Caption:='Satır'+IntToStr(LineNum+1);
  Label2.Caption:='Kolon'+IntToStr((Memo1.SelStart-CharsBeforeLine)+1);

ListBox veya ComboBox'ta seçili bir veya birden fazla öğeyi seçilmemiş hale getirme

ListBox1.ItemIndex := -1;

Combobox1.ItemIndex := -1;

Bir menü öğesini kullanılamaz hale getirmek

MainMenu1.Items[0].Items[1].Enabled:= False;  //ilk menünün, ikinci elemanı

Edit'e sadece sayı girilsin

Bir edit'e sadece istediğiniz karakterlerin girilmesini sağlayabilirsiniz. Bunun için Edit'in OnKeyPress olayına aşağıdaki kodu yazın.

if not (key in ['0'..'9',#8]) then
  begin
    Key:=#0;  //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür
    Beep;       //bip sesi ile kullanıcıyı uyar.
  end;

NOT: Kullanıcı Edit'e rakamların dışında karakter giremez, ancak Paste ile Edit'e bir metni kopyalayabilir. Bunuda Edit'in OnExit olayında kontrol edip, girilen değerin istediğiniz şekilde olup olmadığını kontrol edebilirsiniz.

Bir Popup menüyü kod ile gösterme

PopupMenu1.Popup(Form1.Left+60, Form1.Top+140);

Sistem tarihini ve saatini değiştirmek

Sistemin tarihini ve saatini değiştirmek için SetLocalTime fonksiyonunu kullanabilirsiniz.

var
  t:TSystemTime;
begin
  t.wYear:=1998;
  t.wMonth:=5;
  t.wDay:=23;
  t.wHour:=12;
  t.wMinute:=34;
  SetLocalTime(t);
end;
 Sayıları virgüllerle yazmak

Bu iş için FormatFloat fonksiyonunu kullanabilirsiniz. Sayı windows'unuz ayarına göre 12.345.678 veya 12,345,678 şeklinde gösterilir.

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := 12345678;
  Memo1.Lines.Add(FormatFloat('#,', i));

  Edit'e girilen metnin ilk harfini büyük harf yapma

Bunun için Edit'in OnKeyPress olayına aşağıdaki kodu ekleyin. 

with Sender as TEdit do
   if (SelStart = 0) or 
      (Text[SelStart] = ' ') then
         if Key in ['a'..'z'] then 
            Key := UpCase(Key);

Fareyi meşgul şekilde göstermek

Bir işlem yaparken makinenin meşgul olduğunu göstermek için fareyi kum saati şeklinde gösterip sonra eski haline getirmek için aşağıdaki gibi bir kod kullanabilirsiniz. 

try 
  Screen.Cursor := crHourGlass;
  {buraya kodunuzu yazın...} 
finally 
  Screen.Cursor := crDefault;
end;

 Çok Satırlı İpucu 

procedure TForm1.FormCreate(Sender: TObject);
begin
  SpeedButton1.Hint:= 'Çok satırlı ipucunu ' + chr(13) +
                               'mutlaka denemelisiniz ' +chr(13) +
                               'çok güzel';
end;

 Form'un arka kısmına bir resmi döşemek 

Bitmap: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('C:\WINDOWS\cars.BMP');
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y, W, H: LongInt;
begin
  with Bitmap do begin
    W := Width;
    H := Height;
  end;
  Y := 0;
  while Y < Height do begin
    X := 0;
    while X < Width do begin
      Canvas.Draw(X, Y, Bitmap);
      Inc(X, W);
    end;
    Inc(Y, H);
  end;
end;

 Hareketli İmleç(animated cursor)leri kullanma 

procedure TForm1.Button1Click(Sender:TObject);
var
  h : THandle;
begin
  h := LoadImage(0,
                 'C:\Magic.ani',
                 IMAGE_CURSOR,
                 0,
                 0,
                 LR_DEFAULTSIZE or
                 LR_LOADFROMFILE);
  if h = 0 then ShowMessage('Cursor not loaded') else begin
    Screen.Cursors[1] := h;
    Form1.Cursor := 1;
  end;
end;

 Sürücünün kapasitesini ve sürücüdeki boş yer miktarını bulmak

DiskFree(0) //o anki sürücüdeki boş yer miktarını byte cinsinden döndürür.
DiskSize(0) //o anki sürücünün kapasitesini byte cinsinden döndürür.
DiskSize(0) div 1024 //o anki sürücünün kapasitesini KB cinsinden döndürür.

Bir form üzerindeki tüm bileşenleri read only(salt okunur) yapma

uses kısmına typinfo unitini ekleyin.

procedure TForm1.SetReadOnly( Value : boolean ) ;
var
  PropInfo : PPropInfo ;
  Component : TComponent ;
  i : integer ;
begin
  for i := 0 to ComponentCount - 1 do begin
    Component := Components[ i ] ;
      if Component is TControl then begin
        PropInfo := GetPropInfo( Component.ClassInfo, 'ReadOnly' ) ;
          if Assigned( PropInfo ) and
             ( PropInfo^.PropType^.Kind = tkEnumeration ) then
               SetOrdProp( Component, PropInfo, integer( Value ) ) ;
      end ;
  end ;
end ;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetReadOnly( True ) ;
end;

Dikdörtgen olmayan Edit'ler  

Değişik şekilde bir edit elde etmek için formun OnCreate olayına aşağıdaki kodu yazın.

SetWindowRgn( Edit1.handle,
                      CreateRoundRectRgn(2, 2, Edit1.Width-2, Edit1.Height-2, 15, 15),
                      True);

Bir klasörün boyutunu öğrenmek

Bir klasördeki dosyaların kaç byte yer kapladığını öğrenmek için

function TForm1.GetDirectorySize(const ADirectory: string): Integer;
var
  Dir: TSearchRec;
  Ret: integer;
  Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

if Ret <> NO_ERROR then
   exit;

try
  while ret=NO_ERROR do
  begin
    inc(Result, Dir.Size);
    if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then
      Inc(Result, GetDirectorySize(Path + Dir.Name + '\*.*'));
      Ret := Sysutils.FindNext(Dir);
    end;
finally
  Sysutils.FindClose(Dir);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(intToStr(getdirectorysize('C:\windows')));
end;

Bir dosyanın özelliklerini gösterme

procedure TForm1.Button1Click(Sender: TObject);
var
  sei : TShellExecuteInfo;
begin
  FillChar(sei,SizeOf(sei),#0);
  sei.cbSize:=SizeOf(sei);
  sei.lpFile:=PChar('c:\windows\notepad.exe');
  sei.lpVerb:='properties';
  sei.fMask:=SEE_MASK_INVOKEIDLIST;
  ShellExecuteEx(@sei);
end;

Programım hangi klasörde çalışıyor

procedure TForm1.Button1Click(Sender: TObject);
var
  path: string;
begin
  Path := ExtractFilePath(ParamStr(0));
  Showmessage (path);
end;

II.Yol : Mustafa Kılınç tarafından gönderilmiştir.

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('Programınız ' +ExtractFilePath( Application.ExeName ) + 'klasöründe çalışıyor. ',
                   mtInformation, [mbOk], 0 );
end;

Bir dosyayı geri dönüşüm kutusuna (recyle bin) atmak

uses kısmına shellapi unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);
var
  T : TSHFileOpStruct;
begin
  FillChar(T,SizeOf(TSHFileOpStruct),#0);
  with T do
    begin
      Wnd:=0;
      wFunc:=FO_DELETE;
      pFrom:=Pchar('c:\test\2.avi');
      fFlags:=FOF_ALLOWUNDO;
    end;
  SHFileOperation(T);
end;

Bir dosyanın boyutunu bulmak

procedure TForm1.Button1Click(Sender: TObject);
var
  srFileSR: TSearchRec;
  sFileName, sFileSize: string;
begin
  sFileName := 'c:\test\2.avi';
  FindFirst(sFileName,faAnyFile,srFileSR);
  sFileSize := IntToStr(srFileSR.Size);
  Showmessage(sFileSize);
end;

Bmp dosyasını JPEG'e dönüştürme

uses kısmına jpeg unitini ekleyin. 

procedure TForm1.Button1Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MyBMP : TBitmap;
begin
  MyBMP := TBitmap.Create;
  with MyBMP do
    try
      LoadFromFile('c:\winnt\cars.bmp');
      MyJPEG := TJPEGImage.Create;
      with MyJPEG do begin
        Assign(MyBMP);
        SaveToFile('c:\winnt\cars.JPEG');
        Free;
      end;
  finally
    Free;
  end;
end;

Sayı Yuvarlama

24.499999 gibi bir sayıyı 24.5'e aşağıdaki kodla yuvarlayabilirsiniz.

procedure TForm1.Button1Click(Sender: TObject);
var
  getal : real ;
  AfgerondGetal :real;
begin
  Getal:=24.499999;
  AfgerondGetal:=round(Getal*100)/100;
  Edit1.Text:=floattostr(AfgerondGetal);
end;

{Bu kod Mustafa Kılınç tarafından gönderilmiştir}

Bir dosya yolunun (path) sonundaki  \  karakterini silme

Bunun için ExcludeTrailingPathDelimiter fonksiyonunu kullanabilirsiniz. Örneğin:

ShowMessage(ExcludeTrailingPathDelimiter(DirPath));

Dosya yolunun sonunda mutlaka  \  karakteri bulunsun

Bunun için IncludeTrailingPathDelimiter fonksiyonunu kullanabilirsiniz. Örneğin:

ShowMessage(IncludeTrailingPathDelimiter(DirPath));

İçinde bulunduğumuz ayın son gününü nasıl bulurum

function LastDayCurrMon: TDate;
var
  y, m, d: word;
begin
  decodedate(now, y, m, d);
  m := m + 1;
  if m > 12 then
  begin
    y := y + 1;
    m := 1;
  end;
  result := encodedate(y, m, 1) - 1;
end;

Escape tuşuna bastığımda form kapansın

Formun KeyPreview özelliğini True yapın. Daha sonra OnKeyPress olayına aşağıdaki kodu yazın.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if key = #27 then
    Close;
end;

Internetten dosya indirme (download)

uses kısmına ShellApi ve UrlMon unitlerini ekleyin.

function DownLoadInternetFile(Source, Dest : String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
  except
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SourceString, DestinationString: string;
begin
SourceString := 'http://www.tcmb.gov.tr/kurlar/today.html';
DestinationString := 'c:\bugun.html';

if DownLoadInternetFile(SourceString, DestinationString) then
  ShellExecute(Application.Handle, PChar('Open'), PChar(DestinationString), PChar(''), nil, SW_NORMAL)
else
  MessageDlg('Dosya indirilemedi!', mtError, [mbOK], 0);
end;

Environment Variable'ları bulma

Environment variable bilgisayardan bilgisayara değişen bazı klasör ve değişkenlere verilen isim. Mesela Belgelerim klasörü gibi. Bu klasörü bir bilgisayarda c:\Belgelerim iken diğerinde c:\Mustafa\Belgelerim olabilir. Bunların tam listesini komut satırından SET komutunu vererek öğrenebilirsiniz. Bu değişkenlerden bazıları : Windows klasörü, Bilgisayar ismi, Domain ismi, Kullanıcı ismi, işlemci bilgileri...

ShowMessage(GetEnvironmentVariable('Temp'));

Satır ekledikçe RichEdit aşağı doğru kaysın

  RichEdit1.Lines.Add('New text');
  RichEdit1.Perform(EM_SCROLL, SB_LINEDOWN, 0);

Integer'dan binary string'e çevirme

function IntToBinStr(num: integer): string;
var
  i: integer;
begin
  for i := 0 to 31 do
    Result := IntToStr((num shr i) and 1) + Result;
end;

Kullanılan fare'nin ortasında döndürme tekerleği var mı?

Bunu öğrenmek için mouse global nesnesini kullanabilirsiniz.

if Mouse.WheelPresent then
  ShowMessage('tekerlek var');

Delphi'nin çalışıp, çalışmadığını test etme

Bu daha çok shareware tarzı componentlerde çok kullanılıyor. Delphi açıkken component çalışıyor, ancak kapanınca exe dosyadan çalışmıyor. Kullanıcı componenti rahatça deniyor, ama dağıtamıyor. Aşağıdaki kodla Delphi'nin çalışıp, çalışmadığını anlayabilirsiniz :

if FindWindow('TAppBuilder', Nil) <> 0 then
  ShowMessage('Delphi çalışıyor');

Radio Grup'taki bir öğeyi kullanılamaz yapma

TRadioButton(RadioGroup1.Controls[1]). Enabled := False;

Programınızı Windows açılışında otomatik olarak çalışacak şekilde ayarlama

uses kısmına Registry unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
  reg.WriteString('Uygulamam', Application.ExeName);
  reg.CloseKey;
  reg.free;
end;

Listbox'a aralıklı (tab) öğeler ekleyin

Listbox'ın TabWidth özelliğini 100 olarak girin. Bu aradaki boşluğu belirtir. Daha Sonra eklemek istediğiniz öğeler arasına ^I (Tab karakteri) koyarak öğeleri ekleyin.

Listbox1.Items.Add ('Bir'^I'İki'^I'Üç');

HTML Help (.chm) yardım dosyasını Delphi ile kullanma

Delphi içerisinde herhangi bir HTML Help bileşeni gelmiyor ancak, EHS isimli bedava bileşen sayesinde HTML Help (.chm) dosyalarını Delphi ile kullanabilirsiniz. Bileşeni sitesinden indirebilirsiniz : www.ec-software.com

StringGrid'in her zaman ilk hücresi seçili oluyor, bunu istemiyorum

Aşağıdaki kodu projenize eklerseniz, stringGrid üzerinde seçili alan gözükmeyecektir.

procedure TForm1.FormCreate(Sender: TObject);
var
  grRect: TGridRect;
begin
  grRect.Left := -1;
  grRect.Top := -1;
  grRect.Right := -1;
  grRect.Bottom := -1;

  StringGrid1.Selection := grRect;
end;

Çalışma anında (runtime) StringGrid oluşturamıyorum

TWinControl sınıfından bileşenleri runtime oluştururken, mutlaka parent vermelisiniz. Hata büyük ihtimal bundan kaynaklanıyor. Örnek kod :

procedure TForm1.Button1Click(Sender: TObject);
var
  TmpStrGrid : TStringGrid;
begin
  TmpStrGrid := TStringGrid.Create(Self);
  TmpStrGrid.Parent := Form1;
  TmpStrGrid.Left := 30;
  TmpStrGrid.Top := 30;
end;

Edit'te yazarken binlik ayıracının gözükmesini istiyorum

Bu iş için bedava olan şu iki bileşeni kullanabilirsiniz : birincisi Rx Library/JVCL içindeki bir bileşen ( www.delphi-jedi.org ), ikincisi TAdvEdit ( www.tmssoftware.com ).

Animated gif kullanma

Bu iş için Rx Library / JVCL içindeki TRxGifAnimator isimli bileşeni kullanabilirsiniz. Bu paket bedava dağıtılmaktadır, www.delphi-jedi.org

Formun başlık çubuğunu (title bar) gizleme

Formun OnCreate olayına aşağıdaki kodu yazın :

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong( Handle,
    GWL_STYLE,
    GetWindowLong( Handle, GWL_STYLE )
    and not WS_CAPTION );
  ClientHeight := Height;
end;

Başka bir uygulamaya karakter gönderme

aşağıdaki örnek notepad uygulamasına A karakterini gönderir.

procedure TForm1.Button1Click(Sender: TObject);
var
  g,d:integer;
begin
 {uygulamanın ana penceresini bul}
 g:=FindWindow('Notepad',nil);
 {uygulama penceresindeki text box'ı bul}
 d:=ChildWindowFromPoint(g,point(50,50));
 {karakteri gönder}
 SendMessage(d,WM_CHAR,Ord('A'),0);
end;

Formları ve Nesneleri Taşımak

Formları başlık çubuğundan tutmadan taşımak için veya form üzerindeki herhangi bir nesneyi taşımak için, OnMouseDown olayına aşağıdaki kodu yazın.

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Form1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

F1, F2, F3 gibi Fonksiyon Kısayol Tuşlarını Kullanmak

Formun KeyPreview özelliğini True yapın ve OnKeyDown olayına aşağıdaki kodu yazın :

if Key = VK_F2 then
  begin
  {F2'ye basılırsa burdaki kod çalışır}
end;

Image'deki Resmi Boşaltma

image1.picture.bitmap := nil;

Bir Formu Runtime'da Oluşturup, Yok Etmek

Project menüsünden Options komutunu verin ve formu Avaible Forms kısmına taşıyın. Daha sonra aşağıdaki kodla formu gerektiği zaman oluşturup kullanabilir ve işi bitince yok edebilirsiniz. Böylece form boş yere hafızada yer işgal etmemiş olur.

try
  Form2 := TForm2.Create(Application);
  Form2.ShowModal;
finally
  Form2.Free;
end;

WebBrowser'da Bir Kelimeyi Bulma

Aşağıdaki fonksiyon istediğiniz kelimeyi webbrowser'da bulup aydınlatır.

{....}

  private
    procedure SearchAndHighlightText(aText: string);
     
{....}

procedure TForm1.SearchAndHighlightText(aText: string);
var
  i: Integer;
begin
  for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do
  begin
    if Pos(aText, WebBrowser1.OleObject.Document.All.Item(i).InnerText) <> 0 then
    begin
      WebBrowser1.OleObject.Document.All.Item(i).Style.Color := '#FFFF00';
      WebBrowser1.OleObject.Document.All.Item(i).ScrollIntoView(True);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SearchAndHighlightText('Aranan_Kelime');
end;

Internet Bağlantısını Kontrol Etmek

Bunun için bir kaç yöntem var :

1. www.google.com gibi bir siteye ping atıp atamadığını test edebilirsiniz.

2. TCP bileşenini kullanarak bu bileşenin LocalIP özelliğini kontrol edebilirsiniz. Eğer 0.0.0.0 ise internete bağlı değildir.

if TCP1.LocalIp = '0.0.0.0' then
  ShowMessage('Internete bağlı değilsiniz!');

3. Aşağıdaki Kod :

procedure TForm1.Button1Click(Sender: TObject);
function FuncAvail(_dllname, _funcname: string;
                    var _p: pointer): boolean;
{return True if _funcname exists in _dllname}
var _lib: tHandle;
begin
  Result := false;
  if LoadLibrary(PChar(_dllname)) = 0 then exit;
  _lib := GetModuleHandle(PChar(_dllname));
  if _lib <> 0 then begin
   _p := GetProcAddress(_lib, PChar(_funcname));
   if _p <> NIL then Result := true;
  end;
end;

{Win > Win98 de SHELL32.DLL i çağırın diğer işletim sistemlerinde URL.dll i çağırın }
{buton code:}
var
  InetIsOffline : function(dwFlags: DWORD):
                  BOOL; stdcall;
begin
  if FuncAvail('URL.DLL', 'InetIsOffline',
               @InetIsOffline) then
   if InetIsOffLine(0) = true
    then ShowMessage('Bağlı değil!')
    else ShowMessage('Internete Bağlı.');
 

Form Başlık Çubuğundan(title bar) Taşınamasın

Formun OnCreate olayına aşağıdaki kodu yazın :

procedure TForm1.FormCreate(Sender: TObject);
var
  hMenuHandle : HMENU;
begin
  hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); //Get the handle of the Form
  if (hMenuHandle <> 0) then
    DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND); //disable moving
end;

Kısayol Oluşturmak

Bedava olarak dağıtılan TurboPower ShellShock içindeki Shortcut bileşeni ile kolayca kısayol oluşturabilirsiniz.

Access Violation Hatası

Bu hata oluşturulmayan/olmayan bir nesneye ulaşmaya çalıştığınzda meydana gelir. Mesela henüz oluşturulmamış bir formu göstermek istediğinizde.

Genelde karşılaşılan durumlardan biri de DataModule kullananların, datamodule henüz oluşturulmadan burdaki nesneleri kullanmak istemeleridir. Eğer datamodule kullanıyorsanız, Project menüsünden Options komutunu verin. Forms sekmesinde, Auto-create forms kısmında datamodule'ü ilk sıraya taşıyın.

Jpeg'i bmp'ye çevirme

procedure TForm1.ConvertJpgToBitmap(Jpeg: TJpegImage);
var
   bmp: TBitmap;
   dir: String;
begin
   dir := GetWindowsDir;
   bmp := TBitmap.Create;
   try
     Jpeg := TJpegImage.Create;
     Jpeg.LoadFromFile('somejpeg.jpg');
     with bmp do
     begin
       Width := Jpeg.Width;
       Height := Jpeg.Height;
       Canvas.Draw(0, 0, Jpeg);
       SaveToFile('somebmp.bmp');
       Free;
     end;
   finally
     Jpeg.Free;
   end;
end;

Rastgele Sayı Üretme

RandomRange fonksiyonunu kullanabilirsiniz. Bu fonksiyon, verdiğiniz aralıkta rastgele(random) sayı üretir. Math unitini uses kısmına ekleyin.

RandomRange(0,4) // 0 ile 4 arasında rastgele sayı üretir.

Dosya Kopyalama

CopyFile fonksiyonu ile dosya kopyalayabilirsiniz. Sondaki parametre False ise aynı isimde dosya varsa üzerine yazar, True ise yazmaz.

CopyFile('c:\1.txt', 'c:\Mustafa\1.txt', False);

Çalışan Programların Listesini Alma

function EnumWindowsProc(Wnd: HWND; List: TStrings): Boolean; stdcall;
var
  ParentWnd: HWND;
  ExStyle: DWORD;
  Caption: array [0..255] of Char;
begin
  if IsWindowVisible(Wnd) then
  begin
    ParentWnd:=GetWindowLong(Wnd,GWL_HWNDPARENT);
    ExStyle:=GetWindowLong(Wnd,GWL_EXSTYLE);
    if ((ParentWnd=0) or (ParentWnd=GetDesktopWindow)) and
       ((ExStyle and WS_EX_TOOLWINDOW=0) or (ExStyle and WS_EX_APPWINDOW<>0)) and
        (GetWindowText(Wnd,Caption,SizeOf(Caption))>0) then
      List.AddObject(Caption,Pointer(Wnd));
  end;
  Result:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc,Integer(ListBox1.Items));
end;

Fareyi Kod ile Tıklatma

Bazı işlemleri yaparken fareyi bir konuma taşıyıp, otomatik tıklama yapmasını isteyebilirsiniz. Bu durumda SetCursorPos ile kursörü istediğiniz konuma taşıyıp, aşağıdaki kodu yazın :

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Harddisk'in Fabrika Seri Numarasını Bulma

Ide Diskler için : ide_sn.zip (4 KB), SCSI Diskler için : scsi_sn.zip (4 KB).

NOT : Windows 9x'te SMARTVSD.VXD isimli dosyayı "windows\system" klasöründen "windows\system\iosubsys" klasörüne kopyalayıp restart etmek gerekiyor.

TImage'deki Resmi Başka Bir TImage'a Atamak

ArkaPlan.Picture.Bitmap.Assign(image1.picture.bitmap); //image1'deki resim ArkaPlan'a atanır.

StringGrid'te Enter Tuşuna Basınca Yan Hücreye Geçsin

StringGrid'in OnKeyDown olayına aşağıdaki kodu yazın :

if (key = vk_return) and (StringGrid1.Col < StringGrid1.ColCount-1) then
  StringGrid1.Col:=StringGrid1.Col+1;
bimeks borland component database delphi delphi.net delphi dersleri firebird help interbase makale oracle seminer software sybase veritabanı web