Samanalevi Netkafe Anasayfa

Bilgisayar Adının Alınması

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 691 Yorumlar : 0 - Yorumları Oku - Yorum Yaz

Bilgisayar adinin alinmasi
{Bilgisayar'a login olmus kullanici adi ile karistirmayiniz}

function GetCompName: string;
var
buffer:array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
length:Cardinal;
begin
length:=MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(@Buffer,length);
Result := Buffer;
end;

// Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetCompName;
end;

TRichedit veya TMemo da o anki satir ve sütun numaralarini almak

// Asagidaki kod TMemo icin de calisir.
// Yapmaniz gereken parametre tiplerini TMemo yapmak


function RichRow(m:TRichedit) : LongInt;
begin
Result:=SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0);
end;

function RichCol(m:TRichedit) : LongInt;
begin
Result:=m.SelStart-SendMessage(m.handle,EM_LINEINDEX,SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0),0);
end;

// Kullanimi:
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:= Format('%d : %d',[RichCol(form1.richedit1),RichRow(form1.richedit1)]);
end;

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:= Format('%d : %d',[RichCol(form1.richedit1),RichRow(form1.richedit1)]);
end;

Konuya Ait Yorumlar

Şu an yorum yazılmamış!..

İlginizi Çekebilecek Konular
Başlık	Ekleyen
Dövız Kurlarını Almak	admin
Bilgisayar Adının Alınması	seasparrow
Dosya Açılış Yolları	seasparrow
Text Nasıl Şifrelenir.	beykozlu
Algoritmalar	seasparrow
Notepad'ı Çalıştırmak	beykozlu
Mp3 Player Kaynak Kodları	seasparrow
Vb'de Arıtmetıksel Operatorler	beykozlu
Veri Tipleri	seasparrow
Windows Gezginini İstediğiniz Bir Klasörle Açma	seasparrow
Windows Başlat Menüsü Resminin Değiştirilmesi	seasparrow
Programınızın Alt+f4 Tuşuyla Kapanmaması İçin	seasparrow
Formun Arkasına Resmi Döşemek	seasparrow
Hızlı Form	beykozlu
Çift Tıkla Maximize	seasparrow
Taskbarı Gizlemek	seasparrow
Hata (err) Nesnesı	admin
Asp De Beni Hatırla	seasparrow
Renklerin Hex Değerini Bulmak	seasparrow
Sitede Hava Durumu	admin