Apiler - Sayfa 2 - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 19:20 Çevrimiçi

Code:

var

  OldVal : LongInt;

begin

  SystemParametersInfo (97, Word (True), @OldVal, 0)

(* Word(False) ile kullanırsanız tuşları tekrar kullanabilirsiniz. *)

ares · 07-12-07, 19:21 Çevrimiçi

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

  Bmp1 : TPicture;

begin

  Bmp1 := TPicture.Create;

  Bmp1.LoadFromFile('c:\deneme\turkey.bmp');

  SetMenuItemBitmaps( deneme1.Handle,

                      0,

                      MF_BYPOSITION,

                      Bmp1.Bitmap.Handle,

                      Bmp1.Bitmap.Handle);

end;

ares · 07-12-07, 19:22 Çevrimiçi

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  Makine_ismi:array[0..255] of char;
  BufferSize:DWORD;
begin
  BufferSize:=SizeOf(Makine_ismi);
  GetComputerName(@Makine_ismi,BufferSize);
  Showmessage(Makine_ismi);
end;

ares · 07-12-07, 19:22 Çevrimiçi

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  Kullanici_ismi:array[0..255] of char;
  BufferSize:DWORD;
begin
  BufferSize:=SizeOf(Kullanici_ismi);
  GetUserName(@Kullanici_ismi,BufferSize);
  Showmessage(Kullanici_ismi);
end;

ares · 07-12-07, 19:23 Çevrimiçi

Code:

  Screen.Width   //yatay çözünürlük
Screen.Height  //dikey çözünürlük

MessageDlg('Şu anda ' + IntToStr( Screen.Width ) +' x '+                                IntToStr( Screen.Height )+' çözünürlükte çalışıyorsunuz', mtInformation, [mbOk], 0 );

ares · 07-12-07, 19:24 Çevrimiçi

uses kısmına ShellAPI unitini ekleyin.

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  ABData : TAppBarData;
begin
  ABData.cbSize := sizeof(ABData);
  if (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0 then
     Showmessage('Autohide özelliği açık');
end;

ares · 07-12-07, 19:24 Çevrimiçi

uses se windows yazmayı unutmayın

Bazı işlemlerden sonra diğer bir işlemi çalıştırmadan önce bir süre beklemek istersiniz. Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen değer milisaniye cinsindendir. (1 saniye=1000 milisaniye)

Sleep(10000) //10 saniye bekler

ares · 07-12-07, 19:25 Çevrimiçi

Code:

 if (GetKeyState(VK_CAPITAL) and $01)<>0 then
    Showmessage ('caps lock açık');

ares · 07-12-07, 19:26 Çevrimiçi

Code:

 ShowCursor(False) //imleci gizler
ShowCursor(True)  //imleci tekrardan gösterir

ares · 07-12-07, 19:27 Çevrimiçi

Code:

 procedure TForm1.Button1Click(Sender: TObject);
var
  DCDesk: HDC;
begin
  DCDesk:=GetWindowDC(GetDesktopWindow);
  BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
  ReleaseDC(GetDesktopWindow, DCDesk);
end;

Not: Yukarıdaki kod ekran görünütüsünü form üstüne alır. Image bileşeni içine ekran görüntüsünü almak için form üzerine bir image bileşeni yerleştirin ve Form1.Canvas.Handle yerine Image1.Canvas.Handle yazın

ares · 07-12-07, 19:28 Çevrimiçi

Monitörü kapatmak için :

Code:

 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Monitörü açmak için :

Code:

 SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

ares · 07-12-07, 19:29 Çevrimiçi

Code:

 Winexec('Control.exe Date/Time',sw_shownormal);

07-12-07, 19:20 Çevrimiçi	#21
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Alt + Tab ve Ctrl + Esc tuşlarının kullanılmaz hale getirilmesi Code: var OldVal : LongInt; begin SystemParametersInfo (97, Word (True), @OldVal, 0) (* Word(False) ile kullanırsanız tuşları tekrar kullanabilirsiniz. *)

07-12-07, 19:24 Çevrimiçi	#26
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Taskbar'ın (Görev çubuğu) AutoHide özelliği açık mı, kapalı mı? uses kısmına ShellAPI unitini ekleyin. Code: procedure TForm1.Button1Click(Sender: TObject); var ABData : TAppBarData; begin ABData.cbSize := sizeof(ABData); if (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0 then Showmessage('Autohide özelliği açık'); end;

07-12-07, 19:24 Çevrimiçi	#27
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Programım biraz beklesin uses se windows yazmayı unutmayın Bazı işlemlerden sonra diğer bir işlemi çalıştırmadan önce bir süre beklemek istersiniz. Bu gibi durumlarda Sleep komutunu kullanabilirsiniz. Burada verilen değer milisaniye cinsindendir. (1 saniye=1000 milisaniye) Sleep(10000) //10 saniye bekler

07-12-07, 19:25 Çevrimiçi	#28
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Caps lock tuşu açık mı, kapalı mı? Code: if (GetKeyState(VK_CAPITAL) and $01)<>0 then Showmessage ('caps lock açık');

07-12-07, 19:26 Çevrimiçi	#29
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	İmleci (cursor) gizleyip, tekrar gösterme Code: ShowCursor(False) //imleci gizler ShowCursor(True) //imleci tekrardan gösterir

07-12-07, 19:27 Çevrimiçi	#30
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Ekran görüntüsünü alın Code: procedure TForm1.Button1Click(Sender: TObject); var DCDesk: HDC; begin DCDesk:=GetWindowDC(GetDesktopWindow); BitBlt(Form1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY); ReleaseDC(GetDesktopWindow, DCDesk); end; Not: Yukarıdaki kod ekran görünütüsünü form üstüne alır. Image bileşeni içine ekran görüntüsünü almak için form üzerine bir image bileşeni yerleştirin ve Form1.Canvas.Handle yerine Image1.Canvas.Handle yazın

07-12-07, 19:28 Çevrimiçi	#31
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Güç koruma modunda (Power Safe Mode) çalışan monitörü kapatıp açma Monitörü kapatmak için : Code: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0); Monitörü açmak için : Code: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

07-12-07, 19:29 Çevrimiçi	#32
ares Genel Mesajlar: 6.383 Teşekkür etti: 764 Teşekkür edildi: 2.107 RepForum Gücü: 500 Forum Puanı:43217	Windows Tarih/Saat Özellikleri (Date/Time Properties) iletişim kutusunu açma Code: Winexec('Control.exe Date/Time',sw_shownormal);

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder