انجمن لوتی: عکس سکسی جدید، فیلم سکسی جدید، داستان سکسی
کامپیوتر
  
صفحه  صفحه 3 از 3:  « پیشین  1  2  3

About Delphi| آموزش دلفی


زن

Princess
 
روش استفاده از HelpFile ها در برنامه

شما ميتوانيد با استفاده از برنامه هاي خاص مثل ويژوال استديو براي برنامه خود فايل Help استاندارد درست كنيد.

خوب حالا فرض مي كنيم كه فايل Help را در اختيار داريم.

براي استفاده از اين فايل در Delphi بترتيب زير عمل كنيد.

در محل مناسب ( مثلا در هنگام ايجاد فرم اصلي ) كد زير را اضافه كنيد.
Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help.hlp

براي فراخواني (Content) محتويات Help از كد زير استفاده كنيد.
Application.HelpCommand(HELP_CONTENTS, 0);


براي فراخواني Help در حالت جستجوي يك عبارت از كد زير استفاده كنيد.
Application.HelpJump('Text');
عشق من عاشقتم!
≈≈≈≈≈≈≈≈≈≈≈≈≈≈
پرنسس
     
  
زن

Princess
 
تغییر نام ، پاک کردن، جابجایی فایلها و پوشه ها

Directories

Create a Directory :
CreateDir('c:\path');
Remove a Directory : RemoveDir('c:\path') or RmDir('c:\path')
Change a Directory : ChDir('c:\path')
Current Directory : GetCurrentDir
Check if a Directory exists : if DirectoryExists('c:\path') then ...
Rename a DirectorySHFileOperation)
Copy/Move/Delete whole directories: (ShFileOperation)

Files

Rename a File : RenameFile('file1.txt', 'file2.xyz')
Delete a File : DeleteFile('c:\text.txt')
Move a File : MoveFile('C:\file1.txt','D:\file1.txt');
Copy a File :
* CopyFile(Pchar(File1),PChar(File2),bFailIfExists)
*(Example)
*(SHFileOperation)
Change a File's Extension : ChangeFileExt('test.txt', 'xls')
Check if a File exists : if FileExists('c:\filename.tst') then ...
عشق من عاشقتم!
≈≈≈≈≈≈≈≈≈≈≈≈≈≈
پرنسس
     
  
زن

Princess
 
گرفتن سریال هارد

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end;
عشق من عاشقتم!
≈≈≈≈≈≈≈≈≈≈≈≈≈≈
پرنسس
     
  
صفحه  صفحه 3 از 3:  « پیشین  1  2  3 
کامپیوتر

About Delphi| آموزش دلفی

رنگ ها List Insert YouTube video   

 ?

برای دسترسی به این قسمت میبایست عضو انجمن شوید. درصورتیکه هم اکنون عضو انجمن هستید با استفاده از نام کاربری و کلمه عبور وارد انجمن شوید. در صورتیکه عضو نیستید با استفاده از این قسمت عضو شوید.

 

 
DMCA/Report Abuse (گزارش)  |  News  |  Rules  |  How To  |  FAQ  |  Moderator List  |  Sexy Pictures Archive  |  Adult Forums  |  Advertise on Looti
↑ بالا
Copyright © 2009-2024 Looti.net. Looti.net Forum is not responsible for the content of external sites

RTA