Mega Code Archive
Code snippet - 2
<![CDATA[
//delphi FAQ.chm'den derledim
--15------------------------------------------------------------
{ADO Tablonuzu daha hızlı tazeleyin:
procedure TFrmListOpen.TableRefresh;
var
SavePlace : TBookmark;
begin
SavePlace := DM.TableOpenEvents.GetBookmark;
DM.TableOpenEvents.Requery;
DM.TableOpenEvents.GotoBookMark(SavePlace);
DM.TableOpenEvents.FreeBookMark(SavePlace);
end;
}
--16------------------------------------------------------------
{Delphi formunuzda *.pdf (Adobe Acrobat Reader dosyası) açabilirsiniz:
Tabii önce Acrobat kurmanız gerek.
Component*Import ActiveX Control*Acrobat Control for ActiveX(Version 1.3)
Src:C:\belgelerim\delphi.pdf
Araç çubuğunu yok etmek için: Pdf1.setShowToolbar(false);
Benzer şekilde Macromedia Flash, Microsoft Agent gibi nesneleri keşfedebilirsiniz.
}
--17------------------------------------------------------------
{Konsol uygulamalarında ekranı temizlemek:
function ClearConsoleScreen: boolean;
const
BUFSIZE = 80*25;
var
Han,Dummy: LongWord;
buf: string;
coord: TCoord;
begin
Result := false;
Han := GetStdHandle(STD_OUTPUT_HANDLE);
if Han <> INVALID_HANDLE_VALUE then
begin
if SetConsoleTextAttribute(han, FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE) then
begin
SetLength(buf,BUFSIZE);
FillChar(buf[1],Length(buf),' ');
if WriteConsole(han,PChar(buf),BUFSIZE,Dummy,nil) then
begin
coord.X := 0;
coord.Y := 0;
if SetConsoleCursorPosition(han,coord) then
Result := true;
end;
end;
end;
end;
}
--18------------------------------------------------------------
{Sayıyı İkilik Metne dönüştürmek:
function IntToBinStr(num: integer): string;
var
i: integer;
begin
for i := 0 to 31 do
Result := IntToStr((num shr i) and 1)+Result;
end;
}
--19------------------------------------------------------------
{Aktif Pencere başlığı: (Netscape yerine IExplore yazmak yeterli)
Uses DdeMan;
procedure TForm1.Button1Click(Sender: TObject);
var
DDE: TDdeClientConv;
begin
DDE := TDdeClientConv.Create(self);
if DDE.SetLink( 'Netscape', 'WWW_GetWindowInfo' ) then
Edit1.Text := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' )
else
ShowMessage( 'Netscape is not running' );
DDE.Free;
end;
}
--20------------------------------------------------------------
{TWebBrowser nesnesinde copy/paste yapabilmek için:
uses ActiveX;
son satırlara:
initialization
OleInitialize(nil);
finalization
OleUninitialize;
}
--21------------------------------------------------------------
{Tekerlekli Faren var mı?
if (mouse.WheelPresent) then ...
}
--22------------------------------------------------------------
{Microsoft Word ile otomasyon:
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
Word97: Variant;
begin
Word97 := CreateOLEObject('Word.Application');
Word97.Documents.Add;
Word97.Selection.TypeText('Wow BOB woW');
Word97.Visible := True;
Word97:= UnAssigned;
end;
}
]]>