Under Speed - Saat Senkronizasyon Programi

Herkese Merhaba,

 

Daha onceleri de delphi de cok kez program yazdim ama delphiye hep

ara verdim. (Delphi de iyi oldugumu falan sanmayin)

Gecen gun patronuma gittigi yerde lazim olan bir

dos komut satirini bir program haline getirerek gondermek

zorunda kaldigim icin notebook a uzun sureden sonra yeniden

delphi kurmak zorunda kaldim ve bu programi yaptim.

 

Gelelim programa;

Program sunu yapiyor. Diyelimki 10 tane bilgisayar var ve bu bilgisayarlar

network ile birbirine bagli. Bilgisayarlar saatlerini normalde biostan alir.

Ama diyelimki siz bir bilgisayarda bios u ayarladiniz ve diger butun

bilgisayarlarin saatlerini bu bilgisayardan almasini istiyorsunuz.

Iste bu program server adini yada IP sini verdiginiz bilgisayarin saatini

aliyor ve programi calistirdiginiz bilgisayarin saatini ona gore ayarliyor.

10 bilgisayarda ayni saate sahip olmus oluyor.

 

Formunuza koymaniz gerekenler;

2 adet button

2 adet edit

9 adet label

2 adet timer

 

ve Uses kismina eklemeniz gerekenler;

ExtCtrls, StdCtrls, ShellApi

 

 

Belki biryerlerde isinize yarar.

 

Delphi li iyi gunler :)

 

Not : Programin formunun yapilmis halini yakinda acicagim web siteme koyucam.

O zaman sitemi buraya yazarim.

 

...Under Speed...

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ShellApi;

 

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Label4: TLabel;

    Label5: TLabel;

    Button2: TButton;

    Label7: TLabel;

    Label6: TLabel;

    Timer2: TTimer;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

zaman:integer;

begin

zaman:=strtoint(edit2.Text);

edit1.Enabled:=false;

edit2.Enabled:=false;

button1.Enabled:=false;

button2.Enabled:=true;

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c net time '+ edit1.Text +' /set /yes'), nil, SW_HIDE);

timer1.Interval:= zaman * 1000;

timer2.Interval:= zaman * 1000;

timer1.Enabled:=true;

timer2.Enabled:=true;

label7.Caption:='Online';

label7.Font.Color:=clActiveCaption;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c net time '+ edit1.Text +' /set /yes'), nil, SW_HIDE);

end;

 

 

procedure TForm1.FormCreate(Sender: TObject);

begin

button2.Enabled:=false;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Enabled:=true;

edit2.Enabled:=true;

button1.Enabled:=true;

button2.Enabled:=false;

timer1.Enabled:=false;

timer2.Enabled:=false;

label7.Caption:='Offline';

label7.Font.Color:=clred;

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

var

saat:TDateTime;

begin

saat:=Time;

label8.Caption:=TimeToStr(saat);

end;

 

end.

 

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

 

Under Speed - Saat Senkronizasyon Programi

Herkese Merhaba,

 

Daha onceleri de delphi de cok kez program yazdim ama delphiye hep

ara verdim. (Delphi de iyi oldugumu falan sanmayin)

Gecen gun patronuma gittigi yerde lazim olan bir

dos komut satirini bir program haline getirerek gondermek

zorunda kaldigim icin notebook a uzun sureden sonra yeniden

delphi kurmak zorunda kaldim ve bu programi yaptim.

 

Gelelim programa;

Program sunu yapiyor. Diyelimki 10 tane bilgisayar var ve bu bilgisayarlar

network ile birbirine bagli. Bilgisayarlar saatlerini normalde biostan alir.

Ama diyelimki siz bir bilgisayarda bios u ayarladiniz ve diger butun

bilgisayarlarin saatlerini bu bilgisayardan almasini istiyorsunuz.

Iste bu program server adini yada IP sini verdiginiz bilgisayarin saatini

