Samanalevi Netkafe Anasayfa

Bilgisayar Adının Alınması

Sosyal Ağ Paylaşımı :                                

	Ekleyen : seasparrow Zaman : 27 Haziran 2005 Okunma : 768 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
Harddiskin Seri Numarasını Bulmak	seasparrow
Denetim Masası Uygulaması Çalıştırmak	seasparrow
Delphi İle Ip Bulma	seasparrow
Dosya Dizin İşlemleri	admin
Ekran Koruyucusunu Kapatıp Açmak	seasparrow
Explorerda Bir Web Sitesini Açma	seasparrow
Notepad'ı Çalıştırmak	beykozlu
Ekran Çözünürlüğünü Öğrenmek	seasparrow
Visual Studıo .net Hakkında	onur_1518
Buz Efektli Yazı	admin
Akarak Kaybolan Yazılar	seasparrow
Tıtle Bar Nasıl Yanıp Söner.	beykozlu
>birden Fazla Alanda Arama Yapmak	seasparrow
Ateş Efektli Yazı	admin
Çok Satırlı İpucu	seasparrow
Vb' De Diziler	beykozlu
Dövız Kurlarını Almak	admin
Windows Gezginini İstediğiniz Klasörde Açmak	seasparrow
Algoritmalar	seasparrow
Text Kutusundaki Değişiklikleri Farketme	beykozlu