نصب درايور توسط Delphi

[hamedsoft]

با سلام خدمت تمامي دوستان،

من قصد نوشتن برنامه اي دارم که بتونم توسط اون درايور خاصي رو براي سخت افزار نصب کنم، از دوستاني که در اين زمينه اطلاعات دارند، ممنون ميشم بنده رو براي انجام اين امر راهنمايي کنند :چشمک:

[hamedsoft]

البته مي دونم که دادن اين طور پست ها در انجمن که فقط نشانه تأکيد داره خلاف مقررات هست ولي اين دفعه مجبورم تخلف کنم، چون من کارم خيلي گير اين مورد هست، البته من خودم يه چيزي پيدا کردم که اسمش Driver Package Installer هست منتها کارش رو خوب انجام نميده و اون چيزي که من ميخوم نيست، چند تا Command Line هم واسه اين کار پيدا کردم اما اونا هم زياد جالب نبود، البته فکر کردم از InstallShield براي انجام اين کار رو استفاده کنم، اما اگه با خود دلفي بشه که عالي ميشه.

[Inprise]

http://strcpy.com/tag/ShellExecute

[hamedsoft]

http://strcpy.com/tag/ShellExecute
ممنون، منتها اين شبيه همون Command Line که استفاده کردم منتها فايده اي نداشت هست، عمل نمي کنه

[Inprise]

من ازش استفاده كردم .

[hamedsoft]

من ازش استفاده كردم .
درسته من هم تو خيلي از سايت ها خوندم که اين يه راه حل هست و جواب هم ميده، منتها براي من که هر کاري کردم جواب نداد!

[vcldeveloper]

منتها براي من که هر کاري کردم جواب نداد
فکر نمی کنید اگر بجای گفتن "جواب نمیده"، "جواب نداد" و... اگر نحوه استفاده خودتون از کد مورد نظر را اینجا بنویسید (مثلا چند خط از کدی که برای نصب درایور استفاده کردید)، زودتر به جواب می رسید؟
وقتی میگید خودتون دیدید جاهای دیگه از همین کد استفاده کردند، ولی برای شما جواب نمیده، کسی که اینجا علم غیب نداره که بفهمه چرا برای شما جواب نمیده!

[hamedsoft]

فکر نمی کنید اگر بجای گفتن "جواب نمیده"، "جواب نداد" و... اگر نحوه استفاده خودتون از کد مورد نظر را اینجا بنویسید (مثلا چند خط از کدی که برای نصب درایور استفاده کردید)، زودتر به جواب می رسید؟
وقتی میگید خودتون دیدید جاهای دیگه از همین کد استفاده کردند، ولی برای شما جواب نمیده، کسی که اینجا علم غیب نداره که بفهمه چرا برای شما جواب نمیده!
حق با شماست، من بايد کدي که استفاده مي کنم رو اينجا بذارم تا راه چاره اي براي حل اون دوستان پيش پاي ما بذارن، هميشه خودم به همه ميگم سؤالاتتون رو کامل و واضح بپرسيد بعد خودم عمل نمي کنم :)

اين يه تابع هست که براي اين کار استفاده کردم و جواب نداد:

function InstallINF(const PathName: string; hParent: HWND): Boolean;
var
instance: HINST;
begin
instance := ShellExecute(hParent,
PChar('open'),
PChar('rundll32.exe'),
PChar('setupapi,InstallHinfSection DefaultInstall 132 ' + PathName),
nil,
SW_HIDE) ;

Result := instance > 32;
end;

[B-Vedadian]

اين بخش از کد شما، ايرادي نداره. احتمالا يا مشکل تو نحوه استفادست، يا تو انتظاري که داريد(چه اتفاقي بايد بيافته؟)

[hamedsoft]

اين بخش از کد شما، ايرادي نداره. احتمالا يا مشکل تو نحوه استفادست، يا تو انتظاري که داريد(چه اتفاقي بايد بيافته؟)
من فقط ميخوام درايور نصب بشه و اگه مثلا اون درايور يک کارت شبکه هست وقتي وارد بخش Device Manager ميشم ديگه اون رو بعنوان Ethernet Controller نشناسه بلکه بعنوان يک کارت شبکه که درايور اون نصب شده و در حال حاضر قابل استفاده هست بشناسه اما اين اتفاق نمي افته!

[B-Vedadian]

ننوشتي چطوري استفاده کردي؟ (مثلا اينکه فايلي که دادي نصب کنه چي بوده، مطمئني درايور کارت شبکه همون Inf همراهشه که نصب ميکني؟)