Delphi dersleri - ders 5- devam Başlat Menüsü Programlarının Tespit Edilmesi

Başlat menüsünde hangi programların bulunduğunu tespit eden bir kod parçası.Forma bir ListBox, bir Buton, birde DDEClientConv nesnesi ekleyip, Service ve Topic özelligini "Progman" olarak giriniz.

var

B:Pchar;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.Items.clear;

B := DDEClientConv1.RequestData('Groups');

ListBox1.Items.SetText(B);

StrDispose(B);

end;

Register Kullanım Örneği

Windows açılırken programınızın otomatik olarak başlatılıp başlatılmamasını nasıl ayarlarsınız. İşte size güzel bir örnek kod.Formunuza CheckBox Ekleyin ve adını Autorun yapın ( veya ne isterseniz.) ve formun Close Olayına Aşağıdaki kodları yazın.

procedure Tfilesetup.FormClose(Sender: TObject; var Action: TCloseAction);

var

AppExe :string;

begin

if autorun.Checked=true then begin

with TRegistry.Create do

try

RootKey := HKEY_CURRENT_USER;

if OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true) then

AppExe:=#34+Application.Exename+#34;

WriteString('Proton', AppExe);

finally

end;

end;

//DeleteValue('Proton'); İse Programınız Registry den Siler

end;

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;

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;

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;