Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
uses kısmına MMSystem unitini ekleyin.
mciSendString('Set cdaudio door open wait', nil, 0, handle); //aç
mciSendString('Set cdaudio door closed wait', nil, 0, handle); //kapa
delphiye yeni başlamak isteyen arkadaşlar için ideal
İlk olarak md5.pas dosyamızın tamamını kopyalayın yeni bir metin belgesi oluşturun ve içine yapıştırın.. İsim olarak md5.pas yapın ve proje klasörünüzün içine atın.
md5.pas dosyası
:
unit MD5;
interface
type
Dizi= Array of integer;
function MD_5(str: string): string;
implementation...
Bir buton yapın. Butonun Caption kısmına "Klasör oluştur" yazısını koyun.
Butona iki kez tıklayın ve şu kodu ekleyin:
if CreateDir( 'C:UsersUSERDesktopdosyadi') then
begin
Application.MessageBox('Klasör oluşturuldu!','Mesaj', MB_ICONASTERISK);
end;
Şu kod butona iki kez tıkladığınızda...
Formumuza 1 menustrip 1 de webBrowser ekleyelim. Bunların menustripin içeriklerini aşağıdaki kodlara bakarak yazabilirsiniz.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using...
Merhaba arkadaşlar,
İlk olarak formumuza bir adet PictureBox ekliyoruz (Genişlik : 420 px Yükseklik : 150 px )
ve bir adet "Timer" ekliyoruz. (Interval = 1000 / Enabled = True )
Ve geldik kod kısmına ;
Public Class Form1
Dim dgn As New System.Diagnostics.PerformanceCounter("Processor"...
Formumuza bir adet "Label" Ekleyelim ve kod bölümüne geçelim ,
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim req As HttpWebRequest =...