마음의 안정을 찾기 위하여 - [Delphi] .exe to run in the system32 folder shellexecute
2300785
339
764
관리자새글쓰기
태그위치로그방명록
별일없다의 생각
dawnsea's me2day/2010
색상(RGB)코드 추출기(Color...
Connection Generator/2010
최승호PD, '4대강 거짓말 검...
Green Monkey**/2010
Syng의 생각
syng's me2DAY/2010
천재 작곡가 윤일상이 기획,...
엘븐킹's Digital Factory/2010
[Delphi] .exe to run in the system32 folder shellexecute
Delphi/윈도우즈 | 2023/05/31 11:15

32Bit / 64Bit 프로그램의 윈도우 시스템 폴더 프로그램 실행시 해결 방법

Solution #1]
{$APPTYPE CONSOLE}
uses   ShellAPi,   SysUtils; Function Wow64DisableWow64FsRedirection(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;   External 'Kernel32.dll' Name 'Wow64DisableWow64FsRedirection'; Function Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection: LongBool): LongBool; StdCall;   External 'Kernel32.dll' Name 'Wow64EnableWow64FsRedirection'; Var   Wow64FsEnableRedirection: LongBool; begin   try    Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection);    ShellExecute(0, nil, PChar('C:\Windows\System32\msconfig.exe'), nil, nil, 0);    Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);   except     on E: Exception do       Writeln(E.ClassName, ': ', E.Message);   end; end.



Solution #2]
{$IFDEF WIN64}
function IsWow64: Boolean;
begin
  Result := False;
end;
{$ELSE}
function IsWow64Process(hProcess: THandle; out Wow64Process: BOOL): BOOL; stdcall; external 'kernel32.dll' delayed;

function IsWow64: Boolean;
var
  Ret: BOOL;
begin
  Result := False;
  // XP = v5.1
  if (Win32MajorVersion > 5) or
    ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) then
  begin
    if IsWow64Process(GetCurrentProcess(), Ret) then
      Result := Ret <> 0;
  end;
end;
{$ENDIF}

var
  errorcode: integer;
  SysFolder: string;
begin
  If IsWow64 then
    SysFolder := 'SysNative'
  else
    SysFolder := 'System32';
  errorcode := ShellExecute(0, 'open', PChar('C:\Windows\'+SysFolder'+\msconfig.exe'), nil, nil, SW_NORMAL);
  if errorcode <= 32 then
    ShowMessage(SysErrorMessage(errorcode));
end;



[참고 URL]
http://www.borlandforum.com/impboard/impboard.dll?action=read&db=free&no=25126

https://stackoverflow.com/questions/12849939/can-not-get-msconfig-exe-to-run-in-the-system32-folder-shellexecute-delphi
2023/05/31 11:15 2023/05/31 11:15
Article tag list Go to top
View Comment 0
Trackback URL :: 이 글에는 트랙백을 보낼 수 없습니다
 
 
 
 
: [1][2][3][4][5][6][7][8] ... [93] :
«   2024/05   »
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31  
전체 (1319)
출판 준비 (0)
My-Pro... (41)
사는 ... (933)
블로그... (22)
My Lib... (32)
게임 ... (23)
개발관... (3)
Smart ... (1)
Delphi (93)
C Builder (0)
Object... (0)
VC, MF... (10)
Window... (1)
Open API (3)
Visual... (0)
Java, JSP (2)
ASP.NET (0)
PHP (6)
Database (12)
리눅스 (29)
Windows (25)
Device... (1)
Embedded (1)
게임 ... (0)
Web Se... (2)
Web, S... (21)
잡다한... (6)
프로젝트 (0)
Personal (0)
대통령... (13)
Link (2)