اريد مساعدكم ياشباب

عفوا وكمان زر استدعاء show All Connections

شباب أنا بانتظاركم

:)

شباب وينكم

هذه الأكواد يمكنك بواسطتها فتح العديد من النوافذ .

إضافة/إزالة البرامج

winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,1',9);

الماوس

winexec('rundll32.exe shell32.dll,Control_RunDLL Main.cpl,,4',9);

إنشاء قرص بدء التشغيل

winexec('rundll32.exe shell32.dll,Control_RunDLL Appwiz.cpl,,3',9);

أصوات

winexec('rundll32.exe shell32.dll,Control_RunDLL Mmsys.cpl,,0',9);

جهاز الكومبيوتر

ExecNewProcess('explorer "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"');

سلة المحذوفات

ExecNewProcess('explorer "::{645FF040-5081-101B-9F08-00AA002F954E}"');

Explorer :

ExecNewProcess('explorer "::{871C5380-42A0-1069-A2EA-08002B30309D}"');

فتح السواقة C أو أي مجلد آخر ( فقط قم بكتابة مساره بدل من C: )

Uses : shellapi

ShellExecute(0,'open','c:',nil,nil,SW_NORMAL);

أرجو أن يكون هذا هو المطلوب .

مرحبا

يسلمو يافادي

جهاز الكومبيوتر

ExecNewProcess('explorer "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"');

سلة المحذوفات

ExecNewProcess('explorer "::{645FF040-5081-101B-9F08-00AA002F954E}"');

Explorer :

ExecNewProcess('explorer "::{871C5380-42A0-1069-A2EA-08002B30309D}"');

لم تعمل

جهاز الكمبيوتر هو الأهم

ومنشان الباقي كلهم اشتغلوا

يعطيك الف عافيةةةةةةةةةةةة

يسلمووووووووووو

أخوكم

أعتذر عن هذا الخطأ قم بكتابة الكود التالي بعد التعليمة implementation

procedure ExecNewProcess(ProgramName : String);
var
  StartInfo  : TStartupInfo;
  ProcInfo   : TProcessInformation;
  CreateOK   : Boolean;
begin

  { fill with known state }
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);

  CreateOK := CreateProcess(nil, PChar(ProgramName), nil, nil,False,
              CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
              nil, nil, StartInfo, ProcInfo);

  { check to see if successful }
  if CreateOK then
    //may or may not be needed. Usually wait for child processes
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;

مرحبا

يا أخوي فادي يعني الكود الي وضعته في أول مرة بس أغيره مع وضع

الكود السابقة في كل مرة

مو هيييييييييكككك

وبامناسبة شو منشان الSTART Button ????????

أخوك

الكود الذي وضعته أول مرة يبقى كما هو بدون أي تغير ولكن بعد التعليمة implementation قم بكتابة الكود السابق لمرة واحدة فقط وعندها ستعمل كل الأكواد التي تبدأ بالتعليمة ExecNewProcess

مشي الحال عزيزي فادي :)

بس زر ابدا في حدى من الشباب بيعرف كيف؟؟؟؟؟؟

أخوكم وكـل عام وأنتم بخير

تفضل يا اخي العزيز ابحرت في نظام الوندوز ووجدت لك هذا الكود و هذا مجرب مع الاكسبي لا كن بصراحه ماني عارف ايش غرضك منه فهو لعرض قائمة ابدأ فقط

procedure TForm1.Button1Click(Sender: TObject);
begin
Sendmessage(Form1.Handle,WM_SYSCOMMAND,$0000f130,0);
end;

الله يعطيك العافية أخوي محمد

واسف عن عدم الرد السريع بسبب المشكلة الي كانت في المنتدى

أخوكم