Programlama yapalım ve Öğrenelim.

Ekran Çözünürlüğünün Değiştirilmesi

Programınızdan ekran çözünürlüğünü değiştirmek isterseniz yararlı bir kod.

{Ekran Çözünürlüğü Örneği-PC'nizin Mevcut Ekran Ayarları}

// AnaForm üzerine ListBox1 ve Button1 bileşenlerini yerleştirin

{Ana formun OnCreate olayı}

procedure TForm1.FormCreate(Sender: TObject);

var

i : Integer;

DevMode : TDevMode;

begin

Button1.Enabled:=False;

i := 0;

while EnumDisplaySettings(nil,i,Devmode) do begin

with Devmode do

ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));

Inc(i);

end;

{ListBox1'in Onclick olayı}

procedure TForm1.ListBox1Click(Sender: TObject);

// Listede istenilen çözünürlük değeri seçildiğinde Button1'de kullanır hale getir

begin

Button1.Enabled := Listbox1.ItemIndex >= 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

// Seçilen çözünürlük değerini değerini uygula

var

DevMode : TDevMode;

begin

EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);

ChangeDisplaySettings(DevMode,0);

end;

Ekran çözünürlüğünün ekran tarafından desteklenmeyen değerlere ayarlanması ekranınızın bozulmasına neden olabilir.

Mouse'un Sağ Tuşuna Kullanmak

Mouse'un sağ tuşunun kullanımını anlatan küçük bir kod.

//bu örnekte form üzerinde mouse'un sağ tuşuna basılınca merhaba yazan bir mesaj çıkar

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if ssright in shift then begin

MessageDlg('Merhaba', mtInformation, [mbOk], 0);

end;

Varsayılan Browser ile Web Adresi Açmak

Programınızdan herhangi bir internet adresini açmak ister misiniz?

Aşağıdaki kodu girmeden önce programın uses komut satırına "Shellapi" tanımını girmelisiniz.

ShellExecute(0, nil, 'http://www.programlama.com', nil, nil, SW_SHOWDEFAULT);

Sayıları Formatlı Yazdırmak

Eğer bir ticari program yazıyorsanız, veritabanında bulunmayan bir alanda para ya da benzeri cinsten bir büyüklük göstermek istiyorsanız, ve müşteriniz sizden rahat okuma talep etmişse aşağıdaki kod işinizi görecektir.

procedure TForm1.Button1Click(Sender: TObject);

var

a,i:integer;

s:string;

begin

s:=Edit1.Text;

i:=length(s);

if pos(',',s) <>0 then exit;

for a:=1 to i-1 do if (a mod 3)=0 then insert(',',s,i-a+1);

Edit1.text:=s;

end;

Final Diyaloğunu Açıp Kapatmak

Find diyalog penceresini açıp kapatan bir kod.

H:=FindWindow(PChar('#32770'),Nil); // #32770 Find diyalog'un sınıf adıdır.

If H = 0 Then // eğer Find diyalog'u açık değilse onu aç...

Begin

With dd1 Do

Begin

ConnectMode:=ddeManual;

ServiceApplication:='explorer.exe';

SetLink('Folders','AppProperties');

OpenLink;

ExecuteMacro('[FindFolder(,C:Dene)]',False);

CloseLink;

End;

H:=FindWindow(PChar('#32770'),Nil);

End;

ShowMessage('Find File Dialogunu gizle...!!');

ShowWindow(H,SW_HIDE);

ShowMessage('Find File Dialogunu göster...!!');

ShowWindow(H,SW_SHOW);

Ana Formunuzu Gizleyin

Programınız çalıştığında Ana Formunuzun görünmesini istemiyor musunuz? Çok kolay aşağıdaki kodu projenize ekleyin.

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin

Application.Initialize;

Application.ShowMainForm := False;

Application.CreateForm(TForm1, Form1);

Application.Run;

end;

******************************************

WİNDOWS API

Belgeler menüsüne bir dosya ekleme

uses kısmına ShlOBJ unitini ekleyin;

procedure TForm1.Button1Click(Sender: TObject);

var

s : string;

begin

s := 'C:DownLoaddeneme.html';

SHAddToRecentDocs(SHARD_PATH, pChar(s));

end;

Belgeler menüsünü temizleme

uses kısmına ShlOBJ unitini ekleyin;

