|
 |
| |
» Sayıyı virgülle ayırmakvar
i : integer;
begin
i := 12345678;
Memo1.Lines.Add(FormatFloat('#,', i));
» Sistem Tarihini ve Saatini Degistirmek var
t:TSystemTime;
begin
t.wYear:=2005;
t.wMonth:=5;
t.wDay:=23;
t.wHour:=12;
t.wMinute:=34;
SetLocalTime(t);
end;
» Dos programı kullanmaWinExec('command.com /c progdos.exe',sw_ShowNormal);
» Taskbar işlemleriprocedure hideTaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
end;
procedure showTaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;
» Ses kaydı örneğiBu program mikrofondan sesi alip bir wav dosyasi içine kayit ediyor.
uses
MMSystem,
WinCrt;
function RecordSound(MMSecs: LongInt): LongInt;
var
DeviceID: Word;
Return: LongInt;
MciOpen: TMCI_Open_Parms;
MciRecord: TMCI_Record_Parms;
MciPlay: TMCI_Play_Parms;
MciSave: TMCI_SaveParms;
Result2: LongInt;
Flags: Word;
begin
MciOpen.lpstrDeviceType := 'waveaudio';
MciOpen.lpstrElementName := '';
Flags := Mci_Open_Element or Mci_Open_Type;
Result2 := MciSendCommand(0, MCI_OPEN, Flags, LongInt(@MciOpen));
DeviceID := MciOpen.wDeviceId;
WriteLn('Kayit');
MciRecord.dwTo := MMSecs;
Flags := Mci_To or Mci_Wait;
Result2 := MciSendCommand(DeviceID, Mci_Record, Flags, LongInt(@MciRecord));
WriteLn('Durdur');
mciPlay.dwFrom := 0;
Flags := Mci_From or Mci_Wait;
MciSendCommand(DeviceId, Mci_Play, Flags, LongInt(@MciPlay));
mciSave.lpfileName := 'Ses.Wav';
Flags := MCI_Save_File or Mci_Wait;
Result := MciSendCommand(DeviceID, MCI_Save, Flags, LongInt(@MciSave));
MciSendCommand(DeviceID, Mci_Close, 0, LongInt(nil));
end;
begin
WriteLn('Basla');
RecordSound(10000);
WriteLn('Bitir');
end.
» EXE oluşturmakDelphi , delphi ile birlikte gelen dcc.exe ile projeleri derliyor. (Delphi 3'de dcc32.exe)
Örnek olarak
dcc /cw /b uls.dpr
komutlar :
/cw : Windows için,
/cd : Dos için,
/cp: Korumali mod için.
/b: Hepsini tekrar olustur.
» Klasör ismini değiştirmeSysUtils unitindeki RenameFile fonksyonu ile yapabilirsiniz.
» 'Last Modified' bilgisini almakKullanımı: label1.Caption:=FileLastModified('c:\autoexec.bat') ;
~~~~~~~~~~~~~~~~~~~~~~~~~
function FileLastModified
(const TheFile: string): string;
var
FileH : THandle;
LocalFT : TFileTime;
DosFT : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;
begin
Result := '';
FileH := FindFirstFile(PChar(TheFile), FindData) ;
if FileH <> INVALID_HANDLE_VALUE then begin
Windows.FindClose(Handle) ;
if (FindData.dwFileAttributes AND
FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime
(FindData.ftLastWriteTime,LocalFT) ;
FileTimeToDosDateTime
(LocalFT,LongRec(DosFT).Hi,LongRec(DosFT).Lo) ;
LastAccessedTime := FileDateToDateTime(DosFT) ;
Result := DateTimeToStr(LastAccessedTime) ;
end;
end;
end;
[ İlk Sayfa << | >> | Son Sayfa ] Sayfalar : 2 / 38
|
|
 |
|
|
| |
| |
 Satılık Ramazan Davulu !
Tüm site dostlarına selamlar. Mübarek Ramazan geldi geçti. Adı ve tadı kaldı yâdigar. Bu toprakların yetiştirdiği büyük âlimlerden birinin, henüz çocuk yaşta kendisine sorulan bir soruya verdiği dâhiyane cevap ile geleceği ne kadar güzel tahmin ettiğini sizinle paylaşmak istiyorum. İsmi önemli değil, büyük alimlerimizden biri gençliğinde iken, farklı bir dinin mensubu bir din adamı tarafından, yaşına göre oldukça ağır bir soru ile imtihan olur. Zaman I. Dünya Harbinin Osmanlı'yı da içine çektiği zorlu yıllar. Soru şudur: "Söyle bakalım küçük bey, Osmanlı ve Avrupanın hâli nicedir?". Şu an yüzümüze bir tokat gibi gelecek olan akıl dolu cevap: "Durum odur ki, Osmanlı bir Avrupa'ya gebe, Avrupa da bir Osmanlı'ya gebedir.". Evet mâlesef Avrupanın günümüzdeki durumu, her konudaki başarısı ve üstünlüğü, Osmanlı'nın destansı tarihindeki günleridir. Biz ise kendim ettim kendim buldum misâli, kendi elimizle seçtiğimiz ahlaksız ve Allah korkusu olmayan idarecilerin yönettiği bir ülkenin fertleriyiz. Unutmamalıdır ki hepimiz bu günümüzden geleceğe, tüm bu olumsuzluklardan dolayı vebal sahibiyiz. Şahsi düşüncem olarak ülkenin geleceğe umutla bakabilmesi; dirayetli yöneticilerin başa geçmesi, millet olarak örfümüzle ve dinimizle barışık yaşamamız ile mümkün olacaktır. Avrupanın zorla kendine katmaya çalıştığı, hoşgörü ve sevgi bu toprağın insanının özünde vardır. Kardeşçe, samimi duygularla, bir bayrak altında geçireceğimiz nice ramazanlara ulaşmak dileğiyle...
Sağlıcakla kalın. Saygılarımla.
Mete YILMAZ |
|
 |
|
|
|
|
|
|
