فایل در حال استفاده است یا خیر؟

function FileInUse(FileName: string): Boolean;
var hFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then exit;
  hFileRes := CreateFile(PChar(FileName),
                                    GENERIC_READ or GENERIC_WRITE,
                                    0,
                                    nil,
                                    OPEN_EXISTING,
                                    FILE_ATTRIBUTE_NORMAL,
                                    0);
  Result := (hFileRes = INVALID_HANDLE_VALUE);
  if not Result then 
    CloseHandle(hFileRes);
end;

بدست آوردن ادرس فیزیکی کارت شبکه

uses
  NB30; 


function GetAdapterInfo(Lana: Char): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;

FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := '*';

FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;

function GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := 'mac not found';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='Your MAC Adress = "'+GetMACAddress+'"';
Edit1.SetFocus;
Application.ProcessMessages;
end;

البته اگر از دلفی های جدید استفاده می کنید ب�%
                                

                                
                                    

                                        
                                            بدست آوردن ادرس فیزیکی کارت شبکه
                                             
                                        
                                            بدست-آوردن-ادرس-فیزیکی-کارت-شبکه
                                            
                                        
                                    
                                
                                
                            

پروژه حسابداری

سلام همراهان

یکی از دوستان درخواست داده بود یک پروژه حسابداری از ابتدا بسازید جهت آموزش.

در جواب دوست عزیزمون، من وقت ندارم آزاد زیادی ندارم به همین خاطر خیلی دیر به دیر آپدیت می کنم

اما میگم چشم شما تحلیل این سیستم بذارید من سعی می کنم کم کم کدنویسی و بخش پایگاه داده را انجام بدم

TMS Component Pack v7.1.3.0

آخرین نسخه از مجموعه TMS برای XE5.

البته بر روی بقیه نسخه ها هم نصب میشه.

دانلود

سورس کد برای اندروید در دلفی

اگه قصد برنامه نویسی اندروید با استفاده از دلفی XE5 را دارید در این صفحه مثال های جالبی است

mysql workbench 6.0.8

نسخه نرم افزار قدرتمند و رایگان مدیریت دیتابیس mysql منتشر شده میتونید از لینک زیر دانلود کنید

http://dev.mysql.com/downloads/tools/workbench/

فرا رسیدن ایام محرم و شهادت سرور و سالار شهیدان و یاران باوفایش را بر دوستدارن حضرتش تسلیت باد