SHAddToRecentDocs(SHARD_PATH, nil);

Duvar kağıdını değiştirmek

var

s: string;

begin

s := 'c:windowsathena.bmp';

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(s),0);

Başlat butonunu gizlemek veya kullanılmaz hale getirmek

procedure TForm1.Button1Click(Sender: TObject);

var

Rgn : hRgn;

begin

// Başlat butonunu gizle

Rgn := CreateRectRgn(0, 0, 0, 0);

SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

Rgn,

true);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//Gizlenen Başlat butonunu eski haline döndürmek için

SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

true);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

//Başlat butonunu kullanılmaz yap

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

false);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

//Kullanılmaz yapılan Başlat butonunu eski haline getirmek için

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),

'Button',

nil),

true);

end;

Bir programın çalıştırılması

WinExec('c:windowscalc.exe',sw_show);

WinExec('C:WINDOWSNOTEPAD.EXE C:WINDOWSWIN.INI', SW_SHOWNORMAL);

WinExec('COMMAND.COM', SW_SHOWNORMAL);

WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);

Harddiskin seri numarasının bulunması

procedure TForm1.Button1Click(Sender: TObject);

var

VolumeSerialNumber : DWORD;

MaximumComponentLength : DWORD;

FileSystemFlags : DWORD;

SerialNumber : string;

begin

GetVolumeInformation('C:',

nil,

@VolumeSerialNumber,

MaximumComponentLength,

FileSystemFlags,

nil,

0);

SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +

IntToHex(LoWord(VolumeSerialNumber), 4);

Memo1.Lines.Add(SerialNumber);

end;

Windows ve System klasörlerinin bulunması

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;

Windows lisans bilgilerinin (isim ve şirket) bulunması

uses kısmına Registry unitini ekleyin;

procedure TForm1.Button1Click(Sender:TObject);

var

reg: TRegIniFile;

begin

reg := TRegIniFile.create('SOFTWAREMICROSOFTMS SETUP (ACME)');

Memo1.Lines.Add(reg.ReadString('USER INFO',

'DefName',

'Mustafa ŞİMŞEK'));

Memo1.Lines.Add(reg.ReadString('USER INFO',

'DefCompany',

'Bilgisayar Bilimleri Müh.'));

reg.free;

end;

Speakerdan Beep sesi çıkartma

MessageBeep(word(-1));

Bir Denetim Masası uygulamasını çalıştırmak

Control Panel uygulamaları WindowsSystem klasörü altında bulunur. *.CPL uzantılı dosyalardır. Bu uygulamaları Control.Exe programı ile çalıştırabilirsiniz. Bazı Control Panel uygulamaları WindowsSystem klasöründe bulunmaz. Bunların ismini vererek çalıştırabilirsiniz.

WinExec('C:WINDOWSCONTROL.EXE TIMEDATE.CPL', sw_ShowNormal);

WinExec('C:WINDOWSCONTROL.EXE MOUSE', sw_ShowNormal);

WinExec('C:WINDOWSCONTROL.EXE PRINTERS', sw_ShowNormal);

Windows'u kapatmak veya yeniden başlatmak(reboot)

ExitWindowsEx(EWX_SHUTDOWN,0); //yeniden başlatmak için EWX_REBOOT

Ekran koruyucusunu kapatmak ve açmak

//kapatmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

nil,

0);

//açmak için

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

nil,

0);

Ekran kartım kaç rengi destekliyor

Ekran kartınızın kaç rengi desteklediğini aşağıdaki kodla bulabilirsiniz.

(1 shl (GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) *

GetDeviceCaps(Form1.Canvas.Handle, PLANES)));

Windows Gezginini istediğiniz bir klasörle açma

uses kısmına ShellApi unitini ekleyin.

ShellExecute(0,

'explore',

'C:WINDOWS', //buraya açmak istediğiniz klasörü yazın.

nil,

SW_SHOWNORMAL);

Windows'un Bul (Find File) diyalog penceresini istediğiniz bir klasörle açma

Windows'ta Başlat->Bul->Dosyalar ve Klasörler ile açtığınız Bul diyalog penceresini Delphi içerisinden hem de istediğiniz yolu vererek çalıştırabilirsiniz.

uses kısmına ddeman unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

begin

