Kapsamlİ Bİr Delphİ ÖrneĞİ.

[saracoza]

şimdi kapsamli bir program yapacağız öncelikle formunuza bir memo kontrolu
yerlestirin ve arkasindan 7 adet buton yerlestirin,1.Buton(Cd rom ac) 2.Buton(Cd rom kapa)3.Buton(Başlat butonunu gizle)4.Buton(Başlat butonunu göster)5.Buton(HDD serinosunu bul)6.Buton(Forma tarih ve saat koy)7.Buton(Kapat butonunuj kitle) olarak adlandırın.Aşağıdaki kodu gerekli yerlere uygulayin


Kod:
unit Unit1;

interface

uses
Windows, Messages,MMSystem, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Memo1: TMemo;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowWindow (FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),SW_Hide);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
ShowWindow (FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),SW_ShowNormal);
end;

procedure TForm1.Button5Click(Sender: TObject);

var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
iPos:Integer;
begin
hwndHandle := FindWindow(nil,PChar(Caption));

if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then begin
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
iPos := GetMenuItemCount(hMenuHandle);
Dec(iPos);
{ Make sure no errors occured i.e. -1 indicates an error }
if iPos > -1 then
DeleteMenu(hMenuHandle,iPos,MF_BYPOSITION);
end;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);

var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',nil,0,@VolumeSerialNumber, MaximumComponentLength,FileSystemFlags,nil, 0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
form1.caption:='Tarih '+datetostr(date)+ ' Saat '+ timetostr(time);

end;

end.
cd kapa ac icin uses kismina MMSystem eklemeyi unutmayin.
calışmalarınızda başarılar.
ALINTIDIR.