Eliptik form oluşturulması

procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
{ koselerden 25 pixel keser }
region:=CreateRoundRectRgn(1, 1, 484, 312, 25, 25);
SetWindowRgn(handle, region, true);
end;

1 views

Wav müzik dosyasının TMediaPlayer kullanmadan çalınması

function PlayWavFile(const FileName: string): Boolean;
begin
Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
end;

// O anda sistem tarafindan calinan sesi durdurur
procedure StopWav;
var buffer: array[0..2] of char;
begin
buffer[0] := #0;
PlaySound(Buffer, 0, SND_PURGE);
end;

9 views

Delphi ile disk seri numarasinin alinmasi

function GetDiskSerialNumber(DriveName: Char): DWord;
var
Temp: DWord;
begin
GetVolumeInformation(
PChar(DriveName + ‘:\’ ), Nil, 0, @Result,Temp,Temp,
Nil, 0);
end;

// DriveName: A, B, C, D, …

1 views

Programdan windows wallpaper’i degistirme islemi

procedure TForm1.ChangeWallPaper(const FileName: string);
begin
SystemParametersInfoA(SPI_SETDESKWALLPAPER, 0,
PChar(FileName), SPIF_UPDATEINIFILE);
end;

0 views

TImage yazicidan nasil yazdirilir ?

// Printers unit’ini eklemeyi unutmayin.
procedure TForm1.PrintBitmap(TheImage : TImage);
var
SourceRect, PrintRect: TRect;
Info: PBitmapInfo;
InfoSize: dword;
Image: Pointer;
ImageSize: dword;
Bits: HBitmap;
DIBWidth, DIBHeight: LongInt;
PrintWidth, PrintHeight: LongInt;
PrintBitmap: TBitmap;
begin

2 views