with TDDEClientConv.Create(Self) do begin

ConnectMode := ddeManual;

ServiceApplication := 'explorer.exe';

SetLink( 'Folders', 'AppProperties');

OpenLink;

ExecuteMacro('[FindFolder(, C:DOWNLOAD)]', False); //diyalog açıldığında konum kısmında

CloseLink; //olmasını istediğiniz klasör.

Free;

end;

Pencerenin kapatma düğmesini etkisiz hale getirme

Pencerenin başlık çubuğunda bulunan kapatma düğmesini (X) etkisiz hale getirebilirsiniz. Aynı zamanda sistem menüsündeki Kapat(Close) seçeneğide kaybolur. Bunun için aşağıdaki gibi bir kod yazmalısınız.

procedure TForm1.Button1Click(Sender: TObject);

var

hwndHandle : THANDLE;

hMenuHandle : HMENU;

begin

hwndHandle := FindWindow(nil, 'Form1'); //Form1 pencerenin başlığını göstermektedir.

if (hwndHandle <> 0) then begin //Burayı uygulamanıza göre değiştirin

hMenuHandle := GetSystemMenu(hwndHandle, FALSE);

if (hMenuHandle <> 0) then

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;

Uygulamam Windows her açıldığında otomatik çalışsın

uses kısmına Registry unitini ekleyin.

{$IFNDEF WIN32}

const MAX_PATH = 144;

{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',false);

reg.WriteString('Uygulamam', uygulamanızın_yolu_ve_adı);

reg.CloseKey;

reg.free;

end;

Klasöre Gözat diyalogunu kullanarak bir klasörü seçme

uses kısmına ShellAPI ve ShlObj unitlerini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

var

TitleName : string;

lpItemID : PItemIDList;

BrowseInfo : TBrowseInfo;

DisplayName : array[0..MAX_PATH] of char;

TempPath : array[0..MAX_PATH] of char;

begin

FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

BrowseInfo.hwndOwner := Form1.Handle;

BrowseInfo.pszDisplayName := @DisplayName;

TitleName := 'Lütfen bir klasör seçin';

BrowseInfo.lpszTitle := PChar(TitleName);

BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;

lpItemID := SHBrowseForFolder(BrowseInfo);

if lpItemId <> nil then begin

SHGetPathFromIDList(lpItemID, TempPath);

ShowMessage(TempPath);

GlobalFreePtr(lpItemID);

end;

Bir web adresini açma

uses kısmına Shellapi unitini ekleyin;

ShellExecute(Handle,

'open',

'http://www.geocities.com/siliconvalley/campus/4958/',

nil,

sw_ShowMaximized);

Bir DOS programını çalıştırma ve çalışması bitince penceresini kapatma

WinExec('command.com /c progdos.exe',sw_ShowNormal); //progdos.exe çalıştırılıyor.

(* eğer ikinci paremetreyi sw_Hide yaparsanız kullanıcı programın çalıştığını görmez. *)

Alt + Tab ve Ctrl + Esc tuşlarının kullanılmaz hale getirilmesi

var

OldVal : LongInt;

begin

SystemParametersInfo (97, Word (True), @OldVal, 0)

(* Word(False) ile kullanırsanız tuşları tekrar kullanabilirsiniz. *)

Bir menü öğesine resim ekleme

procedure TForm1.FormCreate(Sender: TObject);

var

Bmp1 : TPicture;

begin

Bmp1 := TPicture.Create;

Bmp1.LoadFromFile('c:denemeturkey.bmp');

SetMenuItemBitmaps( deneme1.Handle,

MF_BYPOSITION,

Bmp1.Bitmap.Handle,

Bmp1.Bitmap.Handle);

end;

Ağ ortamında makinenin ismini bulma

procedure TForm1.Button1Click(Sender: TObject);

var

Makine_ismi:array[0..255] of char;

BufferSize:DWORD;

begin

BufferSize:=SizeOf(Makine_ismi);

GetComputerName(@Makine_ismi,BufferSize);

Showmessage(Makine_ismi);

end;

Ağ ortamında login olmuş kullanıcı ismini bulma

procedure TForm1.Button1Click(Sender: TObject);

var

Kullanici_ismi:array[0..255] of char;

BufferSize:DWORD;

begin

BufferSize:=SizeOf(Kullanici_ismi);

GetUserName(@Kullanici_ismi,BufferSize);

Showmessage(Kullanici_ismi);

end;

Ekran çözünürlüğünü nasıl öğrenirim

Screen.Width //yatay çözünürlük

Screen.Height //dikey çözünürlük

MessageDlg('Şu anda ' + IntToStr( Screen.Width ) +' x '+

IntToStr( Screen.Height )+' çözünürlükte çalışıyorsunuz',

mtInformation, [mbOk], 0 );

Taskbar'ın (Görev çubuğu) AutoHide özelliği açık mı, kapalı mı?

uses kısmına ShellAPI unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

var

ABData : TAppBarData;

begin

ABData.cbSize := sizeof(ABData);

if (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0 then

Showmessage('Autohide özelliği açık');

end;

rogramım biraz beklesin

Bazı işlemlerden sonra diğer bir işlemi çalıştırmadan önce bir süre beklemek istersiniz. Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen değer milisaniye cinsindendir. (1 saniye=1000 milisaniye)

Sleep(10000) //10 saniye bekler

Caps lock tuşu açık mı, kapalı mı?

if (GetKeyState(VK_CAPITAL) and $01)<>0 then

Showmessage ('caps lock açık');

İmleci (cursor) gizleyip, tekrar gösterme

ShowCursor(False) //imleci gizler

ShowCursor(True) //imleci tekrardan gösterir.

Ekran görüntüsünü alın

procedure TForm1.Button1Click(Sender: TObject);

var

DCDesk: HDC;

begin

DCDesk:=GetWindowDC(GetDesktopWindow);

BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);

ReleaseDC(GetDesktopWindow, DCDesk);

end;

Not: Yukarıdaki kod ekran görünütüsünü form üstüne alır. Image bileşeni içine ekran görüntüsünü almak için form üzerine bir image bileşeni yerleştirin ve Form1.Canvas.Handle yerine Image1.Canvas.Handle yazın.

Map Network Drive diyalogunu açma

WNetConnectionDialog ( 0, RESOURCETYPE_DISK );

Bir dosyayı bağlantılı olduğu uygulama ile açma

uses kısmına shellapi unitini ekleyin.

shellexecute(0,'open', 'c:test2.avi','','',SW_NORMAL);

Temp klasörünü bulma

procedure TForm1.Button1Click(Sender: TObject);

var

temp_klasor: array[0..MAX_PATH] of char;

begin

GetTempPath(SizeOf(temp_klasor), @temp_klasor);

ShowMessage(temp_klasor);

end;

Ekran koruyucuyu çalıştırmak

PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);

