Komega kullanıcısının son içeriği

Linux, kararlı çekirdeği, ağ yazılımlarının çeşitliliği ve kalitesi, performans/maliyet eğrisindeki konumu nedeni ile günümüzün en çok tercih edilen ağ işletim sistemlerinden olmuştur. Dışarıdan ve içeriden gelebilecek tehlikelere karşı gerekli önlemler alınmış bir Linux kurulu makine yıllarca...

Linux serveri , yönetim paneli kurlumu videoda detaylı bir şekılde anlatılmıs arkadaşlar , iyi seyirler :) https://www.youtube.com/watch?v=ItcnyobhAAE

Form1.Print; O anki sürücünün kapasitesini ve sürücüdeki bos yer miktarini bulmak; DiskFree(0) //o anki sürücüdeki bos yer miktarini byte cinsinden döndürür. DiskSize(0) //o anki sürücünün kapasitesini byte cinsinden döndürür. DiskSize(0) div 1024 //o anki sürücünün kapasitesini KB cinsinden...

procedure TForm1.Button1Click(Sender: TObject); var Buffer: PChar; Size: Byte; begin Size := Edit1.GetTextLen; {Get length of string in Edit1} Inc(Size); {Add room for null character} GetMem(Buffer, Size); {Creates Buffer dynamic variable} Edit1.GetTextBuf(Buffer,Size); {Puts Edit1.Text into...

procedure TForm1.Button1Click(Sender: TObject); var dc : hdc; begin dc := GetDc(0); MoveToEx(Dc, 0, 0, nil); LineTo(Dc, 300, 300); ReleaseDc(0, Dc); end;

Uses shellapi; procedure TForm1.FormCreate(Sender: TObject); var TheIcon: TIcon; begin TheIcon := TIcon.Create; TheIcon.Handle := ExtractIcon(hInstance,'C:\dosya\dosya.EXE',0); image1.picture.Icon:=Theicon; end;

hTaskbar := FindWindow('Shell_TrayWnd', Nil );

var Flash : bool; procedure TForm1.Timer1Timer(Sender: TObject); begin FlashWindow(Form1.Handle, Flash); FlashWindow(Application.Handle, Flash); Flash := not Flash; end; procedure TForm1.FormCreate(Sender: TObject); begin Flash := False; end;

procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Form1.Handle,GWL_STYLE,GetWindowLong (Handle,GWL_STYLE) and not WS_CAPTION); Height := ClientHeight; end;

uses Registry, {For Win32} IniFiles; {For Win16} {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} {For Win32} procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false...

procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND,$A065, 0); end;

Windows programinin açilisi WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOWNORMAL); Komut satiri ile birlikte : WinExec('C:\WINDOWS\NOTEPAD.EXE C:\WINDOWS\WIN.INI', SW_SHOWNORMAL); Pop Up dos kutusuyla : WinExec('COMMAND.COM', SW_SHOWNORMAL); Normal bir dos programinin komutla açilisi...

function Comp2Str(N: Comp): String; var TS: String; begin Str(N:0:0, TS);Comp2Str := TS; end;

Bunun için forma birtana label componenti yerlestirin ve visible özeligini false yapin. function frmt(yer:string):string; var s:string; uzunluk:integer; kalan,k,dgr:integer; begin s:='.'; uzunluk:=Length(yer); dgr:=uzunluk div 3; kalan:=uzunluk - (dgr*3); label1.caption:=inttostr(kalan); if...