IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Delphi (https://www.ircforumlari.net/delphi/)
-   -   Delphi Api Kullanımı -1 (https://www.ircforumlari.net/delphi/124778-delphi-api-kullanimi-1-a.html)

Cemalizim 21 Temmuz 2008 19:43

Delphi Api Kullanımı -1
 
PHP- Kodu:

unit Unit1;

interface

uses
  Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
  
DialogsStdCtrls;

type
  TForm1 
= class(TForm)
    
Button1TButton;
    
Button2TButton;
    
Button3TButton;
    
Button4TButton;
    
procedure Button1Click(SenderTObject);
    
procedure Button2Click(SenderTObject);
    
procedure Button3Click(SenderTObject);
    
procedure Button4Click(SenderTObject);
  private
    { Private 
declarations }
  public
    { Public 
declarations }
  
end;

var
  
Form1TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(SenderTObject);
var
  
Rgn hRgn;
begin
  
// Başlat butonunu gizle
  
Rgn := CreateRectRgn(0000);
  
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd'nil),
                                       
0,
                                      
'Button',
                                       
nil),
                                       
Rgn,
                                       
true);
end;


procedure TForm1.Button2Click(SenderTObject);
begin
//Gizlenen Başlat butonunu eski haline döndürmek için
  
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd'nil),
                                       
0,
                                      
'Button',
                                       
nil),
                                       
0,
                                       
true);
end;



procedure TForm1.Button3Click(SenderTObject);
begin
  EnableWindow
(FindWindowEx(FindWindow('Shell_TrayWnd'nil),
                                       
0,
                                       
'Button',
                                       
nil),
                                       
false);

end;

procedure TForm1.Button4Click(SenderTObject);
begin
EnableWindow
(FindWindowEx(FindWindow('Shell_TrayWnd'nil),
                                       
0,
                                       
'Button',
                                       
nil),
                                       
true);

end;

end

alıntı


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:23.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk