Anasayfa > Lazarus > Everything is Kernel – Her yol Kernel’a çıkar…

Everything is Kernel – Her yol Kernel’a çıkar…


Pascal veya diğer dillerle yapmış olduğumuz uygulamardaki bir çok fonksiyonun detaylarını incelediğimizde sizi bir şekilde windowsun fonksiyonlarına yönlendirecektir.

Örneğin elimizde dosyanın var olup olmadığını inceleyen komut olan FileExists(const filename:string):boolean; olsun.

Ctrl ve mouse left kilik ile detayına gidelim filutilh.inc dosyası açılacaktır. (Bu denemeyi lazarus ile yaptım)

Burada da Ctrl+Shift+Aşağı Ok tuşuna bastığımızda ise

Function FileExists (Const FileName : String) : Boolean;
var
Attr:Dword;
begin
Attr:=GetFileAttributes(PChar(FileName));
if Attr <> $ffffffff then
Result:= (Attr and FILE_ATTRIBUTE_DIRECTORY) = 0
else
Result:=False;
end;

ile karşılaşırız esas komut ise GetFileAttributes(PChar(FileName)); dür buna da Ctrl+mouse left kilik yaptığımızda ise kernel32 içerisinden referans edilmiş olan komut yapısını görebilir.

Tabi ki bu işlemi muhtemelen bir çoğumuz gerçekleştirdik ve gördük ancak varmak istediğim nokta şu FileExists değil de bir çok fonksiyonu eğer sık kullanmıyorsak kendimiz de tanımlar ve hafızadan tasarruf edebiliriz.

Hatasız ve sorunsuz kodlamalar…

 

Kategoriler:Lazarus
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Görüşlerinizi belirtin

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s