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.