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

Arkadaşlar beni tanıyanlar bilirler uzunca bir süre işlerimin yoğunluğu sebebiyle uzak kaldım sadece buradan değil heryerden. ama tekrar burdayım paylaşımlarım ve bilgimin yettiği kadarıyla yardımlarımla. Arkadaşlar mod luğumu silmişler sanırım hiç önemi yok. Yukarıda yeni üye mod veya başka...

function EnumChildProc(Wnd: hWnd; SL: TStrings): BOOL; stdcall; var szFull: array[0..MAX_PATH] of Char; //Buffer for window caption begin Result := Wnd <> 0; if Result then begin GetWindowText(Wnd, szFull, SizeOf(szFull)); // put window text in buffer if (Pos(SL[0], StrPas(szFull)) > 0) // Test...

(* __ Formunuza 2 adet Label Nesnesi ekleyin __*) procedure TForm1.Button1Click(Sender: TObject); var u: array[0..127] of Char; c: array[0..127] of Char; KullaniciAdi: string; BilgisayarAdi: string; s: dword; begin s := SizeOf(u); GetUserName(u, s); s := SizeOf(c)...

procedure TForm1.Button1Click(Sender: TObject); begin application.terminate; sleep(250); winexec(pchar(application.exename),1); halt; end; ;) ne işe yarar demeyin biraz düşünün anlarsınız. genede anlamadıysanız yazıon buraya :D

Dosya Kopyalama (1) Procedure FileCopy( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end...

//Forma bellek ve bosyer adında 2 label koyun dememe gerek //olmadığı için demiyeceğim. procedure TForm1.Button1Click(Sender: TObject); var MS: TMemoryStatus; begin GlobalMemoryStatus(MS); Bellek.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024); //kullanılabilir bellek...

function FuncAvail (_dllname, _funcname: string; var _p: pointer): boolean; var _lib: tHandle; begin Result := false; _p := NIL; if LoadLibrary(PChar(_dllname)) = 0 then exit; _lib := GetModuleHandle(PChar(_dllname)) ; if _lib <> 0 then begin _p :=...

unit Unit1; uses Windows, Dialogs, Sysutils; {....} implementation {....} var mHandle: THandle; // Mutexhandle initialization mHandle := CreateMutex(nil, True, 'XYZ'); if GetLastError = ERROR_ALREADY_EXISTS then begin ShowMessage('Program is already running!'); halt...

Cisco Sertifikaları Network alanında ilerlemek isteyen BT profesyonelleri Cisco’nun sertifikasyon programı ile bilgi ve tecrübe sahibi olurlar. Cisco sertifikalı BT profesyonelleri, network planlamasında, ağ yönetiminde, danışmanlıkta, network kuruluş ve destek aşamalarında bilgi sahibi...

Port Anahtar Sözcük Açıklama 0/tcp, udp Reserved 1/tcp, udp tcpmux TCP Port Service Multiplexer 2/tcp, udp compressnet Management Utility 3/tcp, udp compressnet Compression Process 4/tcp, udp Unassigned 5/tcp, udp rje Remote Job Entry 6/tcp, udp Unassigned 7/tcp, udp echo Echo 8/tcp, udp...

UTP Kablo Nasıl Yapılır? Kablo yaparken, yani bir kablonun iki ucuna jak takarken, kabloyu nerede kullanacağınıza bağlı olarak iki tipten bahsedilebilir. Düz kablo, cross(çapraz) kablo. Gördüğünüz gibi aynı cihazlar arasında(PC-PC veya Hub-Hub) cross kablo kullanıyoruz. PC'den hub'a...

DNS Daha önceki dokümanlarda açıklandığı şekilde bir IP ağı üzerinde çeşitli servislere ulaşmak için bu servislerin çalıştığı sistemlerin 4 sayıdan oluşan akılda kalması zor ve son kullanıcılar için hemen hiçbir şey ifade etmeyen adreslerinin bilinmesi gerekmektedir. Bu sorunun nasıl aşıldığı...

TCP/IP Yönlendirme Önceki dokümanda TCP/IP’nin ne oldugunu ve adreslemenin nasil yapildigi anlatilmisti, paketlerin internet üzerinde yollarini nasil bulduklarini ise bu dokümanda anlatacagiz. Öncelikle bir TCP/IP networküne baglanmak isteyen bir bilgisayarda yapilmasi gereken ayarlari ele...

TCP/IP’ye Genel Bir Bakis Internet üzerinde bilgisayarlar nasil adreslenirler ve paketler yollarini nasil bulurlar. Bu soru bilgisayar aglari ile ugrasan herkesin bir süre kafasini kurcalamis bir sorudur. Bu soruya yanit bulabilmek için internet’in temel protokolü olan TCP/IP’nin yapisini bir...

Arkadaşlar Delphi ile ilgili sorusu / sorunu olan arkadaşlara buradan yardım ediyoruz. ileri düzey veya amatör hiç farketmez merak ettiğiniz yada takıldığınız her konuyu buraya yazabilirsiniz. Teşekkürler.