از صفر تا صد کار با sql express و ساخت فایل نصب خودکار برای برنامه های نوشته شده با دلفی

[MOJTABAATEFEH]

با سلام
من زیاد جستجو کردم اما نه در برنامه نویس و نه در هیچ جای دیگه نتیجه ای نگرفتم دوستان اگر کسی با sql express و ساخت فایل نصب خودکار برای برنامه های نوشته شده با دلفی کار کرده لطفا روش کار را بفرماید

با تشکر
254

[pezhvakco]

درست ندونستم خواسته شما چه است
ولی برای ساختن برنامه نصب بهتره با برنامه های معمول مانند installshield یا InstallAware کار کنید .

[SayeyeZohor]

سلام

دوست عزیز اگه جستجو کنین من مدتها پیش یک تاپیک زاجع بهش گذاشتم ...

http://barnamenevis.org/showthread.php?390659-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%86%D8%B5%D8%A8-%D8%A7%D8%B3%D9%83%D9%8A%D9%88%D8%A7%D9%84-%D8%B3%D8%B1%D9%88%D8%B1-2008-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%B3%D8%A7%D9%8A%D9%84%D9%86%D8%AA

[hp1361]

با سلام

اگر برنامه شما اونقدر بزرگ و پر پروپیمانه، پس یه وقت هم بزارید SQL نصب کنید خودتون(دستی) مشکلی ایجاد نخواهد کرد.

اگر نه که چه اصراریه از SQL استفاده کنید! از SQLite یا Firebird یا .... که قابلیت Embedded داره استفاده کنید! اینهمه اذیت شدن هم نداره.

البته این نظر شخصیه و کاریه که خودم میکنم

موفق باشیم

[benyaminrahimi]

تو کدوم قسمتش سوال دارید متوجه نشدم

[lord_viper]

sql server قابلیت نصب سایلنت هم داره کا هیچ فرمی نمایش نمیده و در پشت صحنه نصب میشه کافیه ستاپ sql server رو در کنار برنامتون قرار بدید و با کدی شبیه زیر اجراش کنیدپ




function ExecAndWait: Longword;
var { by Pat Ritchey }
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
AppIsRunning: DWORD;
begin
// StrPCopy(zAppName, FileName);
// GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOW;
CreateProcess(PChar('G:\SQL_2005_Developer_Edition \Servers\setup.exe'),PChar(' /qn ADDLOCAL=all INSTANCENAME="MSSQLSERVER" SQLACCOUNT="NT AUTHORITY\SYSTEM" ASACCOUNT="NT AUTHORITY\SYSTEM" SQLPASSWORD="salam" AGTACCOUNT="NT AUTHORITY\SYSTEM" SQLBROWSERACCOUNT="NT AUTHORITY\SYSTEM" SQLAUTOSTART=1 SQLBROWSERAUTOSTART=1'),nil,nil,False,CREATE_NEW_C ONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessI nfo) ;
repeat
Application.ProcessMessages;
until WaitForSingleObject(ProcessInfo.hProcess, INFINITE)=WAIT_OBJECT_0;

ShowMessage('notepad is finishd');
GetExitCodeProcess(ProcessInfo.hProcess, Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
dr:dword;
h:thandle;
begin
h:=createthread(nil,0,@ExecAndWait,nil,0,dr);
end;