سورسهای نمونه در دلفی ...

تشخیص اینکه آیا رایانه دارای Writer می باشد؟

دوستان چون این سورس کوتاه بود همینجا گزاشتم

با کد زیر این کار را می توانید به راحتی انجام دهید:



uses ComObj,registry;

function HasCDRecorder: Boolean;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
// set the the Mainkey, bestimmt den Hauptschlüssel
reg.RootKey := HKEY_CURRENT_USER;
// Open a key, den Schlüssel ?ffnen
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Explorer\CD Burning', False);
// Check if the Key exists, Uberprüfen ob die Zeichenfolge existiert
Result := reg.ValueExists('CD Recorder Drive');
// Close the key, Schlüssel schliessen
reg.CloseKey;
finally
// and free the TRegistry Object, das TRegistry Objekt freigeben
reg.Free;
end;
end;

یک دکمه بر روی فرم خود قرار دهید و با کد زیرآن را آزمایش کنید:

procedure TForm1.Button1Click(Sender: TObject);
begin
if HasCDRecorder then
ShowMessage('CD-Recorder available.')
else
ShowMessage('CD-Recorder NOT available.');
end;

فهمیدن زمان آپ تایم ویندوز

قطعا تا کنون با این مورد در برنامه های زیادی روبرو شدید.توسط این کد می توانید تشخیص دهید که ویندوز چه مدت است که در حال اجراست.

یک لیبل به فرمتون اضافه کنید :


function UpTime: string;
const
ticksperday: Integer = 1000 * 60 * 60 * 24;
ticksperhour: Integer = 1000 * 60 * 60;
ticksperminute: Integer = 1000 * 60;
tickspersecond: Integer = 1000;
var
t: Longword;
d, h, m, s: Integer;
begin
t := GetTickCount;

d := t div ticksperday;
Dec(t, d * ticksperday);

h := t div ticksperhour;
Dec(t, h * ticksperhour);

m := t div ticksperminute;
Dec(t, m * ticksperminute);

s := t div tickspersecond;

Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) +
' Minutes ' + IntToStr(s) + ' Seconds';
end;

یک دکمه بر روی فرم خود قرار دهید و با کد زیرآن را آزمایش کنید:


procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := UpTime;
end;

ایجاد یک پسورد به صورت خدکار(Random String)[B]

برای اینکار یک لیبل و یک دکمه بر روی فرم خود قرار دهید :

function RandomPassword(PLen: Integer): string;
var
str: string;
begin
Randomize;//gamelife.blogfa.com
//string with all possible chars
str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ';
Result := '';
repeat//gamelife.blogfa.com
Result := Result + str[Random(Length(str)) + 1];
until (Length(Result) = PLen)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin//gamelife.blogfa.com
//generate a password with 10 chars
label1.Caption := RandomPassword(10);
end;

دوستان اين سورس ها چون كوتاه بودن همينجا گزاشتم البته ببخشيد كه صفحه شلوغ شد .

سلام
اينها رو بايد توي تاپيك نكته هاي ريز در دلفي مي نوشتي!
در ضمن توي كد بزارشون! موفق باشي

دوستان من سورس يك برنامه اي رو ميخوام كه هر وقت به اينترنت وصل بشيم خود به خود زمان رو حساب كنه و هر وقت هم از اينترنت خارج شديم زمان رو نگه داره لطفاَ كمـــك كنيد !!

بابا يكي نيست جواب منو بده ؟؟

سلام
اون چيزي كه مي خواهي رو من توي يكي از تاپيكا نوشتم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]