Güç koruma modunda (Power Safe Mode) çalışan monitörü kapatıp açma

Monitörü kapatmak için :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Monitörü açmak için :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

Windows Tarih/Saat Özellikleri (Date/Time Properties) iletişim kutusunu açma

Winexec('Control.exe Date/Time',sw_shownormal);

******************************************

DLL Uygulaması

Selamlar ;

Bir aksaklık olmazsa bundan böyle Delphi çerçevesinde programcılık hakkında yazılarımla, sizlerle olacağım. Yani yazılarımız Delphi üzerine olmasına karşın, programcılığa da değineceğiz.

İlk cümlem bu olmadı ama şunu da dikkate almanızı dilerim, Delphi de uzman bir programcı değilim, Delphi’nin ne kadarını bildiğimi de bilmiyorum, Programcılıkta ne seviye de olduğumuda onun için bir şey iddia etmiyorum, bilgiyi paylaşalım diyorum.

Ben Delphi’ye yavaşça girecektim ama arkadaşlarla yaptığımız tartışmalarda, direk uygulama yazmaya karar verdim (Aslında arkadaşlar haklı, ben de haklıyım ama onlar daha haklı). Yani herkesin Delphi’yi kullanmayı bildiği ve birçok kavrama aşina olduğu varsayılarak yazılarımı yazacağım.

İlk uygulamamız DLL uygulaması olsun, ama sonuna kadar da incelemeden bırakmayalım. Her bi saçma gelen ayrıntıyı bile inceliyelim.