aliyor ve programi calistirdiginiz bilgisayarin saatini ona gore ayarliyor.

10 bilgisayarda ayni saate sahip olmus oluyor.

 

Formunuza koymaniz gerekenler;

2 adet button

2 adet edit

9 adet label

2 adet timer

 

ve Uses kismina eklemeniz gerekenler;

ExtCtrls, StdCtrls, ShellApi

 

 

Belki biryerlerde isinize yarar.

 

Delphi li iyi gunler :)

 

Not : Programin formunun yapilmis halini yakinda acicagim web siteme koyucam.

O zaman sitemi buraya yazarim.

 

...Under Speed...

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ShellApi;

 

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Label4: TLabel;

    Label5: TLabel;

    Button2: TButton;

    Label7: TLabel;

    Label6: TLabel;

    Timer2: TTimer;

    Label8: TLabel;

    Label9: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

zaman:integer;

begin

zaman:=strtoint(edit2.Text);

edit1.Enabled:=false;

edit2.Enabled:=false;

button1.Enabled:=false;

button2.Enabled:=true;

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c net time '+ edit1.Text +' /set /yes'), nil, SW_HIDE);

timer1.Interval:= zaman * 1000;

timer2.Interval:= zaman * 1000;

timer1.Enabled:=true;

timer2.Enabled:=true;

label7.Caption:='Online';

label7.Font.Color:=clActiveCaption;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c net time '+ edit1.Text +' /set /yes'), nil, SW_HIDE);

end;

 

 

procedure TForm1.FormCreate(Sender: TObject);

begin

button2.Enabled:=false;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Enabled:=true;

edit2.Enabled:=true;

button1.Enabled:=true;

button2.Enabled:=false;

timer1.Enabled:=false;

timer2.Enabled:=false;

label7.Caption:='Offline';

label7.Font.Color:=clred;

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

var

saat:TDateTime;

begin

saat:=Time;

label8.Caption:=TimeToStr(saat);

end;

 

end.

 

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

 

Under Speed - Yanıp Sönen Yazı

Bunu bir Component haline getirmek istiyordum ama Componenti tam olarak

nasıl yaparım bilmiyorum o yüzden böyle kod olarak yazıyorum.

Formunuzun üzerine yerleştirdiğiniz label sürekli olarak yanıp söner.

Zamanını da timer ın Interval kısmından ayarlayabilirsiniz.

 

Delphili iyi günler.

 

...Under Speed...

 

Formunuza eklemeniz gerekenler;

1 adet label

1 adet timer

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label1.Visible=false then

begin

label1.show;

end

else

begin

label1.hide;

end

end;

 

end.

 

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

 

Notilus - (Yardım) Programı çalıştırdıktan sonra kendini silmesi

Buradan hiç soru sormadım, sormayı da istemezdim ama çok gerekli olduğundan

mecbur kaldım.

 

Program açıldıktan sonra kendini kapatıp silmesini istiyorum ama gereken kodu

bulamadım. Yardımcı olursanız sevinirim...

 

Teşekkürler....

 

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

 

Notilus - (Yardım) Programı çalıştırdıktan sonra kendini silmesi

Buradan hiç soru sormadım, sormayı da istemezdim ama çok gerekli olduğundan

mecbur kaldım.

 

Program açıldıktan sonra kendini kapatıp silmesini istiyorum ama gereken kodu

bulamadım. Yardımcı olursanız sevinirim...

 

Teşekkürler....

 

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

 

shafack-2000 yılı problemi

