Programı taskbardan saklamak

procedure TForm1.FormCreate(Sender: TObject);
begin
WS_EX_TOOLWINDOW); //taskbardan saklar
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

2 views

Belgeler Klasörünü temizlemek

Uses ShlOBJ;

procedure TMainForm.ButTemizleClick(Sender: TObject);
begin
SHAddToRecentDocs(SHARD_PATH, nil);
ShowMessage(‘Temizlendi’);
end;

1 views

Mouse Tuslarını Değiştirmek

Degistirme
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, NIL, 0);
Eski Haline Getirmek
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, NIL, 0);

40 views

Paradox dosyasına program içerisinden şifre konulması

procedure AddMasterPassword(Table: TTable; pswd: string);

const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
begin
{ Make sure that the table is opened and is exclusive }
if not Table.Active or not Table.Exclusive then
raise EDatabaseError.Create(‘Table must be opened in exclusive ‘ +
‘mode to add passwords’);

10 views

Mousun Ekran koordinatlarını değiştirmek

procedure TForm1.Button2Click(Sender: TObject);
begin
//mouse ekran kordinatlarini degistrir
SetCursorPos(11,22);
end;

1 views

Yuvarlak Form OluÅŸturma

procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
{ yuvarlak form olusturur }
region:=CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;

3 views

istenen değere göre sayı yuvarlama

function Yuvarla(deger: extended): extended;
var
yeni, kez: integer;
sayi: extended;
sayi2: extended;
const
ikimilyar: extended = 2000000000;
olcu: extended = 1000; //sayiyi 1000′e yuvarlama
begin
if deger < = 2147483647 then
begin
yeni := round(deger);
result := ((yeni div olcu) * olcu) + (byte((yeni MOD olcu)
>= (olcu/2)) * olcu);
end
else
begin

105 views

Modemin durumunu kontrol etmek

procedure TForm1.Button1Click(Sender: TObject);
var
CommPort : string;
hCommFile : THandle;
ModemStat : DWord;
begin
CommPort := ‘COM2′;
hCommFile := CreateFile(PChar(CommPort),
GENERIC_READ,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile = INVALID_HANDLE_VALUE then
begin

4 views

Ä°brahim Kaypakkaya

Ä°brahim Kaypakkaya

1949 yılında Çorum Alaca’da doğdu.

11 views

Formların maximize ve minimize butonlarına basıldığını anlamak

public
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;

…………

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
Showmessage(‘Deneme’);//Burda istediginiz islemi
gerceklestirebilirsiniz
DefaultHandler(Msg);
end;

8 views