درخواست آموزش در رابطه با رجیستری و شمسی دی ال ال...

سلام.
آقا من دوتا رادیو باتن دارم که می خوام اکه اولیش چک باشه
برنامه با شروع ویندوز بیاد بالا...
و اگه اون یکی چک شده بود نیاد بالا...
حالا کد این دوتا رو می خوام...
از دلفی هم 3درصدش حالیمه...
اگه یه خورده پیچیده باشه نمی فهمم...
خیلی خیلی خیلی ممنون میشم اگه کار مارو را بندازین...

راستی امکانش هست که شمسی دی ال ال رو با خود برنامه تو سیستم
طرف که قراره برنامه روش نصب بشه رجیستر کنم؟؟؟
دارم یه تقویم بسیار بسیار بسیار ساده می نویم...
گیرم همین دوتان اگه اینا رفع بشن حتما تو همین فروم می زارمش...
خیلی خیلی تشکر...

دوتا سوال به این سادگی یعنی کسی نیست جواب مارو بده؟؟؟؟؟؟
آقا کارم گیره...

براي اينكه shamsi.dll رو در سيستم مقصد رجيستر كنيم
1-چك كردن وجود و يا عدم وجودshamsi.dl l در پوشه system32 ويندوز
در صورت نبودن shamsi.dll اون رو در پوشه مذكور كپي مي كنيم
2 - رجيستر كردن shamsi.dll
براي چك كردن وجود يا عدم وجود shamsi.dll ابتدا بايست شاخه ويندوز رو پيدا كنيم (معمولا در سيستم هاي مختلف ويندوز
در درايو هاي متفاوت نصب ميشه )

کد:

---

function Tform1.GetWinDir : string;
var

---

کد:

---

WinDirZ : array[0..256] of Char;

begin

GetWindowsDirectory

(WinDirZ, SizeOf(WinDirZ));

Result

:= StrPas(WinDirZ);

end;

---

براي كپي كردن هم از دو روش زير ميشه استفاده كرد
كپي و انتقال فايل ها
روش اول

کد:

---

var
fileSource, fileDest: string;
begin
fileSource := 'C:\SourceFile.txt';
fileDest := 'G:\DestFile.txt';
CopyFile(PChar(fileSource), PChar(fileDest), False);
end;

---

روش دوم

کد:

---

uses
ShellApi;
procedure

---

کد:

---

ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);

var
shellinfo: TSHFileOpStructA;
begin
with shellinfo do
begin
wnd := Application.Handle;
wFunc := Flags;
pFrom := PChar(fromFile);
pTo := PChar(toFile);
end;
SHFileOperation(shellinfo);
end;
procedure

TForm1.Button1Click(Sender: TObject);

begin
ShellFileOperation('c:\afile.txt', 'd:\afile2.txt', FO_COPY);
// To Move a file: FO_MOVE
end;

---

بعد از اينكه shamsi.dll رو كپي كرديم دستور رجيستر كردنش رو هم مينويسيم براي رجيستر كردن ، كد هاي زير رو به يونيت برنامه اضافه مي كنيم

کد:

---

uses
Windows, SysUtils;
type
TDllRegisterServer = function: HResult; stdcall;
const
LIB_REGISTER = 'DllRegisterServer';
function

---

کد:

---

IsHandle(Handle: THandle): Boolean;

function

RegisterLibrary(szLibrary: String): Integer;

implementation
function

IsHandle(Handle: THandle): Boolean;

begin
result:=(Handle <> 0); // Determine if a valid handle
end

;

function

RegisterLibrary(szLibrary: String): Integer;

var
hLib: THandle;
drs: TDllRegisterServer;
begin
hLib:=LoadLibrary(PChar(szLibrary)); // Attempt to load the library
if IsHandle(hLib) then
begin
// Get the register function
@drs:=GetProcAddress(hLib, LIB_REGISTER);
if Assigned(@drs) then
result:=drs// Make the function call
else
result:=GetLastError; // Return last error
// Unload the library
FreeLibrary(hLib);
end
else
// Return last error
result:=GetLastError;
end

;

---

موفق باشيد

براي كار اولي كه ميخواي بكني بيشتر به اطلاعات رجيستري نياز داري تا دلفي. و سرچ كن دنبالش. قبلا دربارش صحبت شده.
اگه از برنامه هاي Installساز مانند InstallShield استفاده كنيد، خودش موقع نسب فايل dll‌ رو رجيستر ميكنه.

میشه یکم بیشتر توضیح بدین؟؟؟
یعنی چجوری با اینستال شیلد دی ال ال رو رجیستر کنم؟؟
من 2009 شو دارم.

شما موقع ساخت اين فايل اينستال، بايد بگين اين فايل داخل windows\system32 كپي ميشه.
چون dll هست، فكر كنم خورش رجيسترش ميكرد.
موفق باشي.