Programlama yapalım ve Öğrenelim.

Güç kontrolü

unit PowerControl;

interface

uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,

Forms, Graphics, MMSystem;

type

TAction = (actLogOFF,actShutDown,actReBoot,actForce,actPowerOFF,

actForceIfHung,actMonitorOFF,actMonitorON,actCDEject,actCDUnEject);

type

TPowerControl = class(TComponent)

private

FAction : TAction;

procedure SetAction(Value : TAction);

protected

public

function Execute : Boolean;

published

property Action : TAction read FAction write SetAction;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('K2', [TPowerControl]);

end;

procedure TPowerControl.SetAction(Value : TAction);

begin

FAction := Value;

end;

function TPowerControl.Execute : Boolean;

begin

with (Owner as TForm) do

case FAction of

actLogOff: ExitWindowsEx(EWX_LOGOFF,1);

actShutDown: ExitWindowsEx(EWX_SHUTDOWN,1);

actReBoot: ExitWindowsEx(EWX_REBOOT,1);

actForce: ExitWindowsEx(EWX_FORCE,1);

actPowerOff: ExitWindowsEx(EWX_POWEROFF,1);

actForceIfHung: ExitWindowsEx(EWX_FORCEIFHUNG,1);

actMonitorOFF: SendMessage(Application.Handle,

WM_SYSCOMMAND, SC_MONITORPOWER, 0);

actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND,

SC_MONITORPOWER, -1);

actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN

WAIT',nil,0, Handle);

actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED

WAIT',nil,0, Handle);

end; {Case}

Result := True;

end;

end.

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

Güç kontrolü

unit PowerControl;

interface

uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,

Forms, Graphics, MMSystem;

type

TAction = (actLogOFF,actShutDown,actReBoot,actForce,actPowerOFF,

actForceIfHung,actMonitorOFF,actMonitorON,actCDEject,actCDUnEject);

type

TPowerControl = class(TComponent)

private

FAction : TAction;

procedure SetAction(Value : TAction);

protected

public

function Execute : Boolean;

published

property Action : TAction read FAction write SetAction;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('K2', [TPowerControl]);

end;

procedure TPowerControl.SetAction(Value : TAction);

begin

FAction := Value;

end;

function TPowerControl.Execute : Boolean;

begin

with (Owner as TForm) do

case FAction of

actLogOff: ExitWindowsEx(EWX_LOGOFF,1);

actShutDown: ExitWindowsEx(EWX_SHUTDOWN,1);

actReBoot: ExitWindowsEx(EWX_REBOOT,1);

actForce: ExitWindowsEx(EWX_FORCE,1);

actPowerOff: ExitWindowsEx(EWX_POWEROFF,1);

actForceIfHung: ExitWindowsEx(EWX_FORCEIFHUNG,1);

actMonitorOFF: SendMessage(Application.Handle,

WM_SYSCOMMAND, SC_MONITORPOWER, 0);

actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND,

SC_MONITORPOWER, -1);

actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN

WAIT',nil,0, Handle);

actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED

WAIT',nil,0, Handle);

end; {Case}

Result := True;

end;

end.

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

printer eklemek

unit unit_AddPrinter;

interface

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;

implementation

uses

SysUtils,

WinSpool,

Windows;

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;

var

pName: PChar;

Level: DWORD;

pPrinter: PPrinterInfo2;

begin

pName := nil;

Level := 2;

New(pPrinter);

pPrinter^.pServerName := nil;

pPrinter^.pShareName := nil;

pPrinter^.pComment := nil;

pPrinter^.pLocation := nil;

pPrinter^.pDevMode := nil;

pPrinter^.pSepFile := nil;

pPrinter^.pDatatype := nil;

pPrinter^.pParameters := nil;

pPrinter^.pSecurityDescriptor := nil;

pPrinter^.Attributes := 0;

pPrinter^.Priority := 0;

pPrinter^.DefaultPriority := 0;

pPrinter^.StartTime := 0;

pPrinter^.UntilTime := 0;

pPrinter^.Status := 0;

pPrinter^.cJobs := 0;

pPrinter^.AveragePPM :=0;

pPrinter^.pPrinterName := PCHAR(PrinterName);

pPrinter^.pPortName := PCHAR(PortName);

pPrinter^.pDriverName := PCHAR(DriverName);

pPrinter^.pPrintProcessor := PCHAR(PrintProcessor);

if AddPrinter(pName, Level, pPrinter) <> 0 then

Result := true

else begin

// ShowMessage(inttostr(GetlastError));

Result := false;

end;

end.

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

printer eklemek

unit unit_AddPrinter;

interface

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;

implementation

uses

SysUtils,

WinSpool,

Windows;

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;

var

pName: PChar;

Level: DWORD;

pPrinter: PPrinterInfo2;

begin

pName := nil;

Level := 2;

New(pPrinter);

pPrinter^.pServerName := nil;

pPrinter^.pShareName := nil;

pPrinter^.pComment := nil;

pPrinter^.pLocation := nil;

pPrinter^.pDevMode := nil;

pPrinter^.pSepFile := nil;

pPrinter^.pDatatype := nil;

pPrinter^.pParameters := nil;

pPrinter^.pSecurityDescriptor := nil;

pPrinter^.Attributes := 0;

pPrinter^.Priority := 0;

pPrinter^.DefaultPriority := 0;

pPrinter^.StartTime := 0;

pPrinter^.UntilTime := 0;

pPrinter^.Status := 0;

pPrinter^.cJobs := 0;

pPrinter^.AveragePPM :=0;

pPrinter^.pPrinterName := PCHAR(PrinterName);

pPrinter^.pPortName := PCHAR(PortName);

pPrinter^.pDriverName := PCHAR(DriverName);

pPrinter^.pPrintProcessor := PCHAR(PrintProcessor);

if AddPrinter(pName, Level, pPrinter) <> 0 then

Result := true

else begin

// ShowMessage(inttostr(GetlastError));

Result := false;

end;

end.

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

Klavye dilinin öğrenilmesi ve değiştirilmesi

procedure GetKLList(List: TStrings);

var

AList : array [0..9] of Hkl;

AklName: array [0..255] of Char;

i: Longint;

begin

List.Clear;

for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do

begin

GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));

List.AddObject(AklName, Pointer(AList[i]));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

GetKLList(ListBox1.Items);

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

with Sender as TListBox do

ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);

end;

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

Klavye dilinin öğrenilmesi ve değiştirilmesi

procedure GetKLList(List: TStrings);

var

AList : array [0..9] of Hkl;

AklName: array [0..255] of Char;

i: Longint;

begin

List.Clear;

for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do

begin

GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));

List.AddObject(AklName, Pointer(AList[i]));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

GetKLList(ListBox1.Items);

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

with Sender as TListBox do

ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);

end;

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

SQL ile çift kayıtların silinmesi

Deleting Duplicate Records

Regular Columnist : Sureshkumar Ramakrishnan

Posted: 03/10/2006

(Original Publication Date: 12/20/2004)

The table below shows the data present in the ‘Employee’ table.

id Name Salary

1 Ram 1000

2 Joe 2000

2 Joe 1000

3 Mary 1000

4 Julie 5000

2 Joe 1000

1 Ram 1000

The following script deletes the duplicates from ‘Employee’ table. If there are duplicate records then the script will get a count of the duplicate records and will then delete the records till the count is 1.

/*******************************************************************/

/* Script for deletion of Duplicate record from the Employee Table */

Declare @id int,

@name varchar (50),

@cnt int,

@salary numeric

Declare getallrecords cursor local static For

Select count (1), id, name, salary

from employee (nolock)

group by id, name,salary having count(1)>1

Open getallrecords

Fetch next from getallrecords into @cnt,@id,@name,@salary

--Cursor to check with all other records

While @@fetch_status=0

Begin

Set @cnt= @cnt-1

Set rowcount @cnt

-- Deleting the duplicate records. Observe that all fields are mentioned at the where condition

Delete from employee where id=@id and name=@name

and salary=@salary

Set rowcount 0

Fetch next from getallrecords into @cnt,@id,@name,@salary

End

Close getallrecords

Deallocate getallrecords

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

The logic of the script is pretty simple; the select query retrieves all the records that are duplicates i.e. having Count greater than one. The result set is retrieved by opening a local cursor which fetches one row at a time.

Note here that the Count column is a part of the select query; this is used to identify the no of duplicate rows in the result set.

The row count has been set to (Value obtained from the Count Column – 1). SQL Server uses rowcount to stop processing the query after the specified numbers of rows are returned. The delete statement is executed only to delete the rows set by the Set rowcount command. Once the records have been deleted, the rowcount of SQL server is reset to the default value of 0.

For more details on row count visit (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tsqlref/ts_set-set_0bjo.asp)

After the above script is executed the data in the ‘Employee’ table is as shown below and note that there are no duplicates anymore:

id Name Salary

1 Ram 1000

2 Joe 1000

2 Joe 2000

3 Mary 1000

4 Julie 5000

In the above example duplicate records were deleted at a row level, as we had considered all the columns in the select query. By customizing the script you can also delete duplicate records at a column level. This Query can be extremely beneficial and time saving for data cleansing during Data Migration.

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

SQL ile çift kayıtların silinmesi

Deleting Duplicate Records

Regular Columnist : Sureshkumar Ramakrishnan

Posted: 03/10/2006

(Original Publication Date: 12/20/2004)

The table below shows the data present in the ‘Employee’ table.

id Name Salary

1 Ram 1000

2 Joe 2000

2 Joe 1000

3 Mary 1000

4 Julie 5000

2 Joe 1000

1 Ram 1000

/*******************************************************************/

/* Script for deletion of Duplicate record from the Employee Table */

Declare @id int,

@name varchar (50),

@cnt int,

@salary numeric

Declare getallrecords cursor local static For

Select count (1), id, name, salary

from employee (nolock)

group by id, name,salary having count(1)>1

Open getallrecords

Fetch next from getallrecords into @cnt,@id,@name,@salary

--Cursor to check with all other records

While @@fetch_status=0

Begin

Set @cnt= @cnt-1

Set rowcount @cnt

-- Deleting the duplicate records. Observe that all fields are mentioned at the where condition

Delete from employee where id=@id and name=@name

and salary=@salary

Set rowcount 0

Fetch next from getallrecords into @cnt,@id,@name,@salary

End

Close getallrecords

Deallocate getallrecords

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

Note here that the Count column is a part of the select query; this is used to identify the no of duplicate rows in the result set.

For more details on row count visit (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/tsqlref/ts_set-set_0bjo.asp)

After the above script is executed the data in the ‘Employee’ table is as shown below and note that there are no duplicates anymore:

id Name Salary

1 Ram 1000

2 Joe 1000

2 Joe 2000

3 Mary 1000

4 Julie 5000

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

CSV text dosyadan veri alma

CSV dosyadan database a veri çekme hakkında kod arıyorum.

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

CSV text dosyadan veri alma

CSV dosyadan database a veri çekme hakkında kod arıyorum.

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

Borsa Hisse Bilgileri

Imkb hisse senedi fiyatlarını alabileceğim bir kod arıyorum.

İnsanların borsadaki hisselerini canlı takip edebilecekleri bir borsa bandı yapmaya çalışıyorum

Lütfen yardım edin. Tek bir hissenin fiyatını bir alabilsem....

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

Borsa Hisse Bilgileri

Imkb hisse senedi fiyatlarını alabileceğim bir kod arıyorum.

İnsanların borsadaki hisselerini canlı takip edebilecekleri bir borsa bandı yapmaya çalışıyorum

Lütfen yardım edin. Tek bir hissenin fiyatını bir alabilsem....

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

Klasör ve alt klasörlerde dosya aramak ve bulunanlari bir listeye atmak

Klasör ve alt klasörlerde dosya aramak ve bulunanlari bir listeye atmak

{

Form1'in üzerindeki Memo1'e bulunan dosyalari ekler.

Not: Kod recursion kullanmakta. Cok fazla (Binlerce)

dosya bulundugunda Stack Overflow hatasi verebilir

}

procedure TForm1.FindFiles(StartDir, FileMask: string);

var

SR: TSearchRec;

DirList: TStringList;

IsFound: Boolean;

i: integer;

begin

if StartDir[length(StartDir)] <> '' then

StartDir := StartDir + '';

IsFound :=

FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;

while IsFound do begin

Memo1.Lines.Add(StartDir + SR.Name);

IsFound := FindNext(SR) = 0;

end;

FindClose(SR);

DirList := TStringList.Create;

IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;

while IsFound do begin

if ((SR.Attr and faDirectory) <> 0) and

(SR.Name[1] <> '.') then

DirList.Add(StartDir + SR.Name);

IsFound := FindNext(SR) = 0;

