WINAPI
· Windows'u Kapatmak ya da Yeniden Başlatmak (ShellApi)
ExitWindowsEx(EWX_SHUTDOWN); // Kapat
ExitWindowsEx(EWX_REBOOT); // Yeniden başlat
· Kontrol Panelinde Tarih ve Saat Ayarlarını Açmak
ShellExecute(Handle,'Open','Control','date/time',nil,sw_show);
· Bir Windows Programını Çalıştırmak
Winexec ('Programın Adı',sw_normal);
VERİTABANI
· Master/Detail Tablolarda Silme İşlemi (Delphi Tips'ten)
procedure TForm1.Table1BeforeDelete(DataSet: TDataset)
begin
with Table2 do begin
DisableControls;
First;
While not EOF do
Delete;
EnableControls;
end;
end;
// Silme işleminin önce detay tabloda (Table2) tüm kayıtlar için yapılıp sonra ana tablonun (Table1) tek kaydının silineceğine dikkat ediniz.
VLC
· Yuvarlak köşeli form oluşturmak
procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
{ köşelerden 30 pixel keser }
region:=CreateRoundRectRgn(1, 1, 484, 312, 30, 30);
SetWindowRgn(handle, region, true);
end;