Bir web adresini açma

 

uses kısmına Shellapi unitini ekleyin;

 

ShellExecute(Handle,

 

            'open',

 

            'http://emreoz.cjb.net',

 

             nil,

 

             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.

 

 

 

Uygulamanızın Görev Çubuğundaki butonunu gizleme

 

Uygulamanızın Görev Çubuğundaki butonunu gizlemek için programınızın ana formunun OnCreate olayına aşağıdaki kodu yazın;

 

SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);

 

 

 

Ekran koruyucusunu kapatmak ve açmak

 

//kapatmak için

 

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

 

                     0,

 

                     nil,

 

                     0);

 

//açmak için

 

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,

 

                     1,

 

                     nil,

 

                     0);

 

 

 

Alt+F4 tuş kombinasyonuyla programın kapanmaması için

 

Formun OnCreate olayına;

 

KeyPreview := true;

 

Formun OnKeyDown olayına;

 

if ((ssAlt in Shift) and (Key = VK_F4)) then

 

     Key := 0;

 

 

 

Hareketli İmleç(animated cursor)leri kullanma

 

procedure TForm1.Button1Click(Sender:TObject);

 

var

 

  h : THandle;

 

begin

 

  h := LoadImage(0,

 

                 'C:TheWallMagic.ani',

 

                 IMAGE_CURSOR,

 

                 0,

 

                 0,

 

                 LR_DEFAULTSIZE or

 

                 LR_LOADFROMFILE);

 

  if h = 0 then ShowMessage('Cursor not loaded') else begin

 

    Screen.Cursors[1] := h;

 

    Form1.Cursor := 1;

 

  end;

 

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',

 

                                 'Emre ÖZ'));

 

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

 

                                 'DefCompany',

 

                                 'Bilgisayar Bilimleri Müh.'));

 

  reg.free;

 

end;

 

 

 

Çok Satırlı İpucu

 

procedure TForm1.FormCreate(Sender: TObject);

 

begin

 

  SpeedButton1.Hint:='Çok satırlı ipucunu '+chr(13)+

 

                     'mutlaka denemelisiniz '+chr(13)+

 

                     'çok güzel';

 

end;

 

 

 

Bir klasörü ve onun altındaki tüm dosyaları ve klasörleri silme

 

Ancak salt okunur (read only) özelliği olan ve kullanımda olan dosyalar silinmez.

 

procedure TForm1.Button1Click(Sender: TObject);

 

var

 

  DirInfo: TSearchRec;

 

  r : Integer;

 

begin

 

  r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo);

 

  while r = 0 do  begin

 

    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and

 

        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then

 

      if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name))

 

         = false then

 

       ShowMessage('C:Downloadtest'+DirInfo.Name+' silinemiyor!!!');

 

    r := FindNext(DirInfo);

 

  end;

 

  SysUtils.FindClose(DirInfo);

 

  if RemoveDirectory('C:DownloadTest') = false then

 

    ShowMessage('C:Downloadtest klasörü silinemiyor!!!');

 

end;

 

 

 

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),

 

                                       0,

 

                                      '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),

 

                                       0,

 

                                      'Button',

 

                                       nil),

 

                                       0,

 

                                       true);

 

end;

 

 

 

procedure TForm1.Button3Click(Sender: TObject);

 

begin

 

  //Başlat butonunu kullanılmaz yap

 

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

 

                                       0,

 

                                       '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),

 

                                       0,

 

                                       'Button',

 

                                       nil),

 

                                       true);

 

end;

 

 

 

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

 

uses kısmına Shellapi unitini ekleyin.

 

 

 

ShellExecute(0,

 

            'explore',

 

            'C:WINDOWS',  //açmak istediğiniz dizin

 

             nil,

 

             nil,

 

             SW_SHOWNORMAL);

 

 

 

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

 

var

 

  s: string;

 

begin

 

  s := 'c:windowsathena.bmp';

 

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

 

 

 

Form'un arka kısmına bir resmi döşemek

 

Bitmap: TBitmap;

 

 

 

procedure TForm1.FormCreate(Sender: TObject);

 

begin

 

  Bitmap := TBitmap.Create;

 

  Bitmap.LoadFromFile('C:WINDOWScars.BMP');

 

end;

 

 

 

procedure TForm1.FormPaint(Sender: TObject);

 

var

 

  X, Y, W, H: LongInt;

 

begin

 

  with Bitmap do begin

 

    W := Width;

 

    H := Height;

 

  end;

 

  Y := 0;

 

  while Y < Height do begin

 

    X := 0;

 

    while X < Width do begin

 

      Canvas.Draw(X, Y, Bitmap);

 

      Inc(X, W);

 

    end;

 

    Inc(Y, H);

 

  end;

 

end;

 

 

 

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);

 

 

 

 Sayıları virgüllerle yazmak

 

Sayı windows'unuz ayarına göre 12.345.678 veya 12,345,678 şeklinde gösterilir.

 

procedure TForm1.Button1Click(Sender: TObject);

 

  var

 

    i : integer;

 

begin

 

  i := 12345678;

 

  Memo1.Lines.Add(FormatFloat('#,', i));

 

 

 

Sistem Tarihini ve Saatini Değiştirmek

Sistemin tarihini ve saatini değiştirmek için SetLocalTime fonksiyonunu kullanabilirsiniz.

 

var

 

  t:TSystemTime;

 

begin

 

  t.wYear:=1998;

 

  t.wMonth:=5;

 

  t.wDay:=23;

 

  t.wHour:=12;

 

  t.wMinute:=34;

 

  SetLocalTime(t);

 

end;

 

 

 

Fareyi meşgul şekilde göstermek

try

 

  Screen.Cursor := crHourGlass;

 

  {buraya kodunuzu yazın...}

 

