Menü'ye bitmap (resim) ekleme;
procedure TForm1.FormCreate(Sender: TObject);var Bmp1 : TPicture;begin Bmp1 := TPicture.Create; Bmp1.LoadFromFile('c:\deneme\turkey.bmp'); SetMenuItemBitmaps( deneme1.Handle, 0, MF_BYPOSITION, Bmp1.Bitmap.Handle, Bmp1.Bitmap.Handle);end;Alt + Tab ve Ctrl + Esc tuslarinin kullanilmaz hale getirilmesi;
var OldVal : LongInt;begin SystemParametersInfo (97, Word (True), @OldVal, 0) //Word(False) ile kullanirsaniz tuslari tekrar kullanabilirsiniz.Windows ve System klasörlerinin bulunmasi
procedure TForm1.Button1Click(Sender: TObject);var a : Array[0..144] of char;begin GetWindowsDirectory(a, sizeof(a)); ShowMessage(StrPas(a)); GetSystemDirectory(a, sizeof(a)); ShowMessage(StrPas(a));end;
Speakerdan Beep sesi çikartma
MessageBeep(word(-1));
Belgeler menüsüne bir dosya ekleme
uses kismina ShlOBJ unitini ekleyin;
procedure TForm1.Button1Click(Sender: TObject);var s : string;begin s := 'C:\DownLoad\deneme.html'; SHAddToRecentDocs(SHARD_PATH, pChar(s));end;
Belgeler menüsünü temizleme
uses kismina ShlOBJ unitini ekleyin;
SHAddToRecentDocs(SHARD_PATH, nil);
Bir web adresini açma
uses kismina Shellapi unitini ekleyin;
ShellExecute(Handle, 'open', 'http://emreoz.cjb.net', nil, nil, sw_ShowMaximized);
Bir DOS programini çalistirma ve çalismasi bitince penceresini kapatma
WinExec("command.com /c progdos.exe",sw_ShowNormal); //progdos.exe çalistiriliyor.
//eger ikinci paremetreyi sw_Hide yaparsaniz kullanici programin çalistigini görmez.

Uygulamanizin Görev Çubugundaki butonunu gizleme
Uygulamanizin Görev Çubugundaki butonunu gizlemek için programinizin ana formunun OnCreate olayina asagidaki kodu yazin;
SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);
Ekran koruyucusunu kapatmak ve açmak
//kapatmak içinSystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);//açmak içinSystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
Alt+F4 tus kombinasyonuyla programin kapanmamasi için
Formun OnCreate olayina;
KeyPreview := true;Formun OnKeyDown olayina;
if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;
Hareketli imleç(animated cursor)leri kullanma
procedure TForm1.Button1Click(Sender:TObject);var h : THandle;begin h := LoadImage(0, 'C:\TheWall\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;
Windows lisans bilgilerinin (isim ve sirket) bulunmasi
uses kismina Registry unitini ekleyin;
procedure TForm1.Button1Click(Sender:TObject);var reg: TRegIniFile;begin reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\'); Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefName', 'Emre ÖZ')); Memo1.Lines.Add(reg.ReadString('USER INFO', 'DefCompany', 'Bilgisayar Bilimleri Müh.')); reg.free;end;
Çok Satirli ipucu
procedure TForm1.FormCreate(Sender: TObject);begin SpeedButton1.Hint:='Çok satirli ipucunu '+chr(13)+ 'mutlaka denemelisiniz '+chr(13)+ 'çok güzel';end;
Bir klasörü ve onun altindaki tüm dosyalari ve klasörleri silme
Ancak salt okunur (read only) özelligi olan ve kullanimda olan dosyalar silinmez.
procedure TForm1.Button1Click(Sender: TObject);var DirInfo: TSearchRec; r : Integer;begin r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo); while r = 0 do begin if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name)) = false then ShowMessage('C:\Download\test\'+DirInfo.Name+' silinemiyor!!!'); r := FindNext(DirInfo); end; SysUtils.FindClose(DirInfo); if RemoveDirectory('C:\Download\Test') = false then ShowMessage('C:\Download\test klasörü silinemiyor!!!');end;