Printable View
سلام
فرض کنید یه برنامه دیگه رو از داخل برنامه خودتون صدا
زدین فقط یه مشکل داره اونم این که فایلی که صدا زدین
پنجره active نیست و پشت صفحه شما می افته کدوم گزینه رو باید
انتخاب کنم تا پنجره جدید فعال باشه و روی برنامه من بیفته
Sw_normal
Sw_mazimaize
Sw_minimized
و ....
هر کدوم رو انتخاب می کنم نمیشه
کدامیک از گزینه رو باید انتخاب کنم
خیلی خیلی فوریه
ممنون
SW_ShowNormal
سلامنقل قول:
کد:var
hndWin : THandle;
begin
hndWin := FindWindow(0,'Untitled - Notepad');
If hndWin <> 0 then
begin
BringWindowToTop(hndWin);
end;
سلام
من این رو برای یه برنامه می خواستم که
دیگه حالا دادم رفته
انشاء ا... برای نسخه دوم نرم افزار
باز هم ممنون
سلام
یه سوال
چطوری میشه این دوتا رو با هم به کار برد؟
1- کد اینکه برنامه منتظر بسته شدن یک برنامه دیگه باشه
2- کد اینکه یک برنامه اجرایش همیشه (top ) روی سایر
برنامه باشه
رو هم داریم
حالا چطوری میشه اینا رو با هم ترکیب کرد
برام خیلی خیلی مهمه
ممنون
اول از پست شماره 3 استفاده ميكني و در انتها از كد زير استفاده ميكني.
مرجع پست 19 تاپيك زير :کد:while GetModuleUsage(hndWin) <> 0 Do
application.processmessage;
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
تابع رو داخل دلفی جواب نمی ده
راهی نداره
تا این
قرار دادن یک برنامه رو سایر برنامه ها
وکد:var
hndWin : THandle;
begin
hndWin := FindWindow(0,'Untitled - Notepad');
If hndWin <> 0 then
begin
BringWindowToTop(hndWin);
end;
فراخوانی کردن یک برنامه دیگر
کد:Function WinExecAndWait32V2(FileName: string;
Visibility: Integer): DWORD;
procedure WaitFor(processHandle: THandle);
var
Msg: TMsg;
ret: DWORD;
begin
repeat
ret := MsgWaitForMultipleObjects(1, { 1 handle to wait on }
processHandle, { the handle }
False, { wake on any event }
INFINITE, { wait without timeout }
QS_PAINT or { wake on paint messages }
QS_SENDMESSAGE { or messages from other threads }
);
if ret = WAIT_FAILED then Exit; { can do little here }
if ret = (WAIT_OBJECT_0 + 1) then
begin
{ Woke on a message, process paint messages only. Calling
PeekMessage gets messages send from other threads processed. }
while PeekMessage(Msg, 0, WM_PAINT, WM_PAINT, PM_REMOVE) do
DispatchMessage(Msg);
end;
until ret = WAIT_OBJECT_0;
end; { Waitfor }
var { V1 by Pat Ritchey, V2 by P.Below }
zAppName: array[0..512] of char;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin { WinExecAndWait32V2 }
StrPCopy(zAppName, FileName);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
False, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) { pointer to PROCESS_INF } then
Result := DWORD(-1) { failed, GetLastError has error code }
else
begin
Waitfor(ProcessInfo.hProcess);
GetExitCodeProcess(ProcessInfo.hProcess, Result);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end; { Else }
end; { WinExecAndWait32V2 }
رو با هم ترکیب کرد.
ممنون
مهدي جان.
جوابتون رو دادم.
لطفا به تاپيكي كه معرفي كردم يك سري بزن.
سلام
من که گفتمنقل قول:
خودتون هم اونجا اشاره کرده بودیننقل قول:
تابع داخل دلفی 7 جواب نمی ده