سورس های مفید

با سلام و خسته نباشید

یه سری کدهای مفید که فکر کنم  واسه برنامه نویسان دلفی مفید باشه رو به امید خدا می خوام اینجا بزارم.ایشالله که مفید باشه

- پیدا کردن مسیر دایرکتوری برنامه در حال اجرا

procedure TForm1.Button1Click(Sender: TObject);
var path:string;
begin
  path:=ExtractFilePath(Application.ExeName);
  ShowMessage(path);
end;

-undo کردن یک عمل

procedure TForm1.Button1Click(Sender: TObject);
begin
 with memo1 do
 begin
  Perform(EM_UNDO,0,0);
 end;
end;

-حرکت کرسر درون memo با حرکت دادن موس

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Memo1.SelStart:=loword(SendMessage(Memo1.Handle,EM_CHARFROMPOS,0,MakeLParam(x,y)));
Memo1.SelLength;
end;

-نمایش دادن ساعت جاری سیستم به صورت گرافیکی

  public
    { Public declarations }
    desktopcanvas : tcanvas;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var a:tdatetime;
i :integer;
str:string;
begin
  desktopcanvas := TCanvas.Create;
  desktopcanvas.Handle := GetDC(HWND_DESKTOP);
  a:=time;
  str:=TimeToStr(a);
  desktopcanvas.Font.Color := clblue;
  desktopcanvas.Font.Name := ('timesnewrandom');  //show font
  desktopcanvas.Font.Size:=18;
  desktopcanvas.TextOut(567,0,str); //show location
  SetBkMode(Canvas.Handle,i);