Chuyên mục này tớ viết ít bài về kỹ thuật lập trình Delphi nhằm giúp các bạn có thêm chút ít kinh nghiệm trong kỹ thuật lập trình.
Làm thế nào copy Desktop vào chương trình của bạn?
Code :
- Đầu tiên bạn kéo 1 nút Button vào Form và 1 Paintbox.
- Tiếp theo bạn đúp đôi chuột vào nút Button, đặt vào đó đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
// đoạn thêm vào
var
DeskTop : TCanvas ;
// kết thúc đoạn thêm vào
begin
//đoạn thêm vào
DeskTop := TCanvas.Create ;
try
with DeskTop do
Handle := GetWindowDC (GetDesktopWindow) ;

with PaintBox1.Canvas do
CopyRect (Rect (0, 0, 800, 600),
DeskTop,
Rect (0, 0, 800, 600))

finally
DeskTop.Free

end;
// kết thúc đoạn thêm vào
End.

Link vi du : rapidshare.com rapidshare.comCapture.exe.html
Thủ thuật thứ 2 : Làm thế nào để biết máy đang kết nối vào Internet?
Dễ lắm cứ theo tôi thì thấy.
- Đầu tiên bạn đưa vào form 1 nút Button.
sau đó bạn nhấp đôi chuột trái vào nút Button và gõ đoạn code sau :

Khai báo thư viện cần dùng dưới dòng implementation:

implementation


function
InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
// đoạn thêm vào
if InetIsOffline(0) then
ShowMessage('Chà chà mình không kết nối được vào internet rồi!')
else
ShowMessage ('Thích quá lướt Web thôi.');
// kết thúc đoạn thêm vào
end;

link vi du : rapidshare.com rapidshare.comcheckto.exe.html
Run cái thử xem, bạn thấy ngay kết quả.

Cảm ơn anh Triều đã tâm huyết với anh em. Đàn em thay mặt những anh em khác xin ghi nhận đóng góp của bác.

Thủ thuật 3: Làm thế nào để biết Ver của I.E ?
- Bạn kéo 1 nút button vào form và khai báo trong phần Uses thêm thư viện Registry
- gõ thêm đoạn code sau để lấy Version của I.E dưới mục implementation:

// đoạn thêm vào
function GetIEVersion(Key: string): string;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Internet Explorer', False);
try
Result := Reg.ReadString(Key);
except
Result := '';
end;
Reg.CloseKey;
finally
Reg.Free;
end;
end;
//kết thúc đoạn thêm vào

- Nhấp đôi chuột trái vào nút buton và đưa vào đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
begin
//đoạn thêm vào
ShowMessage('IE-Version: ' + GetIEVersion('Version'));
// kết thúc đoạn thêm vào
end;

link vi du : rapidshare.com rapidshare.comVer_IE.exe.html

Thủ thuật 4 : Làm thế nào để download file từ Interner ?
- Bạn thêm vào 2 thư viện trong phần Uses URLMon, ShellApi
- Viết hàm Download file :

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

- Kéo nút button vào trên form-->nhấp đôi chuột trái trên button và viết đoạn code sau :

procedure TForm1.Button1Click(Sender: TObject);
const
// địa chỉ file cần lấy
SourceFile = 'http://www.google.com/intl/de/images/home_title.gif';
// lưu file lại ở đây
DestFile = 'c:\temp\google-image.gif';
begin
if DownloadFile(SourceFile, DestFile) then
begin
ShowMessage('Download hoàn thành!'); ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
PChar(''), nil, SW_NORMAL)
end
else
ShowMessage('Lỗi trong khi download file ' + SourceFile)
end;

link vi du (down mặc định file VD1.exe lên Disk C): rapidshare.com rapidshare.comDownload_File.exe.html

Cái này hay ghê. Không biết bác temp mất bao lâu mới làm được nhỉ? Bác có thể chỉ cụ thể hơn thao tác mình có thể làm được các thủ thuật trên sau khi đã có chương trình không?

Hy vọng là bác có thêm nhiều phần tiện ích hay hơn! Cám ơn bác đã đóng góp cho diễn đàn!

Không. Ý em là sau khi bác đã viết xong chương trình và tạo thành file .exe thì em sài thế nào đó chứ. Nếu có bác share cho em mấy tiện ích nhỏ này chứ ạ? Thanks!