(* http://d.1asphost.com/yeterbe/kodbank/default.asp *)

 

DateSeparator:='/';

TwoDigitYearCenturyWindow:=15;

showmessage(datetostr(strtodate('01/01/90')));

 

 

(*

eğer geride bıraktığımız 15 yıl içinde '01/01/90' tarihi

geçiyorsa bize 1990; geçmiyorsa 2090 değerini döndürür

*)

 

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

 

shafack-2000 yılı problemi

(* http://d.1asphost.com/yeterbe/kodbank/default.asp *)

 

DateSeparator:='/';

TwoDigitYearCenturyWindow:=15;

showmessage(datetostr(strtodate('01/01/90')));

 

 

(*

eğer geride bıraktığımız 15 yıl içinde '01/01/90' tarihi

geçiyorsa bize 1990; geçmiyorsa 2090 değerini döndürür

*)

 

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

 

KURTAGENT V1.0 STANDART SÜRÜM(bug düzeltildi)

KURTAGENT V1.0 STANDART SÜRÜM

 

              by unreachableboy

 

ÇÖZÜMLENEN BUGLAR

 

1- Mail gönderme işleminde bazı SMTP Serverlarda

yaşanan problem giderildi.

 

YENİLİKLER

 

1- DLL Enjeksiyonu fonksiyonel ve daha yenilikçi

bir yapıya kavuşturuldu.DLL Internet Explorera

enjekte edilerek direkt mail yollanması sağlandı.

 

2- Çoklu Skin desteği sağlandı.

 

BÜTÜN DİLEK,ÖNERİ ve ŞİKAYETLERİNİZ İÇİN

 

unreachableboy@hotmail.com

 

ADRESİNE MAİL ATABİLİRSİNİZ...

 

UNUTMAYIN Kİ YAZILIMLARIN GELİŞTİRİLMESİ

KULLANICILARA BAĞLIDIR!

 

İYİ GÜNLER

 

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

 

AŞAĞIDAKİ KOD ÇALAN MÜZİĞİN CHECKBOX İLE MUTE EDİLMESİDİR

uses

  MMSystem;

 

function GetMasterMute(

  Mixer: hMixerObj;

  var Control: TMixerControl): MMResult;

  // Returns True on success

var

  Line: TMixerLine;

  Controls: TMixerLineControls;

begin

  ZeroMemory(@Line, SizeOf(Line));

  Line.cbStruct := SizeOf(Line);

  Line.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;

  Result := mixerGetLineInfo(Mixer, @Line,

    MIXER_GETLINEINFOF_COMPONENTTYPE);

  if Result = MMSYSERR_NOERROR then

  begin

    ZeroMemory(@Controls, SizeOf(Controls));

    Controls.cbStruct := SizeOf(Controls);

    Controls.dwLineID := Line.dwLineID;

    Controls.cControls := 1;

    Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;

    Controls.cbmxctrl := SizeOf(Control);

    Controls.pamxctrl := @Control;

    Result := mixerGetLineControls(Mixer, @Controls,

      MIXER_GETLINECONTROLSF_ONEBYTYPE);

  end;

end;

 

procedure SetMasterMuteValue(

  Mixer: hMixerObj;

  Value: Boolean);

var

  MasterMute: TMixerControl;

  Details: TMixerControlDetails;

  BoolDetails: TMixerControlDetailsBoolean;

  Code: MMResult;

begin

  Code := GetMasterMute(0, MasterMute);

  if Code = MMSYSERR_NOERROR then

  begin

    with Details do

    begin

      cbStruct := SizeOf(Details);

      dwControlID := MasterMute.dwControlID;

      cChannels := 1;

      cMultipleItems := 0;

      cbDetails := SizeOf(BoolDetails);

      paDetails := @BoolDetails;

    end;

    LongBool(BoolDetails.fValue) := Value;

    Code := mixerSetControlDetails(0, @Details,

MIXER_SETCONTROLDETAILSF_VALUE);

  end;

  if Code <> MMSYSERR_NOERROR then

    raise Exception.CreateFmt('SetMasterMuteValue failure, '+

      'multimedia system error #%d', [Code]);

end;

 

// Example:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetMasterMuteValue(0, CheckBox1.Checked); // Mixer device #0 mute on/off

end;