![]() |
|
|||||||
![]() |
|
|
Seçenekler |
|
|
#1 |
|
Se®ve® Administ®ato®
![]() ![]() ![]() |
const
SHFMT_OPT_FULL = $0001; SHFMT_ERROR = $FFFFFFFF; SHFMT_CANCEL = $FFFFFFFE; SHFMT_ID_DEFAULT = $FFFF; SHFMT_OPT_QUICKFORMAT = $0000; SHFMT_OPT_SYSONLY = $0002; function SHFormatDrive(hWnd : HWND; Drive* fmtID* Options : Word) : Longint; stdcall; external 'Shell32.dll' name 'SHFormatDrive' function FormatDrive(Drive: Char): Integer; var DriveNo: Word; begin if Drive in ['a'..'z'] then Dec(Drive* $20); DriveNo := Ord(Drive) - $41; try Result := ShFormatDrive(Application.Handle*DriveNo* SHFMT_ID_DEFAULT* SHFMT_OPT_FULL); except Result := -1; end; end; // Kullanimi: procedure TForm1.Button1Click(Sender: TObject); var Result: Integer; begin Result := FormatDrive('A'); if Result < 0 then ShowMessage('Formatlama islemi basarisiz') else ShowMessage('Formatlama islemi basarili'); end; Mesajınızda: -> Mail Adresinizi verirseniz, -> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız, -> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız, -> Üstüste mesaj yazarsanız ( Flood yapmakda denir), -> Küfür ederseniz, -> Konuyla alakasız bir başlık atarsanız, -> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız, Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ. ![]() Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yöneticiyi uyarabilirsiniz. нαуαт, öℓüмℓє кυмαя σуηαмα ѕαηαтı∂ıя... [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...] AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...] |
|
|
|
![]() |
| Seçenekler | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | son Mesaj |
| Macromedia Flash 5.0 | BuqRa | Php, Asp, Flash, Java, Html | 3 | 01-16-2008 11:06 AM |
| mIRC Komutları..pratik ve kolay anlaşılır... | KuRSuN | Chat & irc modüller | 0 | 08-08-2006 11:04 PM |