Ma`lumotlar : 1091
Xabarlar soni: 271
Bugun: 23.4.2021
Soat: 23:15
Delphi da pusk bo’limini ochish va o'zgartirish dasturi
Muallif: Mengliyev Sh.
Qo`shilgan sana: 2014-10-03
Delphi da pusk bo’limini ochish dasturi
Dastur dizayni
Dastur kodi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Handle,WM_SYSCOMMAND,SC_TASKLIST,0);
end;
end.
Dastur kodi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var wnd:HWND;
txt:array[0..10] of char;
s:PAnsiChar ;
begin
wnd:=FindWindow('Shell_TrayWnd',nil);
wnd:=FindWindowEx(wnd,0,'Button',nil);
s:=PChar(Edit1.Text );
StrCopy(txt,s);
SendMessage(wnd,WM_SETTEXT,
0,integer(@txt));
end;
end.
1815 marta o`qildi.
![]() |
![]() |