end;

FindClose(SR);

for i := 0 to DirList.Count-1 do

FindFiles(DirList[i], FileMask);

DirList.Free;

end;

// Kullanimi:

FindFiles('C:windows', '*.txt');

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

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

Klasör ve alt klasörlerde dosya aramak ve bulunanlari bir listeye atmak

Klasör ve alt klasörlerde dosya aramak ve bulunanlari bir listeye atmak

{

Form1'in üzerindeki Memo1'e bulunan dosyalari ekler.

Not: Kod recursion kullanmakta. Cok fazla (Binlerce)

dosya bulundugunda Stack Overflow hatasi verebilir

}

procedure TForm1.FindFiles(StartDir, FileMask: string);

var

SR: TSearchRec;

DirList: TStringList;

IsFound: Boolean;

i: integer;

begin

if StartDir[length(StartDir)] <> '' then

StartDir := StartDir + '';

IsFound :=

FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;

while IsFound do begin

Memo1.Lines.Add(StartDir + SR.Name);

IsFound := FindNext(SR) = 0;

end;

FindClose(SR);

DirList := TStringList.Create;

IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;

while IsFound do begin

if ((SR.Attr and faDirectory) <> 0) and

(SR.Name[1] <> '.') then

DirList.Add(StartDir + SR.Name);

IsFound := FindNext(SR) = 0;

end;

FindClose(SR);

for i := 0 to DirList.Count-1 do

FindFiles(DirList[i], FileMask);

DirList.Free;

end;

// Kullanimi:

FindFiles('C:windows', '*.txt');

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

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

Bir klasörün toplam boyutu nasil alinir ?

Bir klasörün toplam boyutu nasil alinir ?

function GetDirectorySize(const ADirectory: string): Integer;

var

Dir: TSearchRec;

Ret: integer;

Path: string;

begin

Result := 0;

Path := ExtractFilePath(ADirectory);

Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

if Ret <> NO_ERROR then

exit;

try

while ret=NO_ERROR do

begin

inc(Result, Dir.Size);

if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then

Inc(Result, GetDirectorySize(Path + Dir.Name + '*.*'));

Ret := Sysutils.FindNext(Dir);

end;

finally

Sysutils.FindClose(Dir);

end;

//Kullanimi:

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.caption := Format('Boyut: %d bytes', [GetDirectorySize('C:Windows')]);

end;

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

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

Bir klasörün toplam boyutu nasil alinir ?

Bir klasörün toplam boyutu nasil alinir ?

function GetDirectorySize(const ADirectory: string): Integer;

var

Dir: TSearchRec;

Ret: integer;

Path: string;

begin

Result := 0;

Path := ExtractFilePath(ADirectory);

Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);

if Ret <> NO_ERROR then

exit;

try

while ret=NO_ERROR do

begin

inc(Result, Dir.Size);

if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> '.') then

Inc(Result, GetDirectorySize(Path + Dir.Name + '*.*'));

Ret := Sysutils.FindNext(Dir);

end;

finally

Sysutils.FindClose(Dir);

end;

//Kullanimi:

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.caption := Format('Boyut: %d bytes', [GetDirectorySize('C:Windows')]);

end;

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

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

VeriTabanindan Excele Aktarim.

VeriTabanindan Excele Aktarim.

{Form üzerine ole serverla baglanti kurmak icin "servers" bilesenlerinden "ExcelApplication"

nesnesini eklemeniz gerekir.

IRange.AutoFormat(6,Null,Null,Null,Null,Null,Null);

Bu Satirdaki Rakami 1-15 arasinada Degistirerek degisik Formatlar elde edebilirsiniz}

procedure TForm1.Button1Click(Sender: TObject);

var IRange : Excel97.Range;

i,Row : integer;

begin

if not ExcelApplication1.Visible[0] then //excel acikmi

begin

excelApplication1.Visible[0]:= True; //acik degilse ac

excelApplication1.Workbooks.Add(NULL,0); //yeni calisma kitabi olustur

end

else //excel aciksa yeni calisma sayfasi ekle

excelApplication1.Sheets.Add(Null,null,null,null,1);

// Alan Basliklarini aktar

IRange := excelApplication1.ActiveCell;

for i := 0 to Table1.Fields.count-1 do

begin

IRange.Value := Table1.Fields[i].DisplayLabel;

IRange := IRange.Next;

end;

// Kayitlari Aktar

Table1.DisableControls;

try

Table1.First;

Row :=2;

while not Table1.Eof do

begin

IRange := ExcelApplication1.Range['A'+IntToStr(Row),'A'+IntToStr(Row)];

for i := 0 to Table1.Fields.Count-1 do

begin

IRange.Value := Table1.Fields[i].Value;

IRange := IRange.Next;

end;

Table1.Next;

Inc(Row);

end;

finally

Table1.EnableControls;

end;

// Auto format

IRange:= ExcelApplication1.Range['A1','D'+IntToStr(Row-1)];

IRange.AutoFormat(6,Null,Null,Null,Null,Null,Null);

end;

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

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

VeriTabanindan Excele Aktarim.

VeriTabanindan Excele Aktarim.

{Form üzerine ole serverla baglanti kurmak icin "servers" bilesenlerinden "ExcelApplication"

nesnesini eklemeniz gerekir.

IRange.AutoFormat(6,Null,Null,Null,Null,Null,Null);

Bu Satirdaki Rakami 1-15 arasinada Degistirerek degisik Formatlar elde edebilirsiniz}

procedure TForm1.Button1Click(Sender: TObject);

var IRange : Excel97.Range;

i,Row : integer;

begin

if not ExcelApplication1.Visible[0] then //excel acikmi

begin

excelApplication1.Visible[0]:= True; //acik degilse ac

excelApplication1.Workbooks.Add(NULL,0); //yeni calisma kitabi olustur

end

else //excel aciksa yeni calisma sayfasi ekle

excelApplication1.Sheets.Add(Null,null,null,null,1);

// Alan Basliklarini aktar

IRange := excelApplication1.ActiveCell;

for i := 0 to Table1.Fields.count-1 do

begin

IRange.Value := Table1.Fields[i].DisplayLabel;

IRange := IRange.Next;

end;

// Kayitlari Aktar

Table1.DisableControls;

try

Table1.First;

Row :=2;

while not Table1.Eof do

begin

IRange := ExcelApplication1.Range['A'+IntToStr(Row),'A'+IntToStr(Row)];

for i := 0 to Table1.Fields.Count-1 do

begin

IRange.Value := Table1.Fields[i].Value;

IRange := IRange.Next;

end;

Table1.Next;

Inc(Row);

end;

finally

Table1.EnableControls;

end;

// Auto format

IRange:= ExcelApplication1.Range['A1','D'+IntToStr(Row-1)];

IRange.AutoFormat(6,Null,Null,Null,Null,Null,Null);

end;

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

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

Key Kodları

Key Kodlari

{ Virtual Keys, Standard Set }

VK_LBUTTON = 1;

VK_RBUTTON = 2;

VK_CANCEL = 3;

VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON }

VK_BACK = 8;

VK_TAB = 9;

VK_CLEAR = 12;

VK_RETURN = 13;

VK_SHIFT = $10;

VK_CONTROL = 17;

VK_MENU = 18;

VK_PAUSE = 19;

VK_CAPITAL = 20;

VK_KANA = 21;

VK_HANGUL = 21;

VK_JUNJA = 23;

VK_FINAL = 24;

VK_HANJA = 25;

VK_KANJI = 25;

VK_CONVERT = 28;

VK_NONCONVERT = 29;

VK_ACCEPT = 30;

VK_MODECHANGE = 31;

VK_ESCAPE = 27;

VK_SPACE = $20;

VK_PRIOR = 33;

VK_NEXT = 34;

VK_END = 35;

VK_HOME = 36;

VK_LEFT = 37;

VK_UP = 38;

VK_RIGHT = 39;

VK_DOWN = 40;

VK_SELECT = 41;

VK_PRINT = 42;

VK_EXECUTE = 43;

VK_SNAPSHOT = 44;

VK_INSERT = 45;

VK_DELETE = 46;

VK_HELP = 47;

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }

{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }

VK_LWIN = 91;

VK_RWIN = 92;

VK_APPS = 93;

VK_NUMPAD0 = 96;

VK_NUMPAD1 = 97;

VK_NUMPAD2 = 98;

VK_NUMPAD3 = 99;

VK_NUMPAD4 = 100;

VK_NUMPAD5 = 101;

VK_NUMPAD6 = 102;

VK_NUMPAD7 = 103;