Còn rất nhiều bạn còn thắc mắc và nghi ngờ về ngôn ngữ này. Tiện đây tôi sẽ viết các ví dụ nhỏ về khả năng của nó cho các bạn thấy và mong rằng các bạn sẽ thấy được thế mạnh của ngôn ngữ này. Tôi mong rằng các bạn hãy nghiên cứu lệnh cơ bản và cú pháp của nó một cách nghiêm túc, vì ở chuyên mục này tôi không nhắc lại về các cú pháp và lệnh của nó (điều này làm mất thời gian). Tôi hy vọng rằng thời sau với sự ham học hỏi của các bạn (cũng là nguồn động viên cổ vũ cho tôi) các bạn thừa khả năng tự xây dựng cho mình các soft riêng phục vụ cho ngành.
Các ví dụ về đồ họa của ngôn ngữ Delphi.
các ví dụ dưới đây được tôi xây dựng hoàn toàn bằng ngôn ngữ Delphi Ver 6.0 (các bạn nên cài nó vì là chuẩn nhất trong các Ver của nó). Tôi đã biên dịch thành file chạy, mục đích cho các bạn chưa có điều kiện cài trình biên dịch của nó có thể chạy được nó. Các mã nguồn tôi sẽ trình bày cho các bài viết sau trong chuyên mục này.
link ví dụ 1 : http://rapidshare.com/files/304753959/VD1.exe.html
link vi du 2 :
http://rapidshare.com/files/304754327/VD2.exe.html
link ví dụ 3 :
http://rapidshare.com/files/304754553/VD3.exe.html
link ví du 4 :
http://rapidshare.com/files/304754821/VD4.exe.html
link ví dụ 5 (bạn giải nén và để các file ảnh chung thư mục file chạy):
http://rapidshare.com/files/304755017/VD5.rar.html
link ví dụ 6 :
http://rapidshare.com/files/304755313/VD6.exe.html
link ví dụ 7 (bạn giải nén và để các file ảnh chung thư mục file chạy):
http://rapidshare.com/files/304755596/VD_7.rar.html
Nếu thời gian cho phép, từ từ tôi cũng sẽ hướng dẫn các bạn về kỹ thuật điện tử số cũng như các ngôn ngữ lập trình khá mạnh khác như : c#, Lisp và Autoit (Anh bạn này là ngôn ngữ mô tả nhưng cực kỳ mạnh có thể các bạn còn chưa biết đến nó).
Thân chào, Phan Hải Triều.

hic, kỹ thuật lập trình của anh Triều đã đạt tới cảnh giới rồi, đàn em phục sát đất.
Hi vọng thời gian tới được anh chỉ bảo nhiều. hic hic

Hic, bai phục, bái phục. Không ngờ delphi hay thế, có thời gian em cũng sẽ cố gắng mò nó thôi. Quá hay !
Thanks Mr. temp

Thật sự tuyệt quá ,hay quá đi mất.Không biết học cái này khó lắm không bác Triều .Bác đúng là pro quá,thank....

Tôi có làm một ví dụ nhỏ để mô phỏng vật chuyển động trên nước. Nếu như các bạn đã nắm vững được ngôn ngữ này các bạn có thể xây dựng con tàu của "riêng các bạn" hoạt động trên biển... và phát triển theo nhiều hướng khác nữa
đây là link ví dụ mô phỏng nhỏ : rapidshare.com rapidshare.comMP_Bien.rar.html

Thủ thật 5 : làm thế nào chuyển đổi file dạng *.swf (Flash file) sang file *.exe?
Đầu tiên bạn viết thêm hàm chuyển đổi :

function Swf2Exe(S, D, F: string): string;
//S = File nguồn (swf)
//D = File đích (exe)
//F = Cờ nhận biết Flash file
varSourceStream, DestinyStream, LinkStream: TFileStream;
flag: Cardinal;
SwfFileSize: Integer;
beginResult := 'Lỗi
không làm gì';
DestinyStream := TFileStream.Create(D, fmCreate);
tryLinkStream := TFileStream.Create(F, fmOpenRead or fmShareExclusive);
tryDestinyStream.CopyFrom(LinkStream, 0);
finallyLinkStream.Free;
end;

SourceStream := TFileStream.Create(S, fmOpenRead or fmShareExclusive);
tryDestinyStream.CopyFrom(SourceStream, 0);
flag := $FA123456;
DestinyStream.WriteBuffer(flag, SizeOf(Integer));
SwfFileSize := SourceStream.Size;
DestinyStream.WriteBuffer(SwfFileSize, SizeOf(Integer));
Result := '';
finallySourceStream.Free;
end;
finallyDestinyStream.Free;
end;
end;

Sau đó kéo nút button vào Form và viết thêm đoạn code :

procedure TForm1.Button1Click(Sender: TObject);
beginSwf2Exe('c:\VD.swf', 'c:\VD.exe',
'c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayer.exe');
end;

Hôm nay rảnh chút, tớ viết thêm cho các bạn đoạn code nhỏ về mã hóa.

Thủ thuật 6 : Làm cách nào mã hóa và giải mã file hoặc chuổi?
Bạn bắt tay vào viết hàm mã hóa sau :

Khai báo thêm kiểu dữ liệu
type
TWordTriple = Array[0..2] of Word;

Hàm mã hóa như sau :
function MemoryEncrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer; TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i : Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := Byte(pIn^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end else
Result := False;
end;

function TextCrypt(const s: string; Key: TWordTriple; Encrypt: Boolean): string;
var
bOK: Boolean;
begin
SetLength(Result, Length(s));
if Encrypt then
bOK := MemoryEncrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key)
else
bOK := MemoryDecrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key);
if not bOK then Result := '';
end;

function TextEncrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, True);
end;

Thêm vào form nút button và đoạn lệnh sau :
procedure TForm1.Button1Click(Sender: TObject);
var s: TWordTriple; //đoạn thêm
begin
edit2.text:= TextEncrypt(edit1.Text,s); //chuổi mã hóa lưu tại Edit2
end;

Tương tự hàm giải mã được viết như sau :
function MemoryDecrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer; TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i : Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := byte(pOut^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end else
Result := False;
end;

function TextDecrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, False);
end;

Để mã hóa file, các bạn có thể làm tương tự.

cho em hỏi cách cài đặt bộ tools của delphi 7, từng bước cụ thể, và có thể cho em luôn bộ nguồn cài đặt và bộ tools mới ạh, thank