Printable View
با سلام خدمت دوستان.
sp1000 جان از راهنمايي هاي شما متشكرم. من هنوز دستورات شما را اجرا نكردم فقط مشكلي از قبل بود و مي خواستم بپرسم اين است كه درايو ويندوز يك كامپيوتر ديگر را از كجا مي توان بدست آورد و يا درايو سي دي؟
مطلب ديگر اين كه در حالت اين كه از روي هارد ديسك اجرا شود شماره 10 را در آخر نوشته ايد براي چي است؟
ممنون.
با سلامنقل قول:
نوشته شده توسط soltanmahdi
در آغاز راه بدست آوردن درايو ويندوز
پس از اونکد:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
WinDir: array[0..255] of Char;
begin
GetWindowsDirectory(WinDir, MAX_PATH);
Edit1.Text:= WinDir;
MessageBox(Handle, '????I ????', '', MB_OK+MB_ICONINFORMATION);
end;
end.
دوست گرامي
حالا ما فقط اگه دستورا را بفهميم خيليه ديگه ريشه يابي اجزاي اون الان براي ما نه بلكه براي هركسي جز اونا كه آخر آخر دلفيند كار بدرد نخوريه اما موافقم كه اگه آدم اين دستورارا بفهمه بهتر از اينه كه ياد بگيره اما خوب كار خيلي
سختيه فهميدنشون در مورد اون صفرا اطلاعات ادميرال جان كامل بود اما تا اونجا كه مي ذونم يكي از اونها در نورد هندل يكي در مورد پارامتر و يكي شم يه متغير كه نمي دونم چكار مي كنه اگه ctrl+spaceرا بزنی تو توضیحاش هست
در ضمن برای من این دستور هیچ اشکالی نداره و کامل اجرا میشه
امیدوارم به دردتون بخوره
خدا نگهدار
سلامنقل قول:
مشکلی نیست من کد هر دو را برات می نو یسم
ارهارد دیسک اجرا شود از این کد
کد:
winexec(' Your Drive:\\Your Folder \\ yourfile.exe',10);
از سی دی اجرا شود از این کد
کد:
winexec(' Your Folder \ Your File.exe',10);
اگه مشکلی بود حتما بنویس تا بعد خدا حافظ
جناب sp1000 میشه بگین چرا باید از دو تا بک اسلش استفاده بشه ؟!!
این دو تا دستور رو امتحان کنید :
کد:WinExec( 'C:\\\\\windows\\\\system32\\\\\\\\\\calc.exe' , SW_SHOWNORMAL );
کد:WinExec('C:\windows\system32\calc.exe',SW_SHOWNORMAL);
اون دو تا دستور بالا رو هم امتحان کن تا نتیجه رو ببینی!نقل قول:
با سلام خدمت دوستان.
sp1000 جان از راهنمايي هاي شما متشكرم. من هنوز دستورات شما را اجرا نكردم فقط مشكلي از قبل بود و مي خواستم بپرسم اين است كه درايو ويندوز يك كامپيوتر ديگر را از كجا مي توان بدست آورد و يا درايو سي دي؟
مطلب ديگر اين كه در حالت اين كه از روي هارد ديسك اجرا شود شماره 10 را در آخر نوشته ايد براي چي است؟
اون 10 هم که پارامتر دوم تابع WinExec هست نوع نشون دادن پنجره برنامه ی اجرا شده رو نشون میده مثلاً
SW_HIDE
SW_SHOW
SW_SHOWNORMAL
SW_SHOWNA
SW_SHOWMAXIMIZED
و غیره که اون عدد هم معرف یکی از این حالاته.
موفق باشید.
حالا چرا بدبختا ميزني
يه اشتباه كرده
من که چیزه بدی نگفتم !نقل قول:
حالا چرا بدبختا ميزني
يه اشتباه كرده
فقط گفتم کدی رو که نوشته توجیـح کنه. شاید من دارم اشتباه میکنم.
هدف من توهین یا اذیت کردن کسی نبود.
با سلام خدمت دوستان.
اول از راهنمايي هاي همه متشكرم. فقط يك مشكلي كه هست اينه كه نرم افزار مولتي مديا بيلدر كه خيلي پيش پا افتاده و خيلي قابليت نداره با يك دستور ساده Window اسم درايو ويندوز شخص مقابل را مي دهد حالا چرا در دلفي اينقدر فيلم و سيانس وجود داره!!!!!!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
WinDir: array[0..255] of Char;
begin
GetWindowsDirectory(WinDir, MAX_PATH);
Edit1.Text:= WinDir;
MessageBox(Handle, '????I ????', '', MB_OK+MB_ICONINFORMATION);
end;
اولا اين كه اين دستور محل پوشه ويندوز در درايو ويندوز را بر مي گرداند. ثانيا اين كه اين علامت سوال ها براي چيه؟ در مورد ارسال پيامت بيشتر توضيح بده.
سوال ديگه هم اين كه اين دو تا دستور چه فرقي با هم مي كنند؟ منظورم Winexec ShellExecute است؟
در آخر از تمام دوستان تشكر مي كنم.
ممنون
دستور WinExec برای سازگاری با ورژن های قدیمی تر ویندوز هست و بهتره در ویندوزهای 32 بیتی از دستور ShellExecute و CreateProcess استفاده بشه.نقل قول:
سوال ديگه هم اين كه اين دو تا دستور چه فرقي با هم مي كنند؟ منظورم Winexec ShellExecute است؟
از نظر امکانات هم خیلی با هم متفاوتند.مثلاً Winexec فقط 2 تا پارامتر میگیره و Shellexecute می تونه 6 تا پارامتر بگیره و CreateProcess تا 10 تا پارامتر میگیره !
اصلاً این دستور ربطی به کاری که میخوای بکنی نداره !نقل قول:
اولا اين كه اين دستور محل پوشه ويندوز در درايو ويندوز را بر مي گرداند. ثانيا اين كه اين علامت سوال ها براي چيه؟ در مورد ارسال پيامت بيشتر توضيح بده.
این علامت سوال ها هم یه رشته هست دیگه !!!
ببین :
کد:procedure TForm1.Button3Click(Sender: TObject);
var
WinDir: array[0..255] of Char;
begin
GetWindowsDirectory(WinDir, MAX_PATH);
MessageBox(Handle,WinDir ,'Hello', MB_OK+MB_ICONINFORMATION);
end;
با سلام خدمت دوستان.
اولا دست شما به خاطر راهنمايي هاتون درد نكنه.
1- با استفاده از دستور CreateProcess مي توان فايل هاي ديگري به غير از اجرايي (EXE) را اجرا كرد؟
2-پس با توجه به توضيحات شما بهتره كه از دستور ShellExecute استفاده كنم؟
3-خوب اگر به درد كاره من نمي خوره پس به چه دردي مي خوره؟نقل قول:
اصلاً این دستور ربطی به کاری که میخوای بکنی نداره !
ممنون.
تا جایی که من میدونم خیــرنقل قول:
1- با استفاده از دستور CreateProcess مي توان فايل هاي ديگري به غير از اجرايي (EXE) را اجرا كرد؟
من اینطور ترجیـح میدم!نقل قول:
2-پس با توجه به توضيحات شما بهتره كه از دستور ShellExecute استفاده كنم؟
با این دستور هم میتونی فایل اجرا کنی هم پرینت بگیری و هم یک پوشه رو باز کنی.( پارامتر دوم : open,print,explorer)
منظور من پیدا کردن پوشه نصب ویندوز بود. برای چی میخواین پوشه نصب ویندوز رو بدونید ؟!نقل قول:
3-خوب اگر به درد كاره من نمي خوره پس به چه دردي مي خوره؟
با سلام خدمت دوستان.
ادميرال جان پس فايل هاي غير اجرايي را باچي مي توان باز كرد مثلا يك فايل با فرمت Pdf ؟نقل قول:
تا جایی که من میدونم خیــر
من يك سري گزارِش گيري ها دارم كه در پوشه ويندوز كپي مي كنم. حالا براي فراخواني انها بايد اسم درايو ويندوز مقابل را بدانم يا نه؟نقل قول:
منظور من پیدا کردن پوشه نصب ویندوز بود. برای چی میخواین پوشه نصب ویندوز رو بدونید ؟!
ممنون