منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

كيف من خلال دلفي يمكن تشغيل * .exe مع .... البحث عن فروع مماثلة


Romualds Stashans   (2001-12-18 11:07) [0]

كيف يمكن لـ Delphi تشغيل * .exe (على وجه التحديد ، عارض PowerPoint التقديمي) ، بحيث يتم تحميل ملف PowerPoint الضروري في العارض؟



gek   (2001-12-18 11:17) [1]

ну вроде бы так
winexec(pchar("c:\word file_name"),sw_shownormal)



Digitman   (2001-12-18 11:23) [2]

PP можно грузить как OLE-сервер (со всеми вытекающими возможностями)



Dmitriy(new)   (2001-12-18 11:39) [3]

function CreateProcessSimple(sExecFilePath:string;AWait:Boolean;AMax:Boolean):string;
var si: TStartupInfo; pi: TProcessInformation;
بدأ
FillMemory( @si, sizeof( si ), 0 ); si.cb := sizeof( si );
IF Amax Then Begin si.dwFlags := STARTF_USESHOWWINDOW; si.wShowWindow:=SW_SHOWMAXIMIZED; End;
if not CreateProcess(Nil,PChar(sExecFilePath ),Nil, Nil, False,
NORMAL_PRIORITY_CLASS , Nil, Nil, si, pi ) then
Application.MessageBox(Pchar("Failed to execute program : "+sExecFilePath),"Error",IDOK);
result:=inttostr(PI.hProcess); CloseHandle( pi.hThread );
Application.ProcessMessages.
if AWait then WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle (pi.hProcess) ؛
الغاية؛



Anatoly Podgoretsky   (2001-12-18 12:33) [4]

ShellExecute(Handle,"open","PPT_FILE.ppt",nil,nil,sw_shownormal)



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.56 ميغابايت
الوقت: 0.022 ج
14-22346
إيفان شيخليف
2001-11-06 20:30
2002.01.08
Хайку :))


4-22478
روس
2001-08-28 16:53
2002.01.08
القائمة ابدأ


1-22186
ShnurO.K.
2001-12-15 23:05
2002.01.08
كيف أخفي برنامجي عند الضغط على Alt + Ctrl + Del؟


1-22004
KhLexa
2001-12-17 17:57
2002.01.08
مواطن الخلل


3-21978
عامل مجهول
2001-12-04 20:25
2002.01.08
ADO + Excel + Delphi5





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский