在WIN7下 運作正常的 OPENPROCESS  到 WINDOW10下 確回傳0

不知道有沒有前輩測試過



[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var HCurrentWindow: HWND;
tmpProcess:Cardinal;
begin

HCurrentWindow := GetWindow(Handle, GW_Hwndfirst);
while HCurrentWindow <> 0 do
begin
if IsWindowVisible(HCurrentWindow) then begin
GetWindowThreadProcessId(HCurrentWindow, tmpProcess);

Memo1.Lines.Append(Format('handle : %.8x', [HCurrentWindow]));
Memo1.Lines.Append(Format('thid : %.8x', [tmpProcess]));

tmpProcess := OpenProcess(PROCESS_ALL_ACCESS, false, tmpProcess);

Memo1.Lines.Append(Format('OpenProcess : %.8x', [tmpProcess]));

CloseHandle(tmpProcess);
end;
HCurrentWindow := GetWindow(HCurrentWindow, GW_HwndNext);
end;
end;
[/code]

權限問題,失敗時你可以用GetLastError看看失敗原因
===================引 用 boy330077 文 章===================
在WIN7下 運作正常的 OPENPROCESS 到 WINDOW10下 確回傳0

不知道有沒有前輩測試過



[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var HCurrentWindow: HWND;
tmpProcess:Cardinal;
begin

HCurrentWindow := GetWindow(Handle, GW_Hwndfirst);
while HCurrentWindow <> 0 do
begin
if IsWindowVisible(HCurrentWindow) then begin
GetWindowThreadProcessId(HCurrentWindow, tmpProcess);

Memo1.Lines.Append(Format('handle : %.8x', [HCurrentWindow]));
Memo1.Lines.Append(Format('thid : %.8x', [tmpProcess]));

tmpProcess := OpenProcess(PROCESS_ALL_ACCESS, false, tmpProcess);

Memo1.Lines.Append(Format('OpenProcess : %.8x', [tmpProcess]));

CloseHandle(tmpProcess);
end;
HCurrentWindow := GetWindow(HCurrentWindow, GW_HwndNext);
end;
end;
[/code]

 似乎確實是權限問題，改以系統管理員執行就沒錯了。

另外是否能在程式中取得以系統管理員執行的權限呢。

你要對那隻Process幹什麼事??除非你想要改變目標Process一些特性(例如關閉,寫入等),不然你應該不需要Administrator權限.
請翻閱MSDN,修改OpenProcess的權限要求
===================引 用 boy330077 文 章===================
似乎確實是權限問題，改以系統管理員執行就沒錯了。

另外是否能在程式中取得以系統管理員執行的權限呢。

是的 我不只要讀寫 還要對那個 PROCESS做寫入，

但是 WIN7都沒這個問題

WIN10才被擋住