ܐ ی یߡ ی XP یϿ
: 1387/11/9 | :
RSS ی ی Ͽ
: 1387/4/31 | :
ی ی ܝ Mozilla Thunderbird ی ی یی᝝
: 1387/4/11 | :
ی ܝ Outlook Express ی ی یی᝝
: 1387/11/9 | :
ی ȝ
: 1387/4/5 | :
ܐ ی ѐ یϿ
: 1387/4/13 | :
ی FTP ѐی ی᝝
: 1387/7/24 | :
ی یʝ
: 1387/5/16 | :
ی ی ȝ
: 1387/4/5 | :
ی ی یʝ
: 1387/4/13 | :


 ѐ
ی یی ی ی

ی یی ی ی

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
ListBox1: TListBox;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..500] of char;
hChar: pChar;
begin
GetLogicalDriveStrings(Sizeof(Buffer), Buffer);
hChar:= Buffer;
while hChar[0] <> #0 do
begin
ListBox1.Items.Add(hChar);
hChar:= StrEnd(hChar) + 1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ld: DWORD;
i: integer;
begin
ld:= GetLogicalDrives;
for i:= 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;

end.

 



: iauda.ac.ir
: | : 1390/12/5 | : 6250

: 64.000




:



:
:
:
:
:

:


[Ґ ] [ǁ] [ ]
ߝ : [ ] - [ ]


ی ی ی.
[ ] [ ی] [RSS] [ی ] [ی]









ǐ ی ی ی 32225254-017 Ȑیی.

ی ی یی:
English Farsi



: 32225254 - 017
Ԑ یی