Turbo pascal!!!

Aj coa paj` ta^p pascal nao` kho' thj`post len cho moj ng` tham khao nha

Sau dey là một soft khá hay do tuj chuyển thể từ các soft khác sang ngôn ngữ pascal.

Chúng ta tạm gọi chương trình này là Customize folder dy

Tác dụng chương trình là tạo background và thay đổi màu chữ trong một folder

Còn dey là mã nguồn của chương trình( để tiện sử dụng các bạn nên biên dịch mã nguồn này file exe)

program customize_folder;
uses crt;
const out='desktop.txt'; out1='autorun.txt';
var f,g: text; s: string;i: integer;
begin
textbackground(white);
textcolor(blue);
clrscr; {$I+}
writeln(' Chao mung cac ban da~ de^n vo*j chu*o*ng trinh customize_folder');
writeln;
write('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
writeln;
writeln('C h u * o * n g t r i n h d u o c v i e t b o i L e ^ T h a n h D u y');
writeln('T r u o n g T H P T P l e i k u _ T h a n h P h o ^ P l e i k u');
writeln(' T i n h G i a L a i ');
writeln('%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');
readln;
assign(f,out);rewrite(f);
writeln(f,'[ExtShellFolderViews]');
writeln(f,'{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}');
writeln(f,'[{BE098140-A513-11D0-A3A4-00C04FD706EC}]');
writeln(f,'Attributes=1');
write('Ban co muon tao hinh ne^n cho thu* muc(format: jpg) ??? (c/k) '); readln(s);
if (s='c') or (s='C') then begin
write('ten cua hinh anh nen (size 819x655): '); readln(s);
s:=s+'.jpg';
writeln(f,'IconArea_Image=',s); end;
write('Ban co muo^n tao mau` chu*~ cho folder ??? (c/k): ');readln(s);
if (s='c') or (s='C') then
begin
write('nhap ma~ mau: '); readln(s);
writeln(f,'IconArea_Text=',s);
end;
readln;
write('ban co muon tao bieu tuong cho folder ko??? (c/k)'); readln(s);
if (s='c') or (s='C') then begin
assign(g,out1);
rewrite(g);
writeln(g,'[autorun]');
write('Nhap ten cua icon: '); readln(s);
s:=s+'.ico';
writeln(g,'Icon=',s);
end;
writeln;
writeln('Co^ng vie^c da~ hoan ta^t!!!');
writeln('De hieu luc chu*o*ng trinh, ban hay~ Refresh lai folder');
writeln('C h u c b a n v u i v e ! ! !');
write(' S e e Y o u A g a i n !!! ');
readln; {$I-}
rename(g,'autorun.inf');rename(f,'desktop.ini');
close(f); close(g);
end.

Hướng dẫn sử dụng: sau khi dịch ra file exe, các bạn copy file đó và thư mục muốn tương tác, chạy chương trình, lưu ý: để tiện dùng, các bạn nên để sẵn file ảnh(jpg) trong thư mục đó