PROGRAMLAMA DİLİ : DELPHI
Eğer Harici bir DLL içersinden API çağırıyorsanız ve bu DLL içersinde çağırdığınız fonksiyon yoksa EXE çalıştığında hata vericek ve çalışmayacaktır.
Bunu windows version farklarında yaşamak muhtemel, örneğin XP’ye göre bi takım kodlar yazdınız ve kodlarda XP’ye özel bir API çağırdınız, program hatasız çalışacak fakat 98’de bu API olmadığından program hiç çalışamadan hata verecektir.Bu tür durumları yaşamamak için aşağıdaki koda benze bir kod yazarak sıkıntıdan kurtulabilirsiniz.————————-unit Main;interfaceuses {…}Type {…}…VarGetDiskFreeSpaceEx : FUNCTION (lpRootName : PChar;Var FreeBytesAvailableToCaller,TotalNumberOfBytes ,TotalNumberOfFreeBytes : COMP) : Bool; STDCALL;…implementation…function DLLCagir(): Boolean;VarLib : THandle;beginIf (@GetDiskFreeSpaceEx = Nil) then beginLib := GetModuleHandle (‘kernel32’);If Lib <> 0 then GetDiskFreeSpaceEx := GetProcAddress (Lib, ‘GetDiskFreeSpaceExA’)Result := True;end;If (@GetDiskFreeSpaceEx = Nil) then beginResult := False;end;end;