نكات برنامه نويسي در دلفي

[Foroud]

قطعه كد زير براي باز و بسته كردن در CD ROM‌ به كار مي رود



procedure TForm1.Button1Click(Sender: TObject);
begin
{ open CD-ROM drive; returns 0 if successfull }
mciSendString('set cdaudio door open wait', nil, 0, handle);

{ close the CD-ROM drive; returns 0 if successfull }
mciSendString('set cdaudio door closed wait', nil, 0, handle);
end;

[Foroud]

برنامه زير مي تواند رزولوشن صفحه نمايش كامپيوتر را تغيير دهد



procedure TForm1.Button1Click(Sender: TObject);
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=800;
lDeviceMode.dmPelsHeight:=600;
ChangeDisplaySettings(lDeviceMode, 0);
end;

[Foroud]

با استفاده از دستور زير شما مي توانيد Title‌ برنامه خود را تغيير دهيد

Application.Title := DateTimeToStr(Now);

دستور فوق زمان را در Title برنامه شما نمايش مي دهد اگر مي خواهيد ساعت را كامل نشان دهد بايد يك timer در فرم خود قراردهيد و كد زير را وارد كنيد


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.Title := DateTimeToStr(Now);
end;

[Foroud]

با استفاده از كد زير مي توانيد درايو CD ROM كامپيوتر را پيدا كنيد




procedure TForm1.FormCreate(Sender: TObject);
var
Drive: Char;
AddedIndex: Integer;
CDRom : Array[0..10]of Char;
begin
for Drive := 'A' to 'Z' do { iterate through all possible drives }
begin
CDROM[0] := Drive;
CDROM[1] := #0;
strcat(CDROM,':/');
If GetDriveType(CDROM) = DRIVE_CDROM then
begin
ShowMessage('Found CDROM In Letter Drive '+Drive);
Break;
End;
end;
end;