VK_NUMPAD8 = 104;

VK_NUMPAD9 = 105;

VK_MULTIPLY = 106;

VK_ADD = 107;

VK_SEPARATOR = 108;

VK_SUBTRACT = 109;

VK_DECIMAL = 110;

VK_DIVIDE = 111;

VK_F1 = 112;

VK_F2 = 113;

VK_F3 = 114;

VK_F4 = 115;

VK_F5 = 116;

VK_F6 = 117;

VK_F7 = 118;

VK_F8 = 119;

VK_F9 = 120;

VK_F10 = 121;

VK_F11 = 122;

VK_F12 = 123;

VK_F13 = 124;

VK_F14 = 125;

VK_F15 = 126;

VK_F16 = 127;

VK_F17 = 128;

VK_F18 = 129;

VK_F19 = 130;

VK_F20 = 131;

VK_F21 = 132;

VK_F22 = 133;

VK_F23 = 134;

VK_F24 = 135;

VK_NUMLOCK = 144;

VK_SCROLL = 145;

{ VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.

Used only as parameters to GetAsyncKeyState() and GetKeyState().

No other API or message will distinguish left and right keys in this way. }

VK_LSHIFT = 160;

VK_RSHIFT = 161;

VK_LCONTROL = 162;

VK_RCONTROL = 163;

VK_LMENU = 164;

VK_RMENU = 165;

VK_PROCESSKEY = 229;

VK_ATTN = 246;

VK_CRSEL = 247;

VK_EXSEL = 248;

VK_EREOF = 249;

VK_PLAY = 250;

VK_ZOOM = 251;

VK_NONAME = 252;

VK_PA1 = 253;

VK_OEM_CLEAR = 254;

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

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

Key Kodları

Key Kodlari

{ Virtual Keys, Standard Set }

VK_LBUTTON = 1;

VK_RBUTTON = 2;

VK_CANCEL = 3;

VK_MBUTTON = 4; { NOT contiguous with L & RBUTTON }

VK_BACK = 8;

VK_TAB = 9;

VK_CLEAR = 12;

VK_RETURN = 13;

VK_SHIFT = $10;

VK_CONTROL = 17;

VK_MENU = 18;

VK_PAUSE = 19;

VK_CAPITAL = 20;

VK_KANA = 21;

VK_HANGUL = 21;

VK_JUNJA = 23;

VK_FINAL = 24;

VK_HANJA = 25;

VK_KANJI = 25;

VK_CONVERT = 28;

VK_NONCONVERT = 29;

VK_ACCEPT = 30;

VK_MODECHANGE = 31;

VK_ESCAPE = 27;

VK_SPACE = $20;

VK_PRIOR = 33;

VK_NEXT = 34;

VK_END = 35;

VK_HOME = 36;

VK_LEFT = 37;

VK_UP = 38;

VK_RIGHT = 39;

VK_DOWN = 40;

VK_SELECT = 41;

VK_PRINT = 42;

VK_EXECUTE = 43;

VK_SNAPSHOT = 44;

VK_INSERT = 45;

VK_DELETE = 46;

VK_HELP = 47;

{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }

{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }

VK_LWIN = 91;

VK_RWIN = 92;

VK_APPS = 93;

VK_NUMPAD0 = 96;

VK_NUMPAD1 = 97;

VK_NUMPAD2 = 98;

VK_NUMPAD3 = 99;

VK_NUMPAD4 = 100;

VK_NUMPAD5 = 101;

VK_NUMPAD6 = 102;

VK_NUMPAD7 = 103;

VK_NUMPAD8 = 104;

VK_NUMPAD9 = 105;

VK_MULTIPLY = 106;

VK_ADD = 107;

VK_SEPARATOR = 108;

VK_SUBTRACT = 109;

VK_DECIMAL = 110;

VK_DIVIDE = 111;

VK_F1 = 112;

VK_F2 = 113;

VK_F3 = 114;

VK_F4 = 115;

VK_F5 = 116;

VK_F6 = 117;

VK_F7 = 118;

VK_F8 = 119;

VK_F9 = 120;

VK_F10 = 121;

VK_F11 = 122;

VK_F12 = 123;

VK_F13 = 124;

VK_F14 = 125;

VK_F15 = 126;

VK_F16 = 127;

VK_F17 = 128;

VK_F18 = 129;

