execandwait delphiturkiye
USES ShellApi;
function ExecAndWait(const Filename, Params: string;
WindowState: word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
CmdLine := '"' + Filename + '"' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do
begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, FALSE,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
if Result then
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;
//kulanımı
if ExecAndWait('c:batdosyasi.bat','',SW_Hide) then
ShowMessage('İşlem Tamamlandı') else ShowMessage('İşlem Tamamlanamadı..!!')
Delphi - .....................................
execandwait delphiturkiye
USES ShellApi;
function ExecAndWait(const Filename, Params: string;
WindowState: word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
CmdLine := '"' + Filename + '"' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do
begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, FALSE,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
if Result then
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;
//kulanımı
if ExecAndWait('c:batdosyasi.bat','',SW_Hide) then
ShowMessage('İşlem Tamamlandı') else ShowMessage('İşlem Tamamlanamadı..!!')
Delphi - .....................................
Winsock açık mı?
uses
Winsock;
function WinsockEnabled: Boolean;
var
wsaData: TWSAData;
begin
Result := True;
case Winsock.WSAStartup($0101, wsaData) of
WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: Result := False;
else
Winsock.WSACleanup;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if WinsockEnabled then
ShowMessage('Winsock açık')
else
ShowMessage('Winsock kapalı');
end;
Delphi - .....................................
Winsock açık mı?
uses
Winsock;
function WinsockEnabled: Boolean;
var
wsaData: TWSAData;
begin
Result := True;
case Winsock.WSAStartup($0101, wsaData) of
WSAEINVAL, WSASYSNOTREADY, WSAVERNOTSUPPORTED: Result := False;
else
Winsock.WSACleanup;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if WinsockEnabled then
ShowMessage('Winsock açık')
else
ShowMessage('Winsock kapalı');
end;
Delphi - .....................................
ses kartının isminin alınması
uses mmsystem;
procedure GetWaveOutDevices(DeviceNames: TStrings);
var
DNum: Integer;
i: Integer;
Caps: TWaveOutCapsA;
begin
DNum := waveOutGetNumDevs; // Number of Devices
for i := 0 to DNum - 1 do // Query Devicenames
begin
waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCapsA));
DeviceNames.Add(string(Caps.szPname));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetWaveOutDevices(Listbox1.Items);
end;
Delphi - .....................................
ses kartının isminin alınması
uses mmsystem;
procedure GetWaveOutDevices(DeviceNames: TStrings);
var
DNum: Integer;
i: Integer;
Caps: TWaveOutCapsA;
begin
DNum := waveOutGetNumDevs; // Number of Devices
for i := 0 to DNum - 1 do // Query Devicenames
begin
waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCapsA));
DeviceNames.Add(string(Caps.szPname));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetWaveOutDevices(Listbox1.Items);
end;
Delphi - .....................................
IP adresinden sitenin URL adresini bulmak
uses
Winsock;
function IAddrToHostName(const IP: string): string;
var
i: Integer;
p: PHostEnt;
begin
Result := '';
i := inet_addr(PChar(IP));
if i <> u_long(INADDR_NONE) then
begin
p := GetHostByAddr(@i, SizeOf(Integer), PF_INET);
if p <> nil then Result := p^.h_name;
end
else
Result := 'Geçersiz IP adresi';
end;
Delphi - .....................................
IP adresinden sitenin URL adresini bulmak
uses
Winsock;
function IAddrToHostName(const IP: string): string;
var
i: Integer;
p: PHostEnt;
begin
Result := '';
i := inet_addr(PChar(IP));
if i <> u_long(INADDR_NONE) then
begin
p := GetHostByAddr(@i, SizeOf(Integer), PF_INET);
if p <> nil then Result := p^.h_name;
end
else
Result := 'Geçersiz IP adresi';
end;
Delphi - .....................................
Dosya ASCII tipinde mi?
function isAscii(NomeFile: string): Boolean;
const
SETT = 2048;
var
i: Integer;
F: file;
a: Boolean;
TotSize, IncSize, ReadSize: Integer;
c: array[0..Sett] of Byte;
begin
if FileExists(NomeFile) then
begin
{$I-}
AssignFile(F, NomeFile);
Reset(F, 1);
TotSize := FileSize(F);
IncSize := 0;
a := True;
while (IncSize < TotSize) and (a = True) do
begin
ReadSize := SETT;
if IncSize + ReadSize > TotSize then ReadSize := TotSize - IncSize;
IncSize := IncSize + ReadSize;
BlockRead(F, c, ReadSize);
// Iterate
for i := 0 to ReadSize - 1 do
if (c[i] < 32) and (not (c[i] in [9, 10, 13, 26])) then a := False;
end; { while }
CloseFile(F);
{$I+}
if IOResult <> 0 then Result := False
else
Result := a;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if isAscii(OpenDialog1.FileName) then
ShowMessage('Dosya türü ASCII');
end;
Delphi - .....................................
Dosya ASCII tipinde mi?
function isAscii(NomeFile: string): Boolean;
const
SETT = 2048;
var
i: Integer;
F: file;
a: Boolean;
TotSize, IncSize, ReadSize: Integer;
c: array[0..Sett] of Byte;
begin
if FileExists(NomeFile) then
begin
{$I-}
AssignFile(F, NomeFile);
Reset(F, 1);
TotSize := FileSize(F);
IncSize := 0;
a := True;
while (IncSize < TotSize) and (a = True) do
begin
ReadSize := SETT;
if IncSize + ReadSize > TotSize then ReadSize := TotSize - IncSize;
IncSize := IncSize + ReadSize;
BlockRead(F, c, ReadSize);
// Iterate
for i := 0 to ReadSize - 1 do
if (c[i] < 32) and (not (c[i] in [9, 10, 13, 26])) then a := False;
end; { while }
CloseFile(F);
{$I+}
if IOResult <> 0 then Result := False
else
Result := a;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if isAscii(OpenDialog1.FileName) then
ShowMessage('Dosya türü ASCII');
end;
Delphi - .....................................
Güvenlik duvarını kapatmak(FireWall)
uses
Windows, winsvc, shellapi;
procedure Close_Firewal;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);
ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);
end;
begin
Close_Firewal;
end.
Delphi - .....................................
Güvenlik duvarını kapatmak(FireWall)
uses
Windows, winsvc, shellapi;
procedure Close_Firewal;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
hService := OpenService(SCM, PChar('SharedAccess'), SERVICE_ALL_ACCESS);
ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);
end;
begin
Close_Firewal;
end.
Delphi - .....................................
Delphi İle Windows Hatalarını Yakalama..!
s.a. arkadaşlar
delphi ile windows hatalarını yakalayabilir miyiz?
bununla ilgili biraz araştırdım ama ingilizce olmadığı için pek bişi bulamadım
yada anlamadım..
bununla iligili bi ip ucu yada kod yada site önerirseniz sevinirim..
şimdiden tşk
Delphi - .....................................
Delphi İle Windows Hatalarını Yakalama..!
s.a. arkadaşlar
delphi ile windows hatalarını yakalayabilir miyiz?
bununla ilgili biraz araştırdım ama ingilizce olmadığı için pek bişi bulamadım
yada anlamadım..
bununla iligili bi ip ucu yada kod yada site önerirseniz sevinirim..
şimdiden tşk
Delphi - .....................................
MEGEP
(*
MEGEP ile ilgili ayrıntılı bilgi için :
http://www.megep.meb.gov.tr
Mayıs 2006 itibariyle, Meslek liselerinin yeni Bilişim Bölümleri ile ilgili
çalışmaların 10. sınıf hazırlanması düzeyindeyiz. 11 ve 12. sınıflar daha sonra
yazılacak.
10. sınıfta BTT - Bilişim Teknolojisi Temelleri dersinin modül olarak bölümünden
olan "Programlama Temelleri" kısmını kendim hazırlıyorum.
5 kitapcıktan ilk 4ü bitti. Örnekleri ve modülü indirmek isterseniz:
http://yunus.sf.net
Birkaç hafta sonra da 10. sınıfın tamamı ekip olarak bitirip baskıya verilecek.
Gelecek yıl Bilişim bölümünü açan okullarda bu dersler okutulacak.
Umarım sizin de işinizi görür.
(Bir iki kişi destek oldu DelphiTurk'ten, sağolsunlar)
Delphi - .....................................
MEGEP
(*
MEGEP ile ilgili ayrıntılı bilgi için :
http://www.megep.meb.gov.tr
Mayıs 2006 itibariyle, Meslek liselerinin yeni Bilişim Bölümleri ile ilgili
çalışmaların 10. sınıf hazırlanması düzeyindeyiz. 11 ve 12. sınıflar daha sonra
yazılacak.
10. sınıfta BTT - Bilişim Teknolojisi Temelleri dersinin modül olarak bölümünden
olan "Programlama Temelleri" kısmını kendim hazırlıyorum.
5 kitapcıktan ilk 4ü bitti. Örnekleri ve modülü indirmek isterseniz:
http://yunus.sf.net
Birkaç hafta sonra da 10. sınıfın tamamı ekip olarak bitirip baskıya verilecek.
Gelecek yıl Bilişim bölümünü açan okullarda bu dersler okutulacak.
Umarım sizin de işinizi görür.
(Bir iki kişi destek oldu DelphiTurk'ten, sağolsunlar)
Delphi - .....................................
KoRsAn | C++'da StringGridden Satır Silmek
//...::::::( KORSAN )::::::...
Unit1.H dosyasına eklenecek fonksiyon başlığı
//---------------------------------------------------------------------------
void __fastcall TForm1::SatirSil(int RowNumber,TStringGrid *Grid);
//---------------------------------------------------------------------------
// Silme Fonksiyonu
//---------------------------------------------------------------------------
void __fastcall TForm1::SatirSil(int RowNumber,TStringGrid *Grid)
{
Grid->Row = RowNumber;
if (Grid->Row == Grid->RowCount-1)
{
Grid->RowCount -= 1;
}
else
{
for (int i = RowNumber; i < Grid->RowCount - 1 ; i++)
{
Grid->Rows[i] = Grid->Rows[i+ 1];
}
Grid->RowCount = Grid->RowCount - 1;
}
}
// Kullanımı
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
SatirSil(StringGrid1->Row,StringGrid1);
}
//---------------------------------------------------------------------------
C++ Builder - .....................................
KoRsAn | C++'da StringGridden Satır Silmek
//...::::::( KORSAN )::::::...
Unit1.H dosyasına eklenecek fonksiyon başlığı
//---------------------------------------------------------------------------
void __fastcall TForm1::SatirSil(int RowNumber,TStringGrid *Grid);
//---------------------------------------------------------------------------
// Silme Fonksiyonu
//---------------------------------------------------------------------------
void __fastcall TForm1::SatirSil(int RowNumber,TStringGrid *Grid)
{
Grid->Row = RowNumber;
if (Grid->Row == Grid->RowCount-1)
{
Grid->RowCount -= 1;
}
else
{
for (int i = RowNumber; i < Grid->RowCount - 1 ; i++)
{
Grid->Rows[i] = Grid->Rows[i+ 1];
}
Grid->RowCount = Grid->RowCount - 1;
}
}
// Kullanımı
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
SatirSil(StringGrid1->Row,StringGrid1);
}
//---------------------------------------------------------------------------
C++ Builder - .....................................
bir media player
tekstar-1@hotmail.com
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, Buttons, MPlayer, XPMan, Menus,
ActnList, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
Timer1: TTimer;
Label1: TLabel;
ListBox1: TListBox;
SaveDialog1: TSaveDialog;
OpenDialog2: TOpenDialog;
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
Label2: TLabel;
Timer2: TTimer;
procedure IKI1Click(Sender: TObject);
procedure PROGRMMED1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IKI1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.PROGRMMED1Click(Sender: TObject);
begin
SHOWMESSAGE('THIS PROGRAM EDIT bY TOPRACK');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer1.Enabled:=true;
statusbar1.Panels[1].Text:='SAAT := '+TIMEtostr(now);
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
a:integer;
begin
a:=listbox1.ItemIndex;
label1.Caption:=listbox1.Items[a];
windowsmediaplayer1.URL:=label1.Caption;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
m:string;
begin
listbox1.Clear;
Form1.KeyPreview := True;
SendMessage(ListBox1.Handle,
LB_SetHorizontalExtent,
1000, // Kaydirma yapilcak uzunluk
longint(0));
timer1.Interval:=250;
label2.caption:=' ~~AHMET TOPRAK ~~ ToPrAcK Player v1.0 2006 c ~~ ...';
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
files:string;
begin
if opendialog1.Execute then
begin
opendialog1.Filename;
windowsmediaplayer1.URL:=opendialog1.Filename;
listbox1.Enabled:=false;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i:integer;
begin
if opendialog1.Execute then
begin
opendialog1.Files[0];
ListBox1.Items:=OpenDialog1.Files;
listbox1.Enabled:=true;
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
savedialog1.Execute;
savedialog1.FileName;
listbox1.Items.SaveToFile(savedialog1.filename);
end;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if opendialog2.Execute then
begin
opendialog2.FileName;
listbox1.Items.LoadFromFile(opendialog2.FileName);
end;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
listbox1.Clear;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label2.caption:=copy(label2.caption,2,length(label2.caption)-1)+label2.caption[1];
end;
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Müzik Aç..';
end;
procedure TForm1.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Listeye Ekle..';
end;
procedure TForm1.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Playlisti Kaydet..';
end;
procedure TForm1.SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Playlist Aç..';
end;
procedure TForm1.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Listeyi Temizle..';
end;
procedure TForm1.SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Programdan Çık..';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
m:string;
begin
m:=inputbox('GİRİŞ','ADINIZI GİRİNİZ','');
if fileexists('grnler.dat') then
listbox1.Items.LoadFromFile('grnler.dat');
listbox1.Items.Add('grnler.dat');
listbox1.Items.Add(m);
listbox1.Items.SaveToFile('grnler.dat');
end;
end.
Delphi - .....................................
bir media player
tekstar-1@hotmail.com
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, Buttons, MPlayer, XPMan, Menus,
ActnList, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
Timer1: TTimer;
Label1: TLabel;
ListBox1: TListBox;
SaveDialog1: TSaveDialog;
OpenDialog2: TOpenDialog;
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
Label2: TLabel;
Timer2: TTimer;
procedure IKI1Click(Sender: TObject);
procedure PROGRMMED1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.IKI1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.PROGRMMED1Click(Sender: TObject);
begin
SHOWMESSAGE('THIS PROGRAM EDIT bY TOPRACK');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=1000;
Timer1.Enabled:=true;
statusbar1.Panels[1].Text:='SAAT := '+TIMEtostr(now);
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
a:integer;
begin
a:=listbox1.ItemIndex;
label1.Caption:=listbox1.Items[a];
windowsmediaplayer1.URL:=label1.Caption;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
m:string;
begin
listbox1.Clear;
Form1.KeyPreview := True;
SendMessage(ListBox1.Handle,
LB_SetHorizontalExtent,
1000, // Kaydirma yapilcak uzunluk
longint(0));
timer1.Interval:=250;
label2.caption:=' ~~AHMET TOPRAK ~~ ToPrAcK Player v1.0 2006 c ~~ ...';
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
files:string;
begin
if opendialog1.Execute then
begin
opendialog1.Filename;
windowsmediaplayer1.URL:=opendialog1.Filename;
listbox1.Enabled:=false;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
i:integer;
begin
if opendialog1.Execute then
begin
opendialog1.Files[0];
ListBox1.Items:=OpenDialog1.Files;
listbox1.Enabled:=true;
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
savedialog1.Execute;
savedialog1.FileName;
listbox1.Items.SaveToFile(savedialog1.filename);
end;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if opendialog2.Execute then
begin
opendialog2.FileName;
listbox1.Items.LoadFromFile(opendialog2.FileName);
end;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
listbox1.Clear;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
label2.caption:=copy(label2.caption,2,length(label2.caption)-1)+label2.caption[1];
end;
procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Müzik Aç..';
end;
procedure TForm1.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Listeye Ekle..';
end;
procedure TForm1.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Playlisti Kaydet..';
end;
procedure TForm1.SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Playlist Aç..';
end;
procedure TForm1.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Listeyi Temizle..';
end;
procedure TForm1.SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
statusbar1.Panels[2].Text:='Programdan Çık..';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
m:string;
begin
m:=inputbox('GİRİŞ','ADINIZI GİRİNİZ','');
if fileexists('grnler.dat') then
listbox1.Items.LoadFromFile('grnler.dat');
listbox1.Items.Add('grnler.dat');
listbox1.Items.Add(m);
listbox1.Items.SaveToFile('grnler.dat');
end;
end.
Delphi - .....................................
Lutfen
herkesten ozur....
lutfen herkes kod gonderiyor hepizine $ükranlarimizi sunuyoruz...
delphiyi ogrenmeye çali$an bir acemi olarak arama yapiyorum.alakali alakasiz
bisürü sonuc arada bul....
bi el ativerinde $u Kobanki daha kullanisli bi hale getirelim...
ALLAH RIZASI icin ! (terzi kendi sokugunu dikemez mi yaaaa)
tekrar özür...
saygilar...
Delphi - .....................................
Lutfen
herkesten ozur....
lutfen herkes kod gonderiyor hepizine $ükranlarimizi sunuyoruz...
delphiyi ogrenmeye çali$an bir acemi olarak arama yapiyorum.alakali alakasiz
bisürü sonuc arada bul....
bi el ativerinde $u Kobanki daha kullanisli bi hale getirelim...
ALLAH RIZASI icin ! (terzi kendi sokugunu dikemez mi yaaaa)
tekrar özür...
saygilar...
Delphi - .....................................
Aynı kodu 10 kere göndermeyin
kör değiliz aynı kodu 10 kere göndermenize gerek yok
Delphi - .....................................
Aynı kodu 10 kere göndermeyin
kör değiliz aynı kodu 10 kere göndermenize gerek yok
Delphi - .....................................
DecisionQuery ado veri tabanına bağlantı
DecisionQuery ado veri tabanına bağlantısını bilen varsa yardımcı olursa sevinirim. Herkese kolay gelsin.
e-mail : sayaahmet@superposta.com
Delphi - .....................................
DecisionQuery ado veri tabanına bağlantı
DecisionQuery ado veri tabanına bağlantısını bilen varsa yardımcı olursa sevinirim. Herkese kolay gelsin.
e-mail : sayaahmet@superposta.com
Delphi - .....................................
Knight Online'de Combo Program Yazabilecek?
Selam Bu Knight Online Oyununda Combo Programı Yazabilecek
Veya Bunun Kaynak Kodlarını Gönderebilecek Birisi Varmı
Örnekte Mesela Combo Tuşu Söyle
wr1wr2wr3wr4wr5wr6
Tarzında Hotkey gibi.
Delphi - .....................................
Knight Online'de Combo Program Yazabilecek?
Selam Bu Knight Online Oyununda Combo Programı Yazabilecek
Veya Bunun Kaynak Kodlarını Gönderebilecek Birisi Varmı
Örnekte Mesela Combo Tuşu Söyle
wr1wr2wr3wr4wr5wr6
Tarzında Hotkey gibi.
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Ekran kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Mönitörü kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Mönitörü kapatma
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
BADBOY
Delphi - .....................................
Crystal Report Client
Crystal Vcl11 componentini delphi 7 de install ettim.
Crystal Reportu kullanarak ihtiyacım olan raporları
çok kolay ve harika denecek kadar estetik bir şekilde
raporlarımı dizayn ettim. Crystal Report o kadar güzel ki
Delphiden içindeki bilgilere nerdeyse müdahale etmeden.
Bütün işi Crystal Reportta bitirdim. Delphi 7 de sadece
bir ara yüz tasarladım. Crystal Reportu oluşturuken
create ettiğim bir parametreye bütün raporu bağladım.
Tasarladığım ara yüzle sadece bu parametreye değer yollayıp.
ekrana alıyorum. Ekrandanda Crystal companentinin özellikleini
kullanarak .PDF, .XLS, .DOC olarak export veya print alıyorum.
Bunu tasarım yaptığım makinede problemsiz kullanıyorum.
Ancak bu yaptığım ??.exe ve .rpt başka bir makineye yüklediğimde
CRP32.dll hatası alıyorum. Ne kadar bu dll i Windows XP sistemde
regsvr32 c:windowssystem32crpe32.dll gibi bir komutla reg etmeye çalışsamda
ne kadar internette dolaşıp diğer .dll leri temin edip clienta atsamda bir
çözüm yolu bulamadım. Bu yüzden diğer makinelere de Crystal Reportu kurarak
bu programı çalıştırıp Rapor alabildim.
BU KONUDA BİLGİSİ OLAN BANA BİLGİ VERİRSE SEVİNİRİM....
sevket@aygumus.com
Delphi - .....................................
Crystal Report Client
Crystal Vcl11 componentini delphi 7 de install ettim.
Crystal Reportu kullanarak ihtiyacım olan raporları
çok kolay ve harika denecek kadar estetik bir şekilde
raporlarımı dizayn ettim. Crystal Report o kadar güzel ki
Delphiden içindeki bilgilere nerdeyse müdahale etmeden.
Bütün işi Crystal Reportta bitirdim. Delphi 7 de sadece
bir ara yüz tasarladım. Crystal Reportu oluşturuken
create ettiğim bir parametreye bütün raporu bağladım.
Tasarladığım ara yüzle sadece bu parametreye değer yollayıp.
ekrana alıyorum. Ekrandanda Crystal companentinin özellikleini
kullanarak .PDF, .XLS, .DOC olarak export veya print alıyorum.
Bunu tasarım yaptığım makinede problemsiz kullanıyorum.
Ancak bu yaptığım ??.exe ve .rpt başka bir makineye yüklediğimde
CRP32.dll hatası alıyorum. Ne kadar bu dll i Windows XP sistemde
regsvr32 c:windowssystem32crpe32.dll gibi bir komutla reg etmeye çalışsamda
ne kadar internette dolaşıp diğer .dll leri temin edip clienta atsamda bir
çözüm yolu bulamadım. Bu yüzden diğer makinelere de Crystal Reportu kurarak
bu programı çalıştırıp Rapor alabildim.
BU KONUDA BİLGİSİ OLAN BANA BİLGİ VERİRSE SEVİNİRİM....
sevket@aygumus.com
Delphi - .....................................
mysql function ve procedure tanımlama
sql cumleleri
query1.sql.text:=function veye procedure cumlerini yazınız
query1.execsql;
// function
CREATE FUNCTION `dovparx`(kur varchar(20),kur1 varchar(20),tr date)
RETURNS double
DETERMINISTIC
SQL SECURITY DEFINER
COMMENT ''
BEGIN
declare kr double;
declare kr1 double;
select tutar into kr from doviz where tar=tr and ad=kur;
select tutar into kr1 from doviz where tar=tr and ad=kur1;
RETURN (kr/kr1);
END;
/// procedure
CREATE PROCEDURE `bakgiris`(in knox double,hid double,tut double,dbrm varchar(20),tarx date)
NOT DETERMINISTIC
SQL SECURITY DEFINER
COMMENT ''
BEGIN
declare say double;
if knox <> 0 then
select count(*) into say from bakye where kno=knox;
if say=0 then
insert into bakye(kno,tutar,tar) values(knox,(tut*dovpar(dbrm,'TL',tarx)),tarx);
else
if knox <> 0 then
update bakye set tutar = tutar+(tut*dovpar(dbrm,'TL',tarx)) and tar=tarx where kno=knox;
end if;
end if;
end if;
END;
Delphi - .....................................
mysql function ve procedure tanımlama
sql cumleleri
query1.sql.text:=function veye procedure cumlerini yazınız
query1.execsql;
// function
CREATE FUNCTION `dovparx`(kur varchar(20),kur1 varchar(20),tr date)
RETURNS double
DETERMINISTIC
SQL SECURITY DEFINER
COMMENT ''
BEGIN
declare kr double;
declare kr1 double;
select tutar into kr from doviz where tar=tr and ad=kur;
select tutar into kr1 from doviz where tar=tr and ad=kur1;
RETURN (kr/kr1);
END;
/// procedure
CREATE PROCEDURE `bakgiris`(in knox double,hid double,tut double,dbrm varchar(20),tarx date)
NOT DETERMINISTIC
SQL SECURITY DEFINER
COMMENT ''
BEGIN
declare say double;
if knox <> 0 then
select count(*) into say from bakye where kno=knox;
if say=0 then
insert into bakye(kno,tutar,tar) values(knox,(tut*dovpar(dbrm,'TL',tarx)),tarx);
else
if knox <> 0 then
update bakye set tutar = tutar+(tut*dovpar(dbrm,'TL',tarx)) and tar=tarx where kno=knox;
end if;
end if;
end if;
END;
Delphi - .....................................
Listview'de nesnenin seçilmesi ve görünüm dışındaysa görünüm içersine alınması.
______________________________________________________________________________________________
// Merhaba;
// Listview'de bir nesneyi seçmek oldukça kolay sayılabilecek bir kod ile yapılabilmekte fakat
// bilmem ihtiyaç duydunuzmu ama seçtiğiniz nesne o anda listenin içersinde fakat scroll alanı
// dışındaysa ancak scroll'u kaydırarak nesnenin görünğüm içersine gelmesini sağlayabilirsiniz
// aslında bunun için de oldukça kolay bir kod mevcut fakat örnekler arasında göremeyince
// sizlerle paylaşmak istedim. Umarım faydası olur.
// Ömer UZUNER
______________________________________________________________________________________________
...
var
x : Integer;
begin
x := 12; // Seçecek olduğumuz nesnenin index numarası
ListView1.Items.Items[x].Selected := True; // nesnemizi seçtik
ListView1.Items.Items[x].Focused := True; // nesnemize focus olduk
// örneğin listview'imiz aynı anda 5 adet nesne görünebilecek büyüklükte bir
// listview olduğunda biz 12. nesneye focus olsakta bu nesne listenin aşağılarında
// olduğundan seçili olduğunu görmek için program çalışırken scroll'u aşağı
// kaydırmamız gerekecek, eğer birde timer nesnesiyle listeyiz sürekli temizleyip
// sonra doldurup sonrada 12. nesneyi seçecek olursanız vay sizin halinize
// anlattığımı tam olarak anlamak için "Görev Yönetici"benzeri bir program yazdığınızı
// düşüne bilirsiniz.
// işte böyle bir durumda otomatik olarak index'ini verdiğimiz nesneye kod ile scroll
// olmak için aşağıdaki bu basit ama etkili kodu kullanabilirsiniz.
ListView1.Items.Items[x].MakeVisible(True);
end;
// Unutmadan eğer listviewlerde sürekli imagelist ile ilgili işlem yaptığınızda
// yıpıldama sorunu yaşıyorsanız aşağıdaki kodu kullanarak bu sorundan kurtulabilirsiniz.
ListView1.DoubleBuffered := True;
// Belki bu tek satırlık kodlar ilk bakışta çok basit gelebilir ama unutmamak lazım ki
// bu kodlar kitaplarda bulabileceğiniz kodlar değil, diğer yandan bu kodlar olmadan
// gerçekten çok fazla sıkıntı yaşayacağınız durumlarla karşılaşabilirsiniz.
Delphi - .....................................
Listview'de nesnenin seçilmesi ve görünüm dışındaysa görünüm içersine alınması.
______________________________________________________________________________________________
// Merhaba;
// Listview'de bir nesneyi seçmek oldukça kolay sayılabilecek bir kod ile yapılabilmekte fakat
// bilmem ihtiyaç duydunuzmu ama seçtiğiniz nesne o anda listenin içersinde fakat scroll alanı
// dışındaysa ancak scroll'u kaydırarak nesnenin görünğüm içersine gelmesini sağlayabilirsiniz
// aslında bunun için de oldukça kolay bir kod mevcut fakat örnekler arasında göremeyince
// sizlerle paylaşmak istedim. Umarım faydası olur.
// Ömer UZUNER
______________________________________________________________________________________________
...
var
x : Integer;
begin
x := 12; // Seçecek olduğumuz nesnenin index numarası
ListView1.Items.Items[x].Selected := True; // nesnemizi seçtik
ListView1.Items.Items[x].Focused := True; // nesnemize focus olduk
// örneğin listview'imiz aynı anda 5 adet nesne görünebilecek büyüklükte bir
// listview olduğunda biz 12. nesneye focus olsakta bu nesne listenin aşağılarında
// olduğundan seçili olduğunu görmek için program çalışırken scroll'u aşağı
// kaydırmamız gerekecek, eğer birde timer nesnesiyle listeyiz sürekli temizleyip
// sonra doldurup sonrada 12. nesneyi seçecek olursanız vay sizin halinize
// anlattığımı tam olarak anlamak için "Görev Yönetici"benzeri bir program yazdığınızı
// düşüne bilirsiniz.
// işte böyle bir durumda otomatik olarak index'ini verdiğimiz nesneye kod ile scroll
// olmak için aşağıdaki bu basit ama etkili kodu kullanabilirsiniz.
ListView1.Items.Items[x].MakeVisible(True);
end;
// Unutmadan eğer listviewlerde sürekli imagelist ile ilgili işlem yaptığınızda
// yıpıldama sorunu yaşıyorsanız aşağıdaki kodu kullanarak bu sorundan kurtulabilirsiniz.
ListView1.DoubleBuffered := True;
// Belki bu tek satırlık kodlar ilk bakışta çok basit gelebilir ama unutmamak lazım ki
// bu kodlar kitaplarda bulabileceğiniz kodlar değil, diğer yandan bu kodlar olmadan
// gerçekten çok fazla sıkıntı yaşayacağınız durumlarla karşılaşabilirsiniz.
Delphi - .....................................
