Projenizin *.Exe dosyasına sürüm(version) bilgisi ekleyin
NeverFear - kaheri579 @ hotmail . com
Delphi Ana Men ü 'sünde ProjectOptionsVersion Info sekmesini tıklayınız.
Include version information in project yan ı ndaki onay kutusunu t ı klad ığı n ı zda
soluk k ı s ı mlar ı n a çı ld ığı n ı g ö receksiniz . Burada istedi ğ iniz gibi de ğ i ş iklikler
yaparak Ok d üğ mesini t ı klay ı n ı z . Derledi ğ inizde , art ı k *. Exe dosyan ı z ı n s ü r ü m
bilgilerini Windows Gezgini veya daha farkl ı y ö ntemle , mouse ile ü zerinde durdu ğ unuzda
a çı klay ı c ı bilgi olarak g ö rebilirsiniz . Bunu ayn ı zamanda About ( Hakk ı nda ) formunuzda da
g ö r ü nt ü leyebilirsiniz .
ismini GenelSabit verebilece ğ iniz bir *. pas dosya haz ı rlay ı n ı z ve projenizin
Ana Form 'una ekleyiniz.
// GenelSabit.pas dosyası
// Bu *.pas dosyada form (*.dfm) yok.
unit GenelSabit ;
{$R-}
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Dialogs , Forms ,
StdCtrls , DB , DBTables , BDE , Registry , FileCtrl , ExtCtrls , WinTypes ;
var
V1 , V2 , V3 , V4 : word ;
Version : string ;
procedure GetBuildInfo ( const AppName : string ; var V1 , V2 , V3 , V4 : Word );
implementation
uses Consts ;
procedure GetBuildInfo ( const AppName : string ; var V1 , V2 , V3 , V4 : Word );
var
VerInfoSize , VerValueSize , Dummy : DWORD ;
VerInfo : Pointer ;
VerValue : PVSFixedFileInfo ;
begin
VerInfoSize := GetFileVersionInfoSize ( PChar ( AppName ), Dummy );
GetMem( VerInfo , VerInfoSize );
GetFileVersionInfo ( PChar ( AppName ), 0 , VerInfoSize , VerInfo );
VerQueryValue ( VerInfo , '' , Pointer ( VerValue ), VerValueSize );
with VerValue ^ do
begin
V1 := dwFileVersionMS shr 16 ;
V2 := dwFileVersionMS and $FFFF ;
V3 := dwFileVersionLS shr 16 ;
V4 := dwFileVersionLS and $FFFF ;
end ;
FreeMem ( VerInfo , VerInfoSize );
end ;
///////////////////////////////////////////////////////////////////////////////
//Ana Formun hazırlanışı
//uses kısmına ekli GenelSabit'e dikkat.......!!!!
unit Unit1 ;
interface
uses
Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ,
ComCtrls , Menus , ExtCtrls , GenelSabit , Jpeg ;
type
TForm1 = class ( TForm )
procedure FormCreate ( Sender : TObject );
procedure FormShow ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.DFM}
procedure TForm1 . FormCreate ( Sender : TObject );
begin
GetBuildInfo ( Application . ExeName , V1 , V2 , V3 , V4 );
Version := Format ( '%d.%d.%d Yapı %d' , [ V1 , V2 , V3 , V4 ]);
end ;
procedure TForm1 . FormShow ( Sender : TObject );
begin
ShowMessage ( 'Program Sürümü = ' + Version );
end ;
İş inizi g ö rmesi dile ğ imle ,
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
NeverFear - kaheri579 @ hotmail . com
Delphi - .....................................
Excel'den Paradox'a aktarım'a Ek
NeverFear - kaheri579 @ hotmail . com
Bu konuyla ilgili olarak , daha ö nce bir kodlama ö rne ğ i g ö ndermi ş tim .
Delphi T ü rk Kodbank program ı nda veya Forum / Kodbankas ı k ı sm ı nda NeverFear olarak aratt ı rma
yaparsan ı z o ö rne ğ e ula ş abilirsiniz . Ger ç i bug ü ne kadar ç ok fazla kodlama yapmad ı m , ama
bundan sonra yapmayaca ğı m anlam ı na gelmez . Çü nk ü bence ;
Bilgi payla şı ld ı k ç a de ğ er kazan ı r ve benim i ç in bilginin kimden geldi ğ i de ğ il , i ş levselli ğ i
ö nemli .
Ayr ı ca , bana mail adresim kanal ı yla ula ş an arkada ş lara ç ok te ş ekk ü r ederim ve ExcelToDb
konusuyla ilgili olarak a çı klay ı c ı bilgi yazma ihtiyac ı duydum .
*. XLS 'den Delphi ile *.DB veritabanına bilgi aktarma:
1. Aktarma yap ı lacak *. XLS dosyay ı a çı yoruz .
2. Sayfan ı n tamam ı n ı se ç ip sa ğ tu ş yaparak Kopyala 'yı tıklıyoruz ve Excel' i kapatm ı yoruz .
3. Yeni bir proje a çı yoruz .
4. Form 'a Delphi bileşen(component) sekmelerindeki ActiveX' den F1Book ekliyoruz ve
sağ tu ş yap ı p Workbook Designer 'i tıklıyoruz.
5. Sheet men ü s ü nden Default Font 'u tıklayıp MS Sans Serif yazı tipini seçerek Yazı' n ı n
Tü rk ç e olmas ı n ı sa ğ lad ı ktan sonra Tamam t ı kl ı yoruz . Format alt ı ndaki Font 'la Türkçeleşmeyi
kontrol ediyoruz .
6. Excel dosyas ı nda yapt ığı m ı z gibi sayfan ı n tamam ı n ı se ç ip Edit men ü s ü nde Paste 'i tıklıyoruz.
### ş eklinde g ö r ü n ü m varsa s ü tunu geni ş letebilirsiniz . Bu ekran ı X dan kapatt ığı n ı zda
Form1. F1Book1 ü zerinde *. XLS dosyan ı zdaki bilgileri g ö rebilmelisiniz .
7. Bilgiler g ö r ü l ü yorsa aktarma i ş lemine ba ş layabilirsiniz . Ama ö nce ;
a - S ü tun say ı s ı kadar FieldName tan ı mlamal ı s ı n ı z . Saha ö zelliklerine dikkat ediniz .
F1Book ü zerinde g ö rd ü klerinizin hepsi String 'tir. Çevrimlerinizi mutlaka yapmalısınız.
b - Aktarma i ş leminden ö nce *. XLS dosyay ı( Excel 'i) kapatınız.
8. İş lem hatas ı z bitti ğ inde *. Db dosyan ı z haz ı r demektir .
NOT : Form ü zerine Button , BitBtn veya SpeedButton ve Table eklemeyi unutmay ı n ı z .
İş inizi g ö rmesi dile ğ imle ,
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
NeverFear - kaheri579 @ hotmail . com
Delphi - .....................................
Programınızın çalıştığı dizini kontrol altında tutma
NeverFear - kaheri579 @ hotmail . com
//Bu kodlamayı çok çok önceleri sizlerle paylaşmıştım
FormCreate veya FormShow yordam ı na kodlay ı n ı z .
//
GetLastError ;
PATH := ExtractFilePath ( ParamStr ( 0 ));
if PATH [ Length ( PATH )] = '' then PATH := Copy ( PATH , 1 , Length ( PATH )- 1 );
ChDir ( PATH );
if IOResult <> 0 then MkDir ( PATH );
//
İş inizi g ö rmesi dile ğ imle ,
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
NeverFear - kaheri579 @ hotmail . com
Delphi - .....................................
Program içinden veritabanı oluşturma
NeverFear - kaheri579 @ hotmail . com
FormCreate veya FormShow yordam ı na yerle ş tirebilirsiniz .
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
PATH , DATA_PATH : string ;
implementation
{$R *.DFM}
procedure TForm1 . FormCreate ( Sender : TObject );
begin
{$I-}
GetLastError ;
PATH := ExtractFilePath ( ParamStr ( 0 )); //İşletim Sistemi ve programınız sizin kesin olarak
//belirlediğiniz sürücüye(genelde C sabit diski) kurulmamış olabilir.
//İçeriğinde File geçen fonksiyon kullanımlarından önce {$I+ veya -} ifadesini yazmanızda
//yarar var. {$IOCHECKS ON } -> InputOutputCheck ON
//gelir. {$I-} olması durumunda IOResult fonksiyonu ile kontrol etmelisiniz.
//Örnek --> ChDir(PATH); if IOResult <> 0 then MkDir(PATH); satırlarında olduğu gibi.
//Ayrıca, GetLastError; son işlenen hatayı döndürür ve ExtractFilePath(ParamStr(0));
//programınızın çalıştığı sürücü ve dizinin kesin yolunu belirler.
** Ö rnek ;
Program ı n ı zda siz C : Ticari Mod ü l Data ş eklinde bir Alias tan ı mlad ı n ı z ve b ü t ü n
*. db ,*. px ,*. x0 ... data dosyalar ı n ı z bu dizinde olmas ı gerekiyor . Kendi kendinize
diyorsunuz ki; bu dizinde olmas ı ş art aksi taktirde program ç al ış mas ı n , kopyalama
olması n ve her ş eyi ben kontrol etmeliyim . İş te bu , ilk hataya d üş t üğü n ü z ü n a çı k bir
delili. Ya kullan ı c ı n ı n C : isimli sabit diski yoksa ve i ş letim sistemini F : s ü r ü c ü nden
ç al ış t ı r ı yorsa NE YAPACAKSIN ..? F : = C : ş eklinde bir kodlama yapabilir misin ?
Diyeceksin ki , C : her bilgisayarda olmazsa olmaz . Ama , senin olmazsa olmaz ı n
müş terinin OLURSA OLUR 'udur.
** Bu nedenle , programlar ı n ı zda Alias tan ı mlamay ı n ı z . Unutmay ı n ı z ki , kullan ı c ı n ı n
hertü rl ü program k ı r ı c ı hareketini ö nce siz bilmelisiniz . Kullan ı c ı ya bu konuda
yetki tanı may ı n , onu cesaretlendirmeyin . Program ı n ı z ı n mutlak hakimi siz olun . Hata
ayı klamay ı mutlaka yap ı n ( ki Kodbank 'ta örnekleri var-bulabilirsin).
//
if PATH [ Length ( PATH )] = '' then PATH := Copy ( PATH , 1 , Length ( PATH )- 1 );
ChDir ( PATH );
if IOResult <> 0 then MkDir ( PATH );
DATA_PATH := PATH + 'Data' ;
ChDir ( DATA_PATH );
if IOResult <> 0 then MkDir ( DATA_PATH );
if FileExists ( DATA_PATH + 'Deneme.db' ) then
begin
with Table1 do
begin
Active := False ;
DatabaseName := DATA_PATH + '' ;
TableName := 'Deneme.db' ;
TableType := ttParadox ;
Active := True ;
end ;
end
else begin
with Table1 do
begin
Active := False ;
DatabaseName := DATA_PATH + '' ;
TableName := 'Deneme.db' ;
TableType := ttParadox ;
with FieldDefs do
begin
Clear ;
Add ( 'SiraNo' , ftInteger , 0 , False );
Add ( 'MusAd' , ftString , 30 , False );
Add ( 'MusSoyad' , ftString , 30 , False );
Add ( 'Adres' , ftString , 30 , False );
Add ( 'Tarih' , ftString , 8 , False );
end ;
with IndexDefs do
begin
Clear ;
Add ( 'AnaKey' , 'SiraNo' , [ ixPrimary , ixUnique ]);
Add ( 'Key_1' , 'MusAd' , [ ixCaseInsensitive ]);
Add ( 'Key_2' , 'MusSoyad' , [ ixCaseInsensitive ]);
Add ( 'Key_3' , 'Tarih' , [ ixCaseInsensitive ]);
end ;
CreateTable ;
Active := True ;
end ;
end ;
end ;
Not : Bu t ü r kodlamayla , m üş terinizin çı lg ı nca hareketleri sonucu data kay ı plar ı n ı
engellemi ş olursunuz . Alias tan ı mlamak herzaman ba ş ar ı l ı sonu ç vermiyor .
Unutmay ı n ı z ki , programlamayla u ğ ra ş an ve bunun ü zerinden ge ç imini sa ğ layan ki ş i
olarak, kullan ı c ı n ı n hert ü rl ü hareketindeki olas ı l ı klar ı ö nceden d üşü nerek program ı n ı z ı
bu kriterler dahilinde geli ş tirmelisiniz .
Yukar ı daki kodlama sadece bir ö rnek . Sonu ç ta , program ı n ı z ı kodlayan sizsiniz .
En kestirme yol , en iyi bildi ğ iniz yoldur .
İş inizi g ö rmesi dile ğ imle ,
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
NeverFear - kaheri579 @ hotmail . com
Delphi - .....................................
Çok satırlı ipucuna ek
Programcı Hacker
By_Yavuz
programci1036 @ hotmail . com '' dan al ı nt ı yap ı ld ı.
procedure TForm1 . FormCreate ( Sender : TObject );
begin
SpeedButton1 . Hint := 'Çok satirli ipucunu ' + chr ( 13 )+
'mutlaka denemelisiniz ' + chr ( 13 )+
'çok güzel' ;
end ;
Chr ( 13 ) ifadesini #10 ş eklinde de yazabiliriz .
SpeedButton1 . Hint := 'Çok satırlı ipucunu ' + #10 +
'mutlaka denemelisiniz ' + #10 + 'çok güzel' ;
+ #10 + sat ı r atlatma anlam ı na gelir ve Chr ( 13 ) ile ayn ı i ş i yapar .
+ #10 + tek sat ı r , + #10 + #10 + ç ift sat ı r atlat ı r .
Hert ü rl ü mesaj sat ı rlar ı nda sorunsuz ç al ışı r .
Ö rnek_1 :
if MessageDlg ( 'Dijital Dosya''da değişiklik var ...!' + #10 + 'Güncelleştirme işlemi başlatılacak ...' + #10 + #10 +
'Bu işlem birkaç dakika sürebilir ..' + #10 + #10 + 'Tüm kullanıcıları programdan çıkarınız ve ''&Tamam'' düğmesini tıklatınız ..' ,
mtInformation , [ mbOK ], 0 ) = mrOK then
begin
Ö rnek_2 :
raise EDatabaseError . Create ( IntToStr ( SiraNo ) + ' numara ile daha önceden bir kayıt yapılmış...' +
#10 + 'Lütfen kontrol ediniz ve tekrar deneyiniz' );
//
except
on EInvalidGraphic do
raise EInvalidGraphic . Create ( 'Geçersiz bir resim dosyası...' + #10 +
'Lütfen değiştiriniz veya yeniden ölçekleyiniz...' )
Ö rnek_3 :
ShowMessage ( 'Dikkat ...!' + #10 + #10 + 'Bu bir deneme mesajıdır;' + #10 + #10 +
'Çalışmalarınızda başarılar ve' + #10 + 'bol kazançlar dilerim.' + #10 + #10 +
'Açılan pencerede İptal düğmesini tıklayınız.' );
İş inizi g ö rmesi dile ğ imle ,
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
NeverFear - kaheri579 @ hotmail . com
Delphi - .....................................
ne işe yarıyorr
resinfo
Delphi - .....................................
Webcam Görüntü Alma Darkkan
Webcam Kodları Delpgi kodlar ı
http : //www.dosyaupload.net/download.php?file=33131
Buradan Download Edebilirsiniz Bunu Codlamak istediginiz dosyay ı att ı n
Ve
uses k ı sm ı na
VFW eklemeyi unutmay ı n yoksa ç al ış maz ;)
unit untMain ;
interface
uses
Windows , VFW , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs ,
ExtCtrls , StdCtrls ;
type
TForm1 = class ( TForm )
Button1 : TButton ;
Panel1 : TPanel ;
Button2 : TButton ;
Button3 : TButton ;
procedure Button1Click ( Sender : TObject );
procedure Button2Click ( Sender : TObject );
procedure Button3Click ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
Video : TVideo ;
implementation
{$R *.DFM}
procedure TForm1 . Button1Click ( Sender : TObject );
begin
Video := TVideo . Create ( Panel1 );
end ;
procedure TForm1 . Button2Click ( Sender : TObject );
begin
Video . TakePicture ( '50' );
end ;
procedure TForm1 . Button3Click ( Sender : TObject );
begin
Video . Destroy ;
end ;
end .
Delphi - .....................................
edit1 merhaba arkadaşlar bir kaydı veritabanına değilde edittin kendisine kaydedilebiliniyordu nasıl
bir ara bir yerede okumuş tum fakat bulamad ı m edit1 'in bir özelliğini değişince veri tabanı veya dosyaya kaydetmeden edit1' e kay ı t oluyordu bilen varsa e ğ er yard ı mc ı olursan ı z sevinirim .
Delphi - .....................................
optik okuyucu programı
arkadaş lar optik okuyucu programlama hakk ı nda bilgisi olan var m ı. benim makinan ı n ad ı ncs opscan 5. firman ı n sitesinden kaynak kodlar ı n ı bulamad ı m . yard ı ma ihtiyac ı m var
Delphi - .....................................
mssql de time grid
TDateTimeField( ADOQuery2 . FieldByName ( 'SAAT' )). DisplayFormat := 'hh:mm:ss' ;
Delphi - .....................................
timezone function
function GetTimeZone : string ;
var
TimeZone : TTimeZoneInformation ;
begin
GetTimeZoneInformation ( TimeZone );
Result := 'GMT ' + IntToStr ( TimeZone . Bias div - 60 );
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
begin
label1 . Caption := GetTimeZone ;
end ;
Delphi - .....................................
Advantage Database Hata Kodları....
Advantage veritabanı n ı n bir ö zelli ğ ide veritaban ı n ı tam y ö netemedi ğ imiz durumlarda belli ba ş l ı hata kodu almam ı zd ı r .
Asl ı nda hata kodlar ı ö nceki advantage s ü r ü mlerinde belli bir veri s ö zl üğü ne ba ğ l ı olmadan gelmekteydi . Fakat ş imdi bunu html olarak da ğı t ı m ı s ö z konusudur . Hata kodlar ı program ı basit bir ş ekilde tasarlad ı m ve modellendirme kullanmad ı m . Ö nemli olan ihtiyac ı n giderilmesidir .
Programc ı l ığ a yeni ba ş layan arkada ş lar i ç in ihtiya ç olunan bir programd ı r . Delphi veya di ğ er diller taraf ı ndan al ı nan kodlara kar şı arama metodu ile rahatl ı kla sonu ç lara ula ş abilece ğ iniz bir programd ı r .
Advantage ErrCodes program ı n ı indirmek i ç in http : //www.enderarslanturk.com.tr/ErrorCodes.rar adresini tıklayınız...
Hepinize ç al ış malar ı nda ba ş ar ı lar dilerim .
------------------------------------------------------------
D ü nya K ü lt ü r ve E ğ itim Programlar ı Grubu ' na davetlisiniz...
http : //www.enderaRslanturk.com.tr/default.asp?makale=135
Delphi - .....................................
re:Morfin: for yada while döngüsü için hatırlatma
Morfin arkadaşı m ı z for while gibi d ö ng ü lerin aras ı na Application . Proccessmessages
koyarsan ı z program h ı zlan ı r demi ş. Aksine bun i ş lem program ı n ı z ı yava ş lat ı r .
Çü nk ü bu kod siz o d ö ng ü i ş lemini yaparken windowsun sizin program ı n ı za ait
di ğ er i ş lemleride i ş lemesi anlam ı na gelir . Bu sayede program ı n ı z kilitlenmi ş gibi
g ö z ü kmez . Asl ı nda yinede kilitlenmezde bunu kullan ı c ı anlamam ış olur .
D ü zeltme gere ğ i duydum çü nk ü bu platform bir ç ok ki ş iyi ilhilendiriyor . Sayg ı lar ı mla ...
Delphi - .....................................
Getting the System Version
//Ersin Kecis. 25/06/2007. ersinkecis@hotmail.com
//Vista,2003,XP64,XP,2000,NT,ME,Win98,Win95,Win3x ve release detaylari...
#include <windows.h>
#include <tchar.h>
#include <stdio.h>
#define BUFSIZE 80
typedef void (WINAPI *PGNSI)(LPSYSTEM_INFO);
int __cdecl _tmain()
{
OSVERSIONINFOEX osvi;
SYSTEM_INFO si;
PGNSI pGNSI;
BOOL bOsVersionInfoEx;
ZeroMemory(&si, sizeof (SYSTEM_INFO));
ZeroMemory(&osvi, sizeof (OSVERSIONINFOEX));
// Try calling GetVersionEx using the OSVERSIONINFOEX structure.
// If that fails, try using the OSVERSIONINFO structure.
osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFOEX);
if ( !(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi)) )
{
osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
if (! GetVersionEx ( (OSVERSIONINFO *) &osvi) )
return FALSE;
}
// Call GetNativeSystemInfo if supported
// or GetSystemInfo otherwise.
pGNSI = (PGNSI) GetProcAddress(
GetModuleHandle(TEXT("kernel32.dll")),
"GetNativeSystemInfo");
if (NULL != pGNSI)
pGNSI(&si);
else GetSystemInfo(&si);
switch (osvi.dwPlatformId)
{
// Test for the Windows NT product family.
case VER_PLATFORM_WIN32_NT:
// Test for the specific product.
if ( osvi.dwMajorVersion == 6 && osvi.dwMinorVersion == 0 )
{
if ( osvi.wProductType == VER_NT_WORKSTATION )
printf ("Windows Vista ");
else printf ("Windows Server "Longhorn" " );
}
if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 2 )
{
if ( GetSystemMetrics(SM_SERVERR2) )
printf( "Microsoft Windows Server 2003 "R2" ");
else if ( osvi.wProductType == VER_NT_WORKSTATION &&
si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64)
{
printf( "Microsoft Windows XP Professional x64 Edition ");
}
else printf ("Microsoft Windows Server 2003, ");
}
if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 1 )
printf ("Microsoft Windows XP ");
if ( osvi.dwMajorVersion == 5 && osvi.dwMinorVersion == 0 )
printf ("Microsoft Windows 2000 ");
if ( osvi.dwMajorVersion <= 4 )
printf ("Microsoft Windows NT ");
// Test for specific product on Windows NT 4.0 SP6 and later.
if ( bOsVersionInfoEx )
{
// Test for the workstation type.
if ( osvi.wProductType == VER_NT_WORKSTATION &&
si.wProcessorArchitecture!=PROCESSOR_ARCHITECTURE_AMD64)
{
if ( osvi.dwMajorVersion == 4 )
printf ( "Workstation 4.0 " );
else if ( osvi.wSuiteMask & VER_SUITE_PERSONAL )
printf ( "Home Edition " );
else printf ( "Professional " );
}
// Test for the server type.
else if ( osvi.wProductType == VER_NT_SERVER ||
osvi.wProductType == VER_NT_DOMAIN_CONTROLLER )
{
if (osvi.dwMajorVersion==5 && osvi.dwMinorVersion==2)
{
if ( si.wProcessorArchitecture ==
PROCESSOR_ARCHITECTURE_IA64 )
{
if ( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter Edition "
"for Itanium-based Systems" );
else if ( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Enterprise Edition "
"for Itanium-based Systems" );
}
else if ( si.wProcessorArchitecture ==
PROCESSOR_ARCHITECTURE_AMD64 )
{
if ( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter x64 Edition " );
else if ( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Enterprise x64 Edition " );
else printf( "Standard x64 Edition " );
}
else
{
if ( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter Edition " );
else if ( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Enterprise Edition " );
else if ( osvi.wSuiteMask & VER_SUITE_BLADE )
printf ( "Web Edition " );
else printf ( "Standard Edition " );
}
}
else if (osvi.dwMajorVersion==5 && osvi.dwMinorVersion==0)
{
if ( osvi.wSuiteMask & VER_SUITE_DATACENTER )
printf ( "Datacenter Server " );
else if ( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ( "Advanced Server " );
else printf ( "Server " );
}
else // Windows NT 4.0
{
if ( osvi.wSuiteMask & VER_SUITE_ENTERPRISE )
printf ("Server 4.0, Enterprise Edition " );
else printf ( "Server 4.0 " );
}
}
}
// Test for specific product on Windows NT 4.0 SP5 and earlier
else
{
HKEY hKey;
TCHAR szProductType[BUFSIZE];
DWORD dwBufLen=BUFSIZE*sizeof (TCHAR);
LONG lRet;
lRet = RegOpenKeyEx( HKEY_LOCAL_MACHINE,
TEXT("SYSTEMCurrentControlSetControl"
"ProductOptions"), 0, KEY_QUERY_VALUE, &hKey );
if ( lRet != ERROR_SUCCESS )
return FALSE;
lRet = RegQueryValueEx( hKey, TEXT("ProductType"),
NULL, NULL, (LPBYTE) szProductType, &dwBufLen);
RegCloseKey( hKey );
if ( (lRet != ERROR_SUCCESS) ||
(dwBufLen > BUFSIZE*sizeof (TCHAR)) )
return FALSE;
if ( lstrcmpi( TEXT("WINNT"), szProductType) == 0 )
printf( "Workstation " );
if ( lstrcmpi( TEXT("LANMANNT"), szProductType) == 0 )
printf( "Server " );
if ( lstrcmpi( TEXT("SERVERNT"), szProductType) == 0 )
printf( "Advanced Server " );
printf( "%d.%d ", osvi.dwMajorVersion, osvi.dwMinorVersion );
}
// Display service pack (if any) and build number.
if ( osvi.dwMajorVersion == 4 &&
lstrcmpi( osvi.szCSDVersion, TEXT("Service Pack 6") ) == 0 )
{
HKEY hKey;
LONG lRet;
// Test for SP6 versus SP6a.
lRet = RegOpenKeyEx( HKEY_LOCAL_MACHINE,
TEXT("SOFTWAREMicrosoftWindows NTCurrentVersion"
"HotfixQ246009"), 0, KEY_QUERY_VALUE, &hKey );
if ( lRet == ERROR_SUCCESS )
printf( "Service Pack 6a (Build %d)n",
osvi.dwBuildNumber & 0xFFFF );
else // Windows NT 4.0 prior to SP6a
{
_tprintf( TEXT("%s (Build %d)n"),
osvi.szCSDVersion,
osvi.dwBuildNumber & 0xFFFF);
}
RegCloseKey( hKey );
}
else // not Windows NT 4.0
{
_tprintf( TEXT("%s (Build %d)n"),
osvi.szCSDVersion,
osvi.dwBuildNumber & 0xFFFF);
}
break ;
// Test for the Windows Me/98/95.
case VER_PLATFORM_WIN32_WINDOWS:
if (osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 0)
{
printf ("Microsoft Windows 95 ");
if (osvi.szCSDVersion[1]=='C' || osvi.szCSDVersion[1]=='B')
printf("OSR2 " );
}
if (osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 10)
{
printf ("Microsoft Windows 98 ");
if ( osvi.szCSDVersion[1]=='A' || osvi.szCSDVersion[1]=='B')
printf("SE " );
}
if (osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 90)
{
printf ("Microsoft Windows Millennium Editionn");
}
break ;
case VER_PLATFORM_WIN32s:
printf ("Microsoft Win32sn");
break ;
}
return TRUE;
}
//Kaynak: http://msdn2.microsoft.com/en-us/library/ms724429.aspx
C++ Builder - .....................................
Demo Oluşturma Düzeltildi
unit Unit1 ;
interface
uses
Registry , shellapi , Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
Dialogs , StdCtrls ;
type
TForm1 = class ( TForm )
Label1 : TLabel ;
procedure FormCreate ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form1 : TForm1 ;
implementation
{$R *.dfm}
procedure TForm1 . FormCreate ( Sender : TObject );
var
ini : TRegIniFile ;
sayac : integer ; x : string ;
begin
x := 'c:deneme.ini' ;
ini := TRegIniFile . Create ( x );
try
sayac := ini . Readinteger ( 'program' , 'sayac' , 0 );
showmessage ( 'sayac=' + inttostr ( sayac ));
inc ( sayac );
if sayac > 10 then
begin
showmessage ( 'programı kullanım hakkınız dolmuştur' );
halt ;
end ;
ini . writeinteger ( 'program' , 'sayac' , sayac );
finally
ini . Free ;
end ;
//final
end ;
end .
Delphi - .....................................
Modal bir formu OnShow olayında kapatmak için
PostMessage( Self . Handle , WM_Close , 0 , 0 );
Delphi - .....................................
Genel Bilgiler
selam.
Formlar ı n ı zda tasar ı m ı en iyi seviyeye çı kartmak i ç in kullanabilece ğ iniz bile ş enler ,
1 ) VCL Skin [ http : //www.link-rank.com]
2 ) SUIPack [ http : //www.sunisoft.com]
3 ) Raize [ http : //www.raize.com]
4 ) XPSideBar [ mail ile sat ı n al ı nabiliniyor san ı r ı m ü creti 20 YTL civar ı ndayd ı]
Demo s ü r ü m ü delphiturk de mevcut san ı r ı m bile ş enler k ı sm ı nda vard ı
Bununla Windows 'da bulunan sol taraftaki açılıp kapanan menülerden yapabilirsiniz.
mesela raize componenti ile de Windows 'da bulunan sol taraftaki
a çı l ı r kapan ı r men ü lerden yapabilirsiniz .
Bu bile ş en paketlerinde i ş inize yarayacak di ğ er elemanlar da mevcut .
Kod ekleyelim k ı zmas ı nlar : P
XP de bilgisayar ı kapat
winexec ( pchar ( 'shutdown.exe /s' ), SW_HIDE );
Daha fazlas ı i ç in CMD 'de shutdown /? yazabilirsiniz.
Sayg ı lar ı mla
İ skender UZUNOSMANO Ğ LU
Delphi - .....................................
cxgrid registry
cxGDSLdb. RestoreFromRegistry ( 'SoftwareAcik Faturalar' , True , False ,[ gsoUseFilter , gsoUseSummary ], '' );
cxGDSLdb . StoreToRegistry ( 'SoftwareAcik Faturalar' , True ,[ gsoUseFilter , gsoUseSummary ], '' );
Delphi - .....................................
DBGrid hücresini EDit1 gibi kullanarak arama yapmak için yardım (Lütfen)
DBGrid Hü cresine kelime girerken arama yapmak istiyorum .
QStokKartlar . Close ;
QStokKartlar . SQL . Clear ;
QStokKartlar . SQL . Add ( 'select* from STOKKARTLAR where STOKKODU like "' + Edit1 . Text + '%"' );
QStokKartlar . Open ;
burada Edit1 . Text yerine DBGrid ü zerindeki h ü creyi kullanmak istiyorum ...
Delphi - .....................................
Listview'e Çalışma Anında Item Ekleme (Kısa Kod)
Formunuza 1 adet listview
1 adet edit
1 adet button
at ı n . button item ekleme olay ı n ı ger ç ekle ş tirecek
edit eklenecek olan itemin ad ı n ı belirleyecek
procedure TForm1 . Button1Click ( Sender : TObject );
type
TKaydim = record
end ;
PKaydim = ^ TKaydim ;
var
pKay : PKaydim ;
begin
listview1 . AddItem ( edit1 . Text , Pointer ( pKay ));
end ;
Sayg ı lar ı mla .
İ skender UZUN
[ Yolcu1453 ]
Delphi - .....................................
Listview'e çalışma anında item ekleme
Formunuza 1 adet listview
1 adet edit
1 adet button
at ı n . button item ekleme olay ı n ı ger ç ekle ş tirecek
edit eklenecek olan itemin ad ı n ı belirleyecek
procedure TForm1 . Button1Click ( Sender : TObject );
type
TKaydim = record
id : Integer ;
Name : string ;
end ;
PKaydim = ^ TKaydim ;
var
pKay : PKaydim ;
i : integer ;
begin
new ( pKay );
pKay . id := i ;
pKay . Name := 'Entry' + IntToStr ( i );
listview1 . AddItem ( edit1 . Text , Pointer ( pKay ));
end ;
Sayg ı lar ı mla .
İ skender UZUN
[ Yolcu1453 ]
Delphi - .....................................
Kaç Yıl, Kaç Ay ve Kaç Gün Kaldı...
/// Şimdi bana az önce lazım oldu aradım baya bulamadım en sonunda biraz kafa yordun.
/// ortaya böle bir şey çıktı.
/// 1 adet Label,edit ve buton lazım bize bunları forma koyuyoruz.
/// edite tarih girdikten sonra butonuna basıyoruz ve labele şu andan girilen tarihe
/// kadar ne kadar süre kaldığını öğreniyoruz..
/// Hadi Koaly gelsin Murat ÇETİN [Muratsoft]
/// Erzincan Hosting www.erzincanhosting.com
var
Tarih1 , Tarih2 : TDateTime ;
Sayi : Integer ;
fark_trh : TDate ;
begin
Tarih1 := Now ; // İlk tarih değer
Tarih2 := StrToDateTime ( Edit1 . Text ); // İkinci tarih değer
fark_trh := tarih2 - tarih1 ;
label1 . caption := 'Kalan Hizmet Süresi = ' + formatdatetime ( 'yy' , fark_trh )+ ' Yıl ' + formatdatetime ( 'mm' , fark_trh )+ ' Ay Kaldı ' + formatdatetime ( 'dd' , fark_trh )+ ' Gün Kaldı '
end ;
Delphi - .....................................
re: dat uzantılı dosyalar
dat uzantı l ı ses dosyalar ı n ı MediaPlayerla a ç abilirsiniz . Tabi standart d ışı bir
format de ğ ilse ...
Delphi i ç in forma bir MediaPlayer Componenti yerle ş tirirsen problem hallolmu ş olur .
Delphi - .....................................
dat uzantılı dosyayı nasıl açabilrim?
bu dat uzantı l ı dosya sesisimager diye sinyal ( yerin alt ı na gonderlen snyalleri alan ) alan mak ı nan ı n bu doyas ı delphide7 . 0 a çı mak istiyrum yard ı mc ı olursan ı z sevinirim
Delphi - .....................................
Borland C++ Builder 6 ile yazılmış pwm sinyalleri ile DC motor hız kontrolü (paralel port ile kontro
#include <vcl.h>
#include<winio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label1->Caption="50";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Timer1->Enabled=false ;
Timer2->Enabled=false ;
InitializeWinIo();
SetPortVal(0x378,0,1);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int gorev_saykili;
gorev_saykili=StrToFloat(Label1->Caption);
if (gorev_saykili<100){
gorev_saykili=gorev_saykili+1;
Label1->Caption=gorev_saykili;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int gorev_saykili;
gorev_saykili=StrToFloat(Label1->Caption);
if (gorev_saykili>1){
gorev_saykili=gorev_saykili-1;
Label1->Caption=gorev_saykili;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int T=100;
int a;
a=StrToFloat(Label1->Caption);
int tof=T-a;
InitializeWinIo();
SetPortVal(0x378,1,1);
Sleep(StrToFloat(Label1->Caption));
SetPortVal(0x378,0,1);
Sleep(tof);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
int T=100;
int a;
a=StrToFloat(Label1->Caption);
int tof=T-a;
InitializeWinIo();
SetPortVal(0x378,2,1);
Sleep(StrToFloat(Label1->Caption));
SetPortVal(0x378,0,1);
Sleep(tof);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Timer2->Enabled=false ;
Timer1->Enabled=true ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Timer1->Enabled=false ;
Timer2->Enabled=false ;
InitializeWinIo();
SetPortVal(0x378,0,1);
ShutdownWinIo();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Timer1->Enabled=false ;
Timer2->Enabled=true ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
Label2->Caption=Label2->Caption.SubString(2,Label2->Caption.Length()-1)
+Label2->Caption.SubString(1,1);
}
//---------------------------------------------------------------------------
C++ Builder - .....................................
Tüm Dünya Dilleri
Abanyom ( Bantu )
Abaza ( Northwest Caucasian )
Abkhaz or Abkhazian ( Northwest Caucasian )
Abujmaria ( Dravidian )
Acehnese ( Malayo - Polynesian )
Adamorobe Sign Language ( Signing )
Adele ( Kwa )
Adyghe ( Northwest Caucasian )
Afar ( Cushitic )
Afrikaans ( Germanic )
Afro - Seminole Creole ( English - based creole )
Aimaq or Barbari ( Iranian )
Aini ( Turkic )
Ainu ( language isolate )
Akan ( Kwa )
Akawaio ( Carib )
Akkadian ( Semitic ) ( extinct )
Aklanon ( Malayo - Polynesian )
Albanian ( Indo - European )
Aleut ( Eskimo - Aleut )
Algonquin ( Algonquian )
Alem á n Coloneiro ( Germanic )
Alsatian ( Germanic )
Altay ( Turkic )
Alutor ( Chukotko - Kamchatkan )
American Sign Language ( Signing )
Amharic ( Semitic )
Amorite ( Semitic ) ( extinct )
Anglo - Saxon or Old English ( Germanic )
Amdang ( Nilo - Saharan )
Ammonite ( Semitic ) ( extinct )
Andalusian ( Romance )
Angaur ( Malayo - Polynesian )
Angika ( Indo - Aryan )
Ao ( Tibeto - Burman )
A - Pucikwar ( Andamanese )
Arabic ( Semitic )
Aragonese ( Romance )
Aramaic ( Semitic )
Are ( Malayo - Polynesian )
Argobba ( Semitic )
Aromanian or Macedo - Romanian ( Romance )
Armenian ( Indo - European )
Arpitan or Francoproven ç al ( Romance )
Arvanitic ( Indo - European )
Ashkenazi Hebrew ( Semitic )
Ashkun ( Indo - Iranian )
Assamese ( Indo - Iranian )
Assyrian Neo - Aramaic ( Semitic )
Ateso or Teso ( Nilotic )
Asi ( Malayo - Polynesian )
Asturian ( Romance )
Ati
Auslan ( Signing )
Avar ( Northeast Caucasian )
Avestan ( Indo - Iranian )
Awadhi ( Indo - Iranian )
Aymara ( Aymaran )
Azerbaijani ( Turkic )
Badaga ( Dravidian )
Badeshi ( Indo - Iranian )
Bahnar ( Austroasiatic )
Bajelani ( Indo - Iranian )
Balinese ( Malayo - Polynesian )
Balochi ( Indo - Iranian )
Balti ( Tibeto - Burman )
Bambara or Bamanankan ( Mande )
Banjar ( Malayo - Polynesian )
Banyumasan ( Malayo - Polynesian )
Basaa ( Bantu )
Bashkir ( Turkic )
Basque ( Isolated )
Batak Dairi ( Malayo - Polynesian )
Batak Karo ( Malayo - Polynesian )
Batak Mandailing ( Malayo - Polynesian )
Batak Simalungun ( Malayo - Polynesian )
Batak Toba ( Malayo - Polynesian )
Bats ( North Caucasian )
Bavarian ( Germanic )
Beja ( Cushitic )
Belarusian ( Slavic )
Belhare ( Tibeto - Burman )
Bellari ( Dravidian )
Berta ( Nilo - Saharan )
Bemba ( Bantu )
Bengali ( Indo - Aryan )
Bezhta ( Northeast Caucasian )
Beothuk ( unclassified ) ( extinct )
Berber ( Afro - Asiatic )
Bete ( Niger - Congo )
B é t é ( Niger - Congo )
Bhili ( Indo - Aryan )
Bhojpuri ( Indo - Aryan )
Bijil Neo - Aramaic ( Semitic )
Bikol ( Malayo - Polynesian )
Bikya or Furu ( Bantu )
Bissa ( Mande )
Blackfoot ( Algonquian )
Boholano ( Malayo - Polynesian )
Bohtan Neo - Aramaic ( Semitic )
Bolgar ( unclassified ) ( extinct )
Bonan or Paoan ( Mongolic )
Bororo ( Bororoan )
Bosnian ( Slavic )
Brahui ( Dravidian )
Breton ( Celtic )
British Sign Language ( Signing )
Bua ( Niger - Congo )
Buginese ( Malayo - Polynesian )
Bukusu ( Bantu )
Bulgarian ( Slavic )
Bunjevac ( Slavic )
Burmese ( Tibeto - Burman )
Burushaski ( language isolate )
Buryat ( Mongolic )
Caluyanon or Caluyanun ( Malayo - Polynesian )
Camunic ( unclassified ) ( extinct )
Cantonese ( Sinitic )
Carian ( Anatolian ) ( extinct )
Catawba ( Siouan ) ( extinct )
Catalan ( Romance )
Cayuga ( Iroquoian )
Cebuano ( Malayo - Polynesian )
Chabacano or Chavacano ( Creole )
Chaga or Kichagga ( Bantu )
Chagatai ( Turkic ) ( extinct )
Chaldean Neo - Aramaic ( Semitic )
Chamorro ( Malayo - Polynesian )
Chaouia or Tachawit ( Berber )
Chechen ( Northeast Caucasian )
Chemakum ( Chimakuan ) ( extinct )
Chenchu ( Dravidian )
Chenoua ( Berber )
Cherokee ( Iroquoian
Cheyenne ( Algonquian )
Chhattisgarhi ( Indo - Aryan )
Chhintang or Chintang ( Tibeto - Burman )
Chilcotin ( Athabaskan )
Chinese ( Sinitic )
Chiricahua or Mescalero - Chiricahua Apache ( Athabaskan )
Chichewa or Nyanja ( Bantu )
Chipewyan ( Athabaskan )
Chittagonian ( Indo - Aryan )
Choctaw ( Muskogean )
Chorasmian or Khwarezmian ( Iranian )
Chukchi or Chukot ( Chukotko - Kamchatkan )
Chulym ( Turkic )
Church Slavonic ( Slavic )
Chuukese or Trukese ( Malayo - Polynesian )
Chuvash ( Turkic )
Cocoma or Cocama ( Tupian )
Cocopa ( Hokan )
Coeur d 'Alene (Salishan)
Comorian ( Bantu )
Coptic ( Egyptian ) ( extinct , liturgical language )
Cornish ( Celtic )
Corsican ( Romance )
Cree ( Algonquian )
Crimean Tatar or Crimean Turkish ( Turkic )
Croatian ( Slavic )
Cuman ( Turkic ) ( extinct )
Cumbric ( Celtic ) ( extinct )
Curonian ( Baltic ) ( extinct )
Cuyonon ( Malayo - Polynesian )
Czech ( Slavic )
Dacian ( Indo - European ) ( extinct )
Dahlik ( Semitic )
Dalecarlian ( Germanic )
Dalmatian ( Romance ) ( extinct )
Dameli ( Indo - Aryan )
Danish ( Germanic )
Dargin ( Northeast Caucasian )
Dari ( Zoroastrian ) ( Iranian )
Dari - Persian ( Iranian )
Darkhat ( Mongolic )
Daur or Dagur ( Mongolic )
Dena 'ina or Tanaina (Athapaskan)
Dhatki ( Indo - Aryan )
Dhivehi or Maldivian ( Indo - Aryan )
Dida ( Volta - Congo )
Dioula or Jula ( Mande )
Dogri ( Indo - Aryan )
Dogrib or Tli Cho ( Athapaskan )
Dolgan ( Turkic )
Domaaki or Dumaki ( Indo - Aryan )
Dongxiang or Santa ( Mongolic )
Duala ( Bantu )
Dungan ( Sinitic )
Dutch ( Germanic )
Dzhidi or Judeo - Persian ( Iranian )
Dzongkha ( Tibeto - Burman )
Eastern Yugur ( Mongolic )
Eblaite ( Semitic ) ( extinct )
Edomite ( Semitic ) ( extinct )
Egyptian ( Afro - Asiatic ) ( extinct )
Egyptian Arabic ( Semitic )
Ekoti ( Bantu )
Elamite ( isolated ) ( extinct )
Endegen ( Semitic )
Enets or Yenisey Samoyed ( Samoyedic )
English ( Germanic )
Ennemor or Inor ( Semitic )
Erzya ( Finno - Ugric )
Esperanto ( planned language )
Estonian ( Finno - Ugric )
Etruscan ( Tyrsenian ) ( extinct )
Even ( Altaic )
Evenk or Evenki ( Altaic )
Ewe ( Volta - Congo )
Eyak ( Na - Den é)
Faeroese ( Germanic )
Fang ( Bantu )
Fars ( Iranian )
Fijian ( Malayo - Polynesian )
Filipino ( Malayo - Polynesian )
Finnish ( Finno - Ugric )
Finnish Sign Language ( Signing )
Fon ( Volta - Congo )
Franco - Proven ç al ( Romance )
French ( Romance )
French Sign Language ( Signing )
Frisian ( Germanic )
Friulian ( Romance )
Fula or Fulfulde or Fulani ( Atlantic )
Fur ( Nilo - Saharan )
Ga ( Volta - Congo )
Gadaba ( Dravidian )
Gafat ( Semitic ) ( extinct )
Gagauz ( Turkic )
Galician ( Romance )
Gangte ( Tibeto - Burman )
Garhwali ( Indo - Aryan )
Gaulish ( Celtic ) ( extinct )
Gayo ( Malayo - Polynesian )
Gazi ( Iranian )
Ge 'ez (Semitic) (extinct)
Gen or G ? or Mina ( Volta - Congo )
Georgian ( South Caucasian )
German ( Germanic )
German Sign Language ( Signing )
Ghomara ( Berber ) ( extinct )
Gikuyu or Kikuyu ( Bantu )
Gilbertese or Kiribati ( Malayo - Polynesian )
Gileki ( Iranian )
Goaria ( Indo - Aryan )
Gondi ( Dravidian )
Gothic ( Germanic ) ( extinct )
Gawar - Bati or Gowari or Narsati ( Indo - Aryan )
Grangali or Gelangali ( Indo - Aryan )
Greek ( Indo - European )
Guanche ( Berber ) ( extinct )
Guaran í ( Tupian )
Gujarati ( Indo - Aryan )
Gula Iro or Kulaal ( Volta - Congo )
Gullah or Sea Island Creole English ( English - based creole )
Gusii ( Bantu )
Gwich ? in ( Athabaskan )
Hadramautic ( Semitic ) ( extinct )
Hadza or Hatsa ( Khoisan )
Haida or Masset ( Na - Den é)
Haitian Creole ( French - based creole )
Hakka ( Sinitic )
H ä n ( Athabaskan )
Harari ( Semitic )
Harauti ( Indo - Aryan )
Harsusi ( Semitic )
Haryanavi or Haryani or Bangru ( Indo - Aryan ) ( a dialect of Hindi )
Harzani ( Iranian )
Hattic ( unclassified , possibly Northwest Caucasian ) ( extinct )
Hausa ( Afro - Asiatic )
Havasupai or Upland Yuman ( Hokan )
Hawaiian ( Malayo - Polynesian )
Hawaii Pidgin Sign Language ( Signing )
Hazaragi ( Iranian ) ( a dialect of Persian )
Hebrew ( Semitic )
Herero ( Bantu )
H é rtevin ( Semitic )
Hiligaynon or Ilonggo ( Malayo - Polynesian )
Hindi ( Indo - Aryan )
Hiri Motu ( Motu - based Pidgin )
Hittite ( Anatolian )
Hixkaryana ( Carib )
Hmong ( Hmong Mien )
Ho ( Austroasiatic )
Hoby ó t ( Semitic )
Hopi ( Uto - Aztecan
Hulaul á ( Semitic )
Hungarian ( Finno - Ugric )
Hurrian ( Hurro - Urartian ) ( extinct )
Hutterite German ( Germanic )
Ibibio ( Volta - Congo )
Iban ( Malayo - Polynesian )
Ibanag ( Malayo - Polynesian )
Icelandic ( Germanic )
Igbo or Ibo or Biafra ( Volta - Congo )
Ikalanga or Kalanga ( Bantu )
Ili Turki ( Turkic )
Illinois ( Algonquian ) ( extinct )
Ilokano or Ilocano ( Malayo - Polynesian )
Inari Sami ( Finno - Ugric )
Indonesian ( Malayo - Polynesian )
Ingrian or Izhorian ( Finno - Ugric )
Ingush ( Northeast Caucasian )
Insubric or Western Lombard ( Romance )
Inuktitut ( Eskimo - Aleut )
Inupiaq ( Eskimo - Aleut )
Inuvialuktun ( Eskimo - Aleut )
Iraqw ( Cushitic )
Irish or Irish Gaelic ( Celtic )
Irish Sign Language ( Signing )
Irula ( Dravidian )
Isan or Northeastern Thai ( Tai - Kadai )
Istro - Romanian ( Romance )
Italian ( Romance )
Itelmen or Kamchadal ( Chukotko - Kamchatkan )
Jacaltec or Jakalteko ( Mayan )
Jalaa ( unclassified , possibly Niger - Congo )
Japanese ( isolated )
Jaqaru ( Aymaran )
Jarai ( Malayo - Polynesian )
Javanese ( Malayo - Polynesian )
Jibbali or Shehri ( Semitic )
Jicarilla Apache ( Athabaskan )
Juang ( Austro - Asiatic )
Judeo - Aramaic ( Semitic ) ( extinct )
Jurchen ( Tungusic ) ( extinct )
Kabardian ( Northwest Caucasian )
Kabyle ( Berber )
Kachin or Jingpo ( Tibeto - Burman )
Kalaallisut or Greenlandic ( Eskimo - Aleut )
Kalami or Gawri or Dirwali ( Indo - Aryan )
Kalasha ( Indo - Aryan )
Kalmyk or Oirat ( Mongolic )
Kalto or Nahali ( isolated or Indo - Aryan )
Kamas ( Samoyedic ) ( extinct )
Kankanai or Kankanaey ( Malayo - Polynesian )
Kannada ( Dravidian )
Kaonde or Chikaonde ( Bantu )
Kapampangan ( Malayo - Polynesian )
Karachay - Balkar ( Turkic )
Karagas ( Turkic )
Karaim ( Turkic )
Karakalpak ( Turkic )
Karelian ( Finno - Ugric )
Kashmiri ( Indo - Aryan )
Kashubian ( Slavic )
Kawi ( Malayo - Polynesian ) ( extinct )
Kazakh ( Turkic )
Kemi Sami ( Finno - Ugric ) ( extinct )
Kensiu ( Austro - Asiatic )
Kerek ( Paleosiberian )
Ket ( Chukotko - Kamchatkan )
Khakas ( Turkic )
Khalaj ( Iranian )
Kham or Sheshi ( Tibeto - Burman )
Khandeshi ( Indo - Aryan )
Khanty or Ostyak ( Finno - Ugric )
Khasi ( Austro - Asiatic )
Khazar ( probably Turkic ) ( extinct )
Khirwar ( Dravidian )
Khmer ( Austro - Asiatic )
Khmu ( Austro - Asiatic )
Khowar ( Indo - Aryan )
Khunsari ( Iranian )
Kildin Sami ( Baltic - Finnic )
Kimatuumbi ( Bantu )
Kinaray - a or Hiraya ( Malayo - Polynesian )
Kinyarwanda ( Bantu )
Kirombo ( Bantu )
Kirundi ( Bantu )
Kivunjo ( Bantu )
Klallam or Clallam ( Salishan )
Kodava Takk or Kodagu or Coorgi ( Dravidian )
Kohistani or Khili ( Indo - Aryan )
Kolami ( Dravidian )
Komi or Komi - Zyrian ( Finno - Ugric )
Konda ( Trans - New Guinea )
Konkani ( Indo - Aryan )
Kongo or Kikongo ( Bantu )
Koraga ( Dravidian )
Korandje ( Nilo - Saharan )
Korean ( isolated )
Korku ( Austro - Asiatic )
Korowai ( Trans - New Guinea )
Korwa ( Austro - Asiatic )
Koryak ( Chukotko - Kamchatkan )
Kosraean ( Malayo - Polynesian )
Kota ( Dravidian )
Koyra Chiini or Western Songhay ( Nilo - Saharan )
Koy Sanjaq Surat ( Semitic )
Koya ( Dravidian )
Krymchak or Judeo - Crimean Tatar ( Turkic )
Kujarge ( unclassified , perhaps Chadic )
Kui ( Dravidian )
Kumauni ( Indo - Aryan )
Kumyk ( Turkic )
Kumzari ( Iranian )
Kung ( Khoisan )
Kurdish ( Iranian )
Kurukh or Kurux ( Dravidian )
Kurumba ( Dravidian )
Kusunda ( Tibeto - Burman ) ( extinct )
Kutenai or Kootenay or Ktunaxa ( isolated )
Kuvi ( Dravidian )
Kwanyama or Ovambo ( Bantu )
Kxoe ( Khoisan )
Kyrgyz or Kirghiz ( Turkic )
Laal ( unclassified )
Ladakhi ( Tibeto - Burman )
Ladin ( Romance )
Ladino or Judeo - Spanish ( Romance )
Lakota or Lakhota or Teton ( Siouan )
Lambadi or Lamani or Banjari ( Indo - Aryan )
Lao or Laotian ( Tai - Kadai )
Latin ( Romance ) ( liturgical language )
Latvian ( Baltic )
Laz or Lazuri ( South Caucasian )
Lenape or Unami or Delaware ( Algonquian ) ( extinct )
Lepontic ( Celtic ) ( extinct )
Lezgi or Agul ( Northeast Caucasian )
Ligbi or Ligby ( Mande )
Lingala ( Bantu )
Lipan Apache ( Athabascan )
Lisan al - Dawat ( Indo - Aryan )
Lishana Deni ( Semitic )
Lishanid Noshan or Lishana Didan ( Semitic )
Lithuanian ( Baltic )
Livonian or Liv ( Finno - Ugric )
Lotha ( Tibeto - Burman )
Low German or Low Saxon or Plattdeutsch ( Germanic )
Lower Sorbian ( Slavic )
Lozi or Silozi ( Bantu )
Ludic or Ludian ( Finno - Ugric )
Luganda ( Bantu )
Lunda or Chilunda ( Bantu )
Luri ( Iranian )
Lushootseed ( Salishan )
Lusoga or Soga ( Bantu )
Luvale ( Bantu )
Luwati ( Indo - Iranian )
Luwian or Luvian ( Anatolian ) ( extinct )
Luxembourgish ( Germanic )
Lycian ( Anatolian ) ( extinct )
Lydian ( Anatolian ) ( extinct )
Macedonian ( Slavic )
Macedonian , Ancient ( Proto - Greek ) ( extinct )
Magadhi ( Indo - Aryan )
Maguindanao ( Malayo - Polynesian )
Mahican ( Algonquian ) ( extinct )
Mahl ( Indo - Aryan )
Maithili ( Indo - Aryan )
Makasar ( Malayo - Polynesian )
Makhuwa or Makua ( Bantu )
Makhuwa - Meetto ( Bantu )
Malagasy ( Malayo - Polynesian )
Malay ( Malayo - Polynesian )
Malayalam ( Dravidian )
Malaysian Sign Language ( Signing )
Maltese ( Semitic )
Malto or Sauria Paharia ( Dravidian )
Malvi or Malavi or Ujjaini ( Indo - Aryan )
Mam ( Mayan )
Manchurian ( Tungusic )
Manda ( Dravidian )
Mandaic ( Semitic )
Mandarin ( Sinitic )
Mandinka ( Niger - Congo )
Mansi or Vogul ( Finno - Ugric )
Manx ( Celtic ) ( extinct )
Manyika ( Bantu )
Maori ( Malayo - Polynesian )
Mapudungun or Mapuche ( isolated )
Maragoli ( Bantu )
Maranao ( Malayo - Polynesian )
Marathi ( Indo - Aryan )
Mari or Cheremis ( Finno - Ugric )
Maria ( Dravidian )
Marquesan ( Malayo - Polynesian )
Marshallese or Ebon ( Malayo - Polynesian )
Martha 's Vineyard Sign Language (Signing)
Masaba ( Bantu )
Masbatenyo or Minasbate ( Malayo - Polynesian
Meitei or Manipuri or Meithei ( Tibeto - Burman )
Mesqan or Masqan ( Semitic )
Mator ( Samoyedic ) ( extinct )
Mauritian Creole or Morisyen ( French - based creole )
Maya ( Mayan )
Mazandarani or Tabari ( Iranian )
Me ä nkieli or Tornedalen Finnish ( Finno - Ugric )
Megleno - Romanian ( Romance )
Megrelian or Mingrelian ( South Caucasian )
Mehri or Mahri ( Semitic )
Menominee ( Algonquian )
Mentawai ( Malayo - Polynesian )
Meroitic ( unclassified , maybe Nilo - Saharan or isolated )
Merya ( Finno - Ugric ) ( extinct )
Mescalero Apache ( Athabaskan )
Mesmes ( Semitic ) ( extinct )
Messapian ( Indo - European ( extinct )
Miami ( Algonquian ) ( extinct )
Michif ( mixed , French and Cree based )
Middle Dutch ( Germanic ) ( extinct )
Middle English ( Germanic ) ( extinct )
Middle French ( Romance ) ( extinct )
Middle High German ( Germanic ) ( extinct )
Middle Persian or Pahlavi ( Iranian ) ( extinct )
Mikasuki or Miccosukee ( Muskogean )
Mi 'kmaq or Micmac (Algonquian)
Minaean ( Semitic ) ( extinct )
Minangkabau ( Malayo - Polynesian )
Mlahs ô or Suryoyo ( Semitic ) ( extinct )
Moabite ( Semitic ) ( extinct )
Mobilian Jargon ( pidgin , Choctaw and French based )
Moghol ( Mongolic )
Mohawk ( Iroquoian )
Mohegan ( Algonquian ) ( extinct )
Moksha ( Finno - Ugric )
Molengue ( Bantu )
Mon ( Austro - Asiatic )
Mongolian ( Mongolic )
Mono ( Volta - Congo )
Mono ( Uto - Aztecan )
Mono ( Malayo - Polynesian )
Montagnais ( Algonquian )
Montenegrin ( Slavic )
Motu ( Malayo - Polynesian )
Mpre ( unclassified , perhaps Niger - Congo or isolated ) ( extinct )
Muher ( Semitic )
Mukha - Dora or Nuka ( unclassified )
Mundari ( Austro - Asiatic )
Munji ( Iranian )
Murcian ( Murcian )
Muria ( Dravidian )
Muromian ( Finno - Ugric ) ( extinct )
Murut ( Malayo - Polynesian )
Nafaanra ( Volta - Congo )
Nagarchal ( Dravidian )
Nahuatl ( Uto - Aztecan )
Naiki ( Dravidian )
Nama ( Khoisan )
Nanai ( Tungusic )
Natanzi ( Iranian )
Nauruan ( Malayo - Polynesian )
Navajo or Navaho ( Na - Den é)
Nayini or Biyabanak ( Iranian )
Ndau or Southeast Shona ( Bantu )
Ndebele ( Bantu )
Ndonga ( Bantu )
Neapolitan ( Romance )
Negidal ( Tungusic )
Nenets or Yurak ( Samoyedic )
Nepal Bhasa or Newari ( Tibeto - Burman )
Nepali ( Indo - Aryan )
New Zealand Sign Language ( Signing )
Nganasan or Tavgi ( Samoyedic )
Ngumba ( Bantu )
Nheengatu or Geral or Modern Tup í ( Tupian )
Nicaraguan Sign Language ( Signing )
Nicola ) ( Athabaskan languages ) ( extinct )
Niellim ( Volta - Congo )
Nigerian Pidgin ( pidgin , English - based )
Niuean or Niue ( Malayo - Polynesian )
Nivkh or Gilyak ( isolated )
Nogai ( Turkic )
Norfuk or Norfolk or Pitcairn - Norfolk ( cant , English - Tahitian based )
Norman or Norman - French ( Romance )
Norn ( Germanic ) ( extinct )
Northern Sami ( Finno - Ugric )
Northern Sotho or Sepedi ( Bantu )
Northern Straits Salish ) ( Salishan )
Northern Yukaghir ( Yukaghir )
Norwegian ( Bokm å l , Nynorsk , Riksm å l ) ( Germanic )
Nuer ( Nilotic )
Nux á lk or Bella Coola ( Salishan )
Nyabwa ( Volta - Congo )
Nyah Kur ( Austro - Asiatic )
Nyangumarta ( Pama - Nyungan )
Nyoro ( Bantu )
N ? u ( Khoisan )
Occitan ( Romance )
Ojibwe or Ojibwa or Chippewa ( Algonquian )
Old Church Slavonic ( Slavic ) ( extinct , liturgical language )
Old English or Anglo - Saxon ( Germanic ) ( extinct )
Old French ( Romance ) ( extinct )
Old French Sign Language ( Signing ) ( extinct )
Old High German ( Germanic ) ( extinct )
Old Norse ( Germanic ) ( extinct )
Old Nubian language ( Nilo - Saharan ) ( extinct )
Old Persian ( Iranian ) ( extinct )
Old Prussian ( Baltic ) ( extinct )
Old Saxon ( Germanic ) ( extinct )
Old South Arabic ( Semitic ) ( extinct )
Old Tupi or Tupinamba ( Tupian ) ( extinct )
Olonets Karelian or Liv or Livvi ( Finno - Ugric )
Omagua ( Tupian )
Ongota ( Afro - Asiatic )
Oriya ( Indo - Aryan )
Ormuri ( Iranian )
Orobic or Eastern Lombard ( Romance )
Oroch ( Tungusic )
Orok ( Tungusic )
Oromo or Afaan Oromoo ( Cushitic )
Oropom ( unclassified ) ( extinct )
Ossetic or Ossetian ( Iranian )
Ottoman Turkish ( Turkic ) ( extinct )
P á ez or Nasa Yuwe ( isolated )
Palaic ( Anatolian ) ( extinct )
Palauan ( Malayo - Polynesian )
Pali ( Indo - Aryan ) ( extinct )
Pangasinan ( Malayo - Polynesian )
Papiamento or Papiamentu ( Portuguese - based creole )
Parachi ( Iranian )
Parauk ( Austro - Asiatic )
Parji or Duruwa ( Dravidian )
Parya ( Indo - Aryan )
Pashto or Pushto or Pashtu ( Iranian )
Passamaquoddy or Maliseet - Passamaquoddy or Malecite - Passamaquoddy ( Algonquian )
Pecheneg ( Turkic ) ( extinct )
Pemon or Pemong ( Cariban )
Pengo ( Dravidian )
Pennsylvania Dutch or Pennsylvania German ( Germanic )
Pentlatch or Puntlatch ( Salishan ) ( extinct )
Persian or Farsi ( Iranian )
Phalura ( Indo - Aryan )
Phoenician ( Semitic ) ( extinct )
Phrygian ( Indo - European ) ( extinct )
Phuthi ( Bantu )
Picard ( Romance )
Pictish ( Celtic ) ( extinct )
Pirah ã ( Mura )
Pisidian ( Anatolian ) ( extinct )
Plautdietsch or Mennonite Low German ( Germanic )
Polabian ( Slavic ( extinct )
Polish ( Slavic )
Portuguese ( Romance )
Pothohari or Pahari - Potwari ( Indo - Aryan )
Potiguara ( Tupian ) ( extinct )
Pradhan or Pardhan ( Dravidian )
Proto - Indo - European ( Indo - European ) ( extinct )
Proven ç al ( Romance )
Puelche ( isolated )
Puma ( Tibeto - Burman )
Punjabi or Panjabi or Gurmukhi ( Indo - Aryan )
Qashqai or Ghashghai ( Turkic )
Qatabanian ( Semitic ) ( extinct )
Quebec Sign Language ( Signing )
Quechua ( Quechuan )
Rajasthani ( Indo - Aryan )
Ratagnon or Datagnon or Latagnun ( Malayo - Polynesian )
R é union Creole or Bourbonnais ( French - based creole )
Romanian ( Romance )
Romansh or Rhaeto - Romance ( Romance )
Romany ( Indo - Iranian )
Romblomanon ( Malayo - Polynesian )
Rotokas ( East Papuan )
Runyankole language or Nyankore ( Bantu )
Russenorsk ( Russian - Norwegian pidgin ) ( extinct )
Russian ( Slavic )
Russian Sign Language ( Signing )
Ruthenian or Rusyn or Carpathian ( Slavic )
Sabaean ( Semitic ) ( extinct )
Salar ( Turkic )
Samaritan Hebrew ( Semitic ) ( extinct )
Samoan ( Malayo - Polynesian )
Sandawe ( Khoisan )
Sangisari or Sangesari ( Iranian )
Sanglechi - Ishkashimi ( Iranian )
Sango ( Ngbandi - based creole )
Sanskrit ( Indo - Aryan ) ( extinct , liturgical language )
Santali ( Austro - Asiatic )
Sara ( Malayo - Polynesian )
Saramaccan ( English - based creole )
Sardinian ( Romance )
Sarikoli ( Iranian )
Saurashtra or Sourashtra ( Indo - Aryan )
Savara ( Dravidian )
Savi ( Indo - Aryan )
Sawai ( Malayo - Polynesian )
Scots ( Germanic )
Scottish Gaelic or Scots Gaelic ( Celtic )
Selangor Sign Language ( Signing )
Selkup or Ostyak Samoyed ( Samoyedic )
Selonian ( Baltic ) ( extinct )
Semnani ( Iranian )
Senaya ( Semitic )
Sened ( Berber ) ( extinct )
Senhaja de Srair ( Berber ) ( extinct )
Sephardi Hebrew ( Semitic )
Serbian ( Slavic )
Serbo - Croatian ( Slavic )
Sesotho ( Bantu )
Seto or Setu ( Finno - Ugric )
Seychellois Creole ( French - based creole )
Shahrudi ( Iranian )
Shimaore ( Bantu )
Shina ( Indo - Aryan )
Shona ( Bantu )
Shor ( Turkic )
Shughni ( Iranian )
Shumashti ( Indo - Aryan )
Shuswap ( Salishan )
Sicilian ( Romance )
Sidamo ( Cushitic )
Sidetic ( Anatolian ) ( extinct )
Sika ( Malayo - Polynesian )
Silesian ( Slavic )
Silt 'e or Selti or East Gurage (Semitic)
Sindhi ( Indo - Aryan )
Sinhalese ( Indo - Aryan )
Sioux ( Siouan )
Siraiki or Seraiki or Southern Punjabi ( Indo - Aryan )
Sivandi ( Iranian )
Skolt Sami ( Finno - Ugric )
Slavey ( Athabaskan )
Slovak ( Slavic )
Slovenian or Slovene ( Slavic )
Soddo or Kistane ( Semitic )
Soi ( Iranian )
Somali ( Cushitic )
Sonjo or Temi ( Bantu )
Sonsorolese or Sonsorol ( Malayo - Polynesian )
Soqotri ( Semitic )
Sora ( Austro - Asiatic )
Sorbian ( Slavic )
Southern Sami ( Finno - Ugric )
South Estonian ( Finno - Ugric )
Southern Yukaghir or Tundra Yukaghir ( Yukaghir )
Spanish ( Romance )
Sranan Tongo ( English - based creole )
St 'at' imcets or Lillooet ( Salishan )
Sucite or S ì c ì t é S é noufo ( Volta - Congo )
Suba ( Bantu )
Sudovian or Yotvingian ( Baltic ) ( extinct )
Sumerian ( isolated ) ( extinct )
Sundanese ( Malayo - Polynesian )
Supyire or Supyire Senoufo ( Volta - Congo )
Surigaonon ( Malayo - Polynesian )
Susu ( Niger - Congo )
Svan ( South Caucasian )
Swahili ( Bantu )
Swati or Swazi or Siswati or Seswati ( Bantu )
Swedish ( Germanic )
Syriac ( Semitic )
Tabasaran or Tabassaran ( Northeast Caucasian )
Tachelhit ( Berber )
Tagalog ( Malayo - Polynesian )
Tahitian ( Malayo - Polynesian )
Taiwanese Sign Language ( Signing )
Tajik ( Iranian )
Takestani ( Iranian )
Talysh ( Iranian )
Tamil ( Dravidian )
Tanacross ( Athabaskan )
Tangut or Xixia ( Tibeto - Burman ) ( extinct )
Tarifit or Rifi or Riff Berber ( Berber )
Tat or Tati ( Iranian )
Tatar ( Turkic )
Tausug ( Malayo - Polynesian )
Tehuelche ( Chon )
Telugu ( Dravidian )
Temiar or Northern Sakai ( Austro - Asiatic )
Tetum ( Malayo - Polynesian )
Tepehua language ( Totonacan )
Tepehu á n language ( Uto - Aztecan ))
Thai ( Tai - Kadai )
Tharu ( Indo - Aryan )
Thracian ( Indo - European ) ( extinct )
Tibetan ( Tibeto - Burman )
Tigre or Xasa ( Semitic )
Tigrinya ( Semitic )
Tillamook ( Salishan ) ( extinct )
Tirahi ( Indo - Aryan )
Tiv ( Volta - Congo )
Tlingit ( Na - Den é)
Tobian ( Malayo - Polynesian )
Tocharian A and B ( Indo - European ) ( extinct )
Toda ( Dravidian )
Tok Pisin ( English - based creole )
Tokelauan ( Malayo - Polynesian )
Tonga ( Bantu )
Tongan ( Malayo - Polynesian )
Tongva ( Uto - Aztecan ) ( extinct )
Torwali or Turvali ( Indo - Aryan )
Tregami ( Indo - Aryan )
Tsat ( Malayo - Polynesian )
Tsez or Dido ( Northeast Caucasian )
Tshiluba or Luba - Kasai or Luba - Lulua ( Bantu )
Tsimshian ( Penutian )
Tsonga ( Bantu )
Tswana or Setswana ( Bantu )
Tu or Monguor ( Mongolic )
Tuareg languages or Tamasheq ( Berber )
Tulu ( Dravidian )
Tumbuka ( Bantu )
Tupiniquim ( Tupian )
Turkish ( Turkic )
Turkmen ( Turkic )
Turoyo ( Semitic )
Tuvaluan ( Malayo - Polynesian )
Tuvan Tuvin or Tyvan ( Turkic )
Ubykh ( Northwest Caucasian ) ( extinct )
Udihe or Ude or Udege ( Tungusic )
Udmurt or Votyak ( Finno - Ugric )
Ugaritic ( Semitic ) ( extinct )
Ukrainian ( Slavic )
Ulbare ( Semitic )
Ulch or Olcha ( Tungusic )
Unserdeutsch or Rabaul Creole German ( German - based creole )
Upper Sorbian ( Slavic )
Urdu ( Indic )
Uripiv ( Malayo - Polynesian )
Urum ( Turkic )
Ute ( Uto - Aztecan )
Uyghur or Uigur ( Turkic )
Uzbek ( Turkic )
Vafsi ( Iranian )
Valencian Sign Language ( Signing )
Vasi - vari or Prasuni ( Indo - Aryan )
Venda or Tshivenda ( Bantu )
Venetian ( Romance )
Veps ( Finno - Ugric )
Vietnamese ( Austro - Asiatic )
V õ ro ( Finno - Ugric )
Votic or Votian ( Finno - Ugric )
Waddar ( Dravidian )
Waigali or Kalasha - Ala ( Indo - Aryan )
Waima or Roro ( Malayo - Polynesian )
Wakhi ( Iranian )
Walloon ( Romance )
Waneci ( Iranian )
Wapishana or Aruma ( Arawakan )
Waray - Waray or Binisaya ( Malayo - Polynesian )
Washo ( Hokan )
Welsh ( Celtic )
Western Neo - Aramaic ( Semitic )
Weyto ( unclassified , probably Afro - Asiatic ) ( extinct )
Wolane ( Semitic )
Wolof ( Niger - Congo )
Wotapuri - Katarqalai ( Indo - Aryan )
Wu ( Sinitic )
Xam ( Khoisan ) ( extinct )
Xhosa ( Bantu )
Xiang ( Sinitic )
Xibe or Sibo ( Tungusic )
? X óõ ( Khoisan )
Xok ó ( unclassified ) ( extinct )
Xukur ú ( unclassified ) ( extinct )
Yaaku language
Yaeyama language
Yakut
Yankunytjatjara language
Yanomami
Yanyuwa language
Yapese
Yaqui language
Yauma language ( Bantu )
Yavapai language
Yazdi ( Iranian )
Yemenite Hebrew language ( Semitic )
Yeni language
Yevanic language
Yi language
Yiddish ( Germanic )
Yogur ( also known as Yoghur , ( Mongolic ) Sar ï Uyghur , and ( Mongolic ) Yellow Uyghur , Mongolic )
Yokutsan languages
Yonaguni language
Yor ù b á language
Yucatec Maya language
Yucatec Maya Sign Language ( Signing )
Yuchi language
Yugur ( also known as Yughur , ( Turkicic ) Sar ï gh Uyghur , and ( Turkic ) Yellow Uyghur , Turkic )
Yukaghir languages
Yupik language ( Eskimo - Aleut )
Yurats language
Yurok language
Z á paro ( Saparoan )
Zapotec ( Oto - Manguean )
Zazaki ( Iranian )
Zhuang ( Tai - Kadai )
Zoque ( Mixe - Zoquean )
Zulu ( Niger - Congo ) ( Bantu )
Zu ñ i or Zuni ( isolated )
Zway or Zay ( Semitic )
// Ben aramıştım siz aramayın =)
Delphi - .....................................