VK_F19 = 130;

VK_F20 = 131;

VK_F21 = 132;

VK_F22 = 133;

VK_F23 = 134;

VK_F24 = 135;

VK_NUMLOCK = 144;

VK_SCROLL = 145;

{ VK_L & VK_R - left and right Alt, Ctrl and Shift virtual keys.

Used only as parameters to GetAsyncKeyState() and GetKeyState().

No other API or message will distinguish left and right keys in this way. }

VK_LSHIFT = 160;

VK_RSHIFT = 161;

VK_LCONTROL = 162;

VK_RCONTROL = 163;

VK_LMENU = 164;

VK_RMENU = 165;

VK_PROCESSKEY = 229;

VK_ATTN = 246;

VK_CRSEL = 247;

VK_EXSEL = 248;

VK_EREOF = 249;

VK_PLAY = 250;

VK_ZOOM = 251;

VK_NONAME = 252;

VK_PA1 = 253;

VK_OEM_CLEAR = 254;

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

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

Bilinmeyen bir sql ile ne zaman Query1.Open, ne zaman Query1.ExecSql ?

Bilinmeyen bir sql ile ne zaman Query1.Open, ne zaman Query1.ExecSql ?

{

Kullanicinin Gerek select, gerekse Update, Insert vb

komutlarini hatasiz calistirmak icin kullaniniz.

}

procedure TForm1.Button1Click(Sender: TObject);

begin

Query1.Close;

Query1.Sql.Text :=Memo1.Lines.Text;

try

Query1.Open;

except

on E: Exception do

if not (E is ENoResultSet) then // eger bunun disinda hata varsa

raise;

end;

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

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

Bilinmeyen bir sql ile ne zaman Query1.Open, ne zaman Query1.ExecSql ?

Bilinmeyen bir sql ile ne zaman Query1.Open, ne zaman Query1.ExecSql ?

{

Kullanicinin Gerek select, gerekse Update, Insert vb

komutlarini hatasiz calistirmak icin kullaniniz.

}

procedure TForm1.Button1Click(Sender: TObject);

begin

Query1.Close;

Query1.Sql.Text :=Memo1.Lines.Text;

try

Query1.Open;

except

on E: Exception do

if not (E is ENoResultSet) then // eger bunun disinda hata varsa

raise;

end;

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

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

DBGrid verilerini (TQUERY) Excel sayfasina aktarma

DBGrid verilerini (TQUERY) Excel sayfasina aktarma

{Bu kod ornegi herhangi bir table'dan

Ad ve Soyad verilerini ceken TQuery verilerini,

Excelde yeni bir calisma sayfasi

acip icine yazar.}

{uses satirina comobj unitini ekleyin}

procedure TForm1.Button1Click(Sender: TObject);

var

v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}

say,i:integer;

begin

query1.open;

say:=query1.recordcount;//query kayit sayisi

v:=createoleobject('excel.application');//exceli yarat

v.workbooks.add;//yeni calisma kitabini ekle

sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}

query1.first;

for i:=1 to say do

begin

sayfa.cells[i,1]:=query1ad.text;

sayfa.cells[i,2]:=query1soyad.text;

query1.next;

end;

v.visible:=true;//Exceli acip verileri goster

end;

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

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

DBGrid verilerini (TQUERY) Excel sayfasina aktarma

DBGrid verilerini (TQUERY) Excel sayfasina aktarma

{Bu kod ornegi herhangi bir table'dan

Ad ve Soyad verilerini ceken TQuery verilerini,

Excelde yeni bir calisma sayfasi

acip icine yazar.}

{uses satirina comobj unitini ekleyin}

procedure TForm1.Button1Click(Sender: TObject);

var

v,sayfa:variant;{v excel prg, sayfa calisma sayfasi}

say,i:integer;

begin

query1.open;

say:=query1.recordcount;//query kayit sayisi

v:=createoleobject('excel.application');//exceli yarat

v.workbooks.add;//yeni calisma kitabini ekle

sayfa:=v.workbooks[1].worksheets[1];{Birinci calisma sayfasini sayfa degiskenine ata}

query1.first;

for i:=1 to say do

begin

sayfa.cells[i,1]:=query1ad.text;

sayfa.cells[i,2]:=query1soyad.text;

query1.next;

end;

v.visible:=true;//Exceli acip verileri goster

end;

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