finally

 

  Screen.Cursor := crDefault;

 

end;

 

Application.ProcessMessages;

 

 

 

Dos programı kullanmak için;

WinExec('command.com /c progdos.exe',sw_ShowNormal);

 

 

 

 

 

Çevirme

Edit1.OnChange := NIL;

if Edit1.Text = 'Emre ÖZ' then

Edit1.Text := 'Emre';

Edit1.OnChange := Edit1Change;

 

 

 

 

 

İlk harf büyük diğerleri küçük

Edit1'e yazılan yazının ilk harfini büyük diğer harflerini küçük yapıyor.

 

var

OldStart : Integer;

begin

With Edit1 do

if Text <> '' then begin

OnChange := NIL;

OldStart := SelStart;

Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));

SelStart := OldStart;

OnChange := Edit1Change;

end;

end;

 

 

 

 

 

Taskbar gizleme

procedure 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 kaydetme

Bu program mikrofondan sesi alıp bir wav dosyası içine kayıt 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('Kayıt');

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('Başla');

RecordSound(10000);

WriteLn('Bitir');

 

 

 

 

 

DELPHİ NASIL EXE YAPIYOR ?

 

Delphi , 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: Korumalı mod için.

 

/b: Hepsini tekrar oluştur,

/m: Hepsinin güncel olduğundan emin ol.

 

 

 

 

 

BRC Nedir ?

 

Brc Res dosyalarını derliyor.

Bir res dosyası açın ,(Notepad ile)

İçine Icon ICON "emre.ico" yazın. (emre.ico dosyası aynı klasörde bulunmalı. )

BRC -r EMRE.RES olarak derleyin.

Delphideki projenizin başınada {$ Emre.rc} yazın. Böylece ikon dosyalarını taşımadan kullana bilirsiniz.

Sadece icon değil , ayrıca BITMAP,TEXT de kullana bilirsiniz.

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

 

Delphi - .....................................

 

Klasör kopyalama

uses

  ShellApi;

 

function CopyDir(const fromDir, toDir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_COPY;

    fFlags := FOF_FILESONLY;

    pFrom  := PChar(fromDir + #0);

    pTo    := PChar(toDir)

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

 

function MoveDir(const fromDir, toDir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_MOVE;

    fFlags := FOF_FILESONLY;

    pFrom  := PChar(fromDir + #0);

    pTo    := PChar(toDir)

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

function DelDir(dir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_DELETE;

    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;

    pFrom  := PChar(dir + #0);

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if CopyDir('d:download', 'e:') = True then

    ShowMessage('Directory copied.');

end;

 

Delphi - .....................................

 

Klasör kopyalama

uses

  ShellApi;

 

function CopyDir(const fromDir, toDir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_COPY;

    fFlags := FOF_FILESONLY;

    pFrom  := PChar(fromDir + #0);

    pTo    := PChar(toDir)

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

 

function MoveDir(const fromDir, toDir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_MOVE;

    fFlags := FOF_FILESONLY;

    pFrom  := PChar(fromDir + #0);

    pTo    := PChar(toDir)

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

function DelDir(dir: string): Boolean;

var

  fos: TSHFileOpStruct;

begin

  ZeroMemory(@fos, SizeOf(fos));

  with fos do

  begin

    wFunc  := FO_DELETE;

    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;

    pFrom  := PChar(dir + #0);

  end;

  Result := (0 = ShFileOperation(fos));

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if CopyDir('d:download', 'e:') = True then

    ShowMessage('Directory copied.');

end;

 

Delphi - .....................................

 

Basit bir şifreleme algoritması

function sifrele1(SifrelenecekKatar: WideString):WideString;

var

SifrelenecekKarakter : Widestring;

sira                 : Integer;

SifreliKatar         : WideString;

begin

sifreliKatar:=";

for sira:=length(SifrelenecekKatar) downto 1 do begin

    SifrelenecekKarakter := UNICODEMidStr(SifrelenecekKatar,sira,1);

    SifreliKatar         := SifreliKatar + SifrelenecekKarakter;

    end;

    Result := sifreliKatar;

end;

 

function desifrele1(deSifrelenecekKatar: WideString):WideString;

var

deSifrelenecekKarakter : Widestring;

sira                   : Integer;

deSifreliKatar         : WideString;

begin

deSifreliKatar:=";

for sira:=length(deSifrelenecekKatar) to 1 do begin

    deSifrelenecekKarakter := UNICODEMidStr(deSifrelenecekKatar,sira,1);

    deSifreliKatar         := deSifreliKatar + deSifrelenecekKarakter;

    end;

    Result := deSifreliKatar;

end;

 

Delphi - .....................................

 

Basit bir şifreleme algoritması

function sifrele1(SifrelenecekKatar: WideString):WideString;

var

SifrelenecekKarakter : Widestring;

sira                 : Integer;

SifreliKatar         : WideString;

begin

sifreliKatar:=";

for sira:=length(SifrelenecekKatar) downto 1 do begin

    SifrelenecekKarakter := UNICODEMidStr(SifrelenecekKatar,sira,1);

    SifreliKatar         := SifreliKatar + SifrelenecekKarakter;

    end;

    Result := sifreliKatar;

end;

 

function desifrele1(deSifrelenecekKatar: WideString):WideString;

var

deSifrelenecekKarakter : Widestring;

sira                   : Integer;

deSifreliKatar         : WideString;

begin

deSifreliKatar:=";

for sira:=length(deSifrelenecekKatar) to 1 do begin

    deSifrelenecekKarakter := UNICODEMidStr(deSifrelenecekKatar,sira,1);

    deSifreliKatar         := deSifreliKatar + deSifrelenecekKarakter;

    end;

    Result := deSifreliKatar;

end;

 

Delphi - .....................................