Printable View
سلام
راستش من دنبال هر تابعی که می گردم پیدا نمیکنم گفتم یه تاپیک بزنم تا هرکی هر تابعی می خواد اینجا بپرسه تا اساتید زحمتشو بکشن تا در نهایت یه لیست از توابع پرکاربرد داشته باشیم :چشمک:
لطفا اگرم کسی لیستی از توابع چه کتابخانه ای و چه api داره تو این تاپیک بذاره تا بقیه هم بتونن استفاده کنن
پیشاپیش از همکاری دوستان تشکر می کنم :لبخندساده:
برای شروع خودم می خوام بدونم تابعی که باهاش میشه یه برنامه یا پروسس رو از کار انداخت یا اصطلاحا ازحافظه خارج کرد چیه
در API می توانی از توابع زیر برای مدیریت پروسسها استفاده کنی
CreateProcess
ExitProcess
GetExitCodeProcess
OpenProcess
process_information(این یک تایپ هست خیلی کاربرد داره)
TerminateProcess
نقل قول:
نوشته شده توسط ParsaNM
ممنون دوست عزیز :بوس: میشه کمی بیشتر در مورد این توابع و پارامترهاشون توضیح بدی
در مورد terminateprocess باید handle برنامه رو بهش بدم ؟؟ راه ساده تری نداره؟؟؟
کسی نیست جواب ما رو بده ؟؟
پست الکی برای بالا آوردن تاپیک نزنید
مراجعه کنید به MSDN .نقل قول:
کسی نیست جواب ما رو بده ؟؟
اگه یکی درمورد توابع کار با فایل ها هم توضیحی بده ممنون میشم
لطفا نگید msdn که همش انگلیسیه اگه کسی مرجعی فارسی از توضیح توابع داره لطفا در اختیارمون بذاره
ببین دوست من تو نمیتونی بدون مراجعه به MSDN از API استفاده کنی توقع هم نداشته باش کسی بیاد MSDN رو برات توضیح بده ...
برای درک بهتر مطلب برات یه مثال میزنم ...
uses TlHelp32;function processExists(exeFileName: string): Boolean;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
Result := False;
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
begin
Result := True;
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
// Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
if processExists('calc.exe') then
ShowMessage('process is running')
else
ShowMessage('process NOT running');
end;
;
ممنون میشه یه توضیح درباره این کد بدی آخه من قبلا vb کار می کردم تازه اومدم تو خط دلفی
تو vb با تابع ()kill براحتی میشد یه پروسه رو از کار انداخت
میشه یکی در مورد توابع کار با فایل ها در دلفی توضیحی بده
ممنون میشم
اولا بهتره بگی با این Process چکار میخوای بکنی شاید بهتر راهنماییت کنیم و شایدم منظورت از Process چیز دیگه ای در دلفی باشه ...
دوما اگر میخوای لیست توابع دلفی در رابطه با کار با فایلها رو داشته باشی بهتر Unit SysUtils رو چک کنی ...
اگر سوالی داشتی می تونم کمکت کنم...
ممنون پارسا جون :بوس:نقل قول:
نوشته شده توسط ParsaNM
مثلا می خوام یه فایلو باز کنم حالا به صورت باینری یا متنی بعد یه چیزایی توش بنویسم یا ازش بخونم بعد فایلو ببندم همین مثلا این کارا رو تو vb با توابع فایل ها براحتی انجام می دادم تازه اومدم تو خط دلفی به نظر نسبتا یکم بدقلق میاد:افسرده:
بهتر نیست وقتی دلفی کتابخانه ای رو برای کارهای شبیه به چیزی که می خواین و خیلی خیلی! چیزهای دیگه؛ آماده کرده، ابتدا سراغ اونها برید؟
نقل قول:
نوشته شده توسط Vahid_moghaddam
وحید جان منظور شما رو متوجه نشدم
دلفی هم توابع زیادی برای کار با فایلها داره.
مشکل همینه من این توابع و کار باهاشونو بلد نیستم
منظورشون احتمالا اینه که سری به کلاس TFileStream برای فایل های باینری و TStringList برای فایل های Text بزنید.نقل قول:
وحید جان منظور شما رو متوجه نشدم
Unit Sysutils رو هم یه نگاه بکن ... چیزای خوبی دستگیرت میشه ..
برای استفاده از توابعSysutils می تونی Sysutils. رو تایپ کنی و توابعی که می خوایی رو استفاده کنی.PostMessage(name_HWND, WM_CLOSE, 0, 0); استفاده کنی که name_HWND هندلی به پروسه مورد نظره
در مورد کار توابع هم می تونی تابع مورد نظر رو جستتجو کنی
برای بستن پروسس می تونی از
تابعی برای بستن پروسس
function TAction.KillTask(ExeFileName:string):integer;
const PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
دوست عزيز قبلا چنين تايپيكي ايجاد شده ، مراجعه كنيد به اين لينك : https://barnamenevis.org/showthread.p...84%D9%81%DB%8C :چشمک:نقل قول:
نوشته شده توسط baby_tanhaa