Di-El-El, nedir DLL, sizler için gittim olayi M$ fabrikasında inceledim, Amerikalıların icad ettiği ve bütün dünyadan da kabul gören (çok da iyi bir şey) kısatmalardan bir tanesi, hemen açalım yoksa anlayamıyacaz olayı; Dynamic Link Library (Dinamik Bağlantılı Kütüphaneler) bi sorunumuz var tabii açılmışı da açmak gerekiyor. Onu da açıklarsak Dinamik, hareket halinde olan, enerjik faal, durağan olmayan anlamlarına geliyor. Link te bildiğimiz bağlantı. Birleştirelim, Bağlantısı durağan olması gerekmeyen, dilediğimiz zaman bağlanıp işimiz bittikten sonra kopabileceğimiz kütüphane oluyor, Di-El-El. DLL lerin rutinleri başka programlar tarafından çağrılabilir ve programa derleme sırasında bağlanmazlar, program çalışırken istediğimiz bir anda DLL’e iş yaptırabilir.

DLL sayesinde bir çok program tarafından kullanılan işlemler tekbir DLL de bir sefer yazılabilir ve tüm programlar diledikleri anda DLL’e bu işleri yaptırabilirler, böylece fazla kodlamadan ve kargaşadan kurtulunmuş olur. Windows’un DLL ler üzerine kurulmuş olduğunu, ve DLL’in windows için herşey gibi bir şey olduğunu söylesem yalan olmaz. Bunu dikkate alın ve DLL ruhunu kavrarsanız Windows’a hakim olmaya başlıyorsunuz demektir. Hadi başlayalım.

Öncelikle Delphi nasıl DLL yapar ?

Delphi bir yazıyı derlemeden önce ilk satırı olan,

Program Project1;

Library Project1;

Unit Project1;

Gibi satırlara bakarak ona göre derleme yapar, zeki olanlar hemen anladılar tabii. Evet Bir DLL yapmak için

1-) Delphi’yi açalım, her zamanki gibi New Application diyelim bize Form ve Üzerinde Unit Unit1; yazılı kod penceremiz gelecektir. View ve Project Source dediğimizde bize Unit1 den başka ile düzey yazılarımızda da kullandığımz Proje kodları gelir. Burada

program Project1; ve diğer kodlaro göreceksiniz. program Project1; yazısının yerine Library Project1; yazarsanız ve Derlerseniz programınızın Exe değil DLL uzantısı ile derlendiğini göreceksiniz. İşte bir DLL yaptınız.

2-) Delphi’yi açalım sadece New diyelim, karşımıza Yeni oluşturabileceğimiz bir çok şey çıkacaktır biz şimdilik bunlardan DLL ile ilgilendiğimiz için DLL’i seçin (soldan 4.cü). Proje kod ekranı karşımıza çıkıyor save as deyip kaydedelim ve yine bir DLL oluşturdunuz.

Şimdi, oluşturduğumuz DLL ler hiçbir şey yapmıyor sadece oluşturmayı öğrendik. DLL’in içine ne yazarız ne yapabiliriz buna bakalım.

Baştan başlayalım, Delphi deyiz, New, ve oradan DLL yi seçelim. Kod pencersindeyiz.

library Project1;

uses

SysUtils,

Classes;

begin

end.

Yazıyor.

library Project1;

uses

SysUtils,

Classes;

function trscene:integer;export;

begin

result:=9;

KODLAR

Dosya Kopyalama (1)

Procedure FileCopy( Const sourcefilename, targetfilename: String );

Var

S, T: TFileStream;

Begin

S := TFileStream.Create( sourcefilename, fmOpenRead );

try

T := TFileStream.Create( targetfilename,

fmOpenWrite or fmCreate );

try

T.CopyFrom(S, S.Size ) ;

finally

T.Free;

end;

finally

S.Free;

end;

End;

DOSYA KOPYALAMA 2

procedure FileCopy(const FromFile, ToFile: string);

var

FromF, ToF: file;

NumRead, NumWritten: Word;

Buf: array[1..2048] of Char;

begin

AssignFile(FromF, FromFile);

Reset(FromF, 1); { Record size = 1 }

AssignFile(ToF, ToFile); { Open output file }

Rewrite(ToF, 1); { Record size = 1 }

repeat

BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

BlockWrite(ToF, Buf, NumRead, NumWritten);

until (NumRead = 0) or (NumWritten <> NumRead);

CloseFile(FromF);

CloseFile(ToF);

end;