これはDelphi 6でスレッドの名前を設定する正しい方法ですか？

Question

Delphi 6 IDEでスレッドリストウィンドウに表示される素敵なユーザーフレンドリーな名前を使用したいと思います。 Delphi 6でこれを行うためのWeb上のコードは、バージョンには基本的に実装されたSetThreadName（）がないことが分かっています。私はスレッドのExecute（）メソッドから呼び出す。例外が発生したときにIDEがポップアップするため、呼び出されていることがわかります。しかし、スレッドリスト（Ctrl + Alt + T）を見ると、設定した名前は表示されません。私はちょうど通常のスレッドID、状態、状態、および場所の列、何も表示されません。

スレッド名を表示するには、どうすればよいですか？また、誰でもIDEがRaiseException行を一時停止するのを止める方法を知っていますか？プログラムにスレッドがたくさんあるので、プログラムを実行するたびにIDEがN回ポップアップするのは面倒です。
私はDelphiの例外で停止するIDEを無効にすることができます知っているが、私は通常それをしたいと思うし、スレッドの新しいセットが作成されるたびにオフにする必要はありません。

Named threads in Delphi - what is that for?

procedure SetThreadName_delphi(const Name: string); 
    type 
     TThreadNameInfo = 
     record 
      RecType: LongWord; 
      Name: PChar; 
      ThreadID: LongWord; 
      Flags: LongWord; 
     end; 
var 
    info:TThreadNameInfo; 
begin 
    // This code is extremely strange, but it's the documented way of doing it! 

    info.RecType := $1000; 
    info.Name := PChar(Name); 
    info.ThreadID := $FFFFFFFF; 
    info.Flags := 0; 

    try 
     RaiseException($406D1388, 0, 
     SizeOf(info) div SizeOf(LongWord), PDWord(@info)); 
    except 
    end; 
end; 

Answer 1

私はそれが（それはそれは、Visual C++コンパイラの具体的であることを意味する）、アプリケーション固有の例外であるthe original code

を発見しました。私はDelphiがこの奇妙な機能をサポートする必要はないと考えています（可能ですが）。

---

編集：しかし、それは働きます！（レミールボーのおかげで）

ちょうど（私が見デバッガ 'スレッド・ステータス' ウィンドウで 'うわー！'）デルファイXEでテスト：C++ Builderの6以降のDelphi 7で

unit NameTest; 

interface 

uses 
    Windows, Classes; 

type 
    TTestThread = class(TThread) 
    private 
    { Private declarations } 
    protected 
    procedure Execute; override; 
    end; 

implementation 

{ TTestThread } 

procedure SetThreadName_delphi(const Name: string); 
    type 
     TThreadNameInfo = 
     record 
      RecType: LongWord; 
      Name: PAnsiChar; 
      ThreadID: LongWord; 
      Flags: LongWord; 
     end; 
var 
    info:TThreadNameInfo; 
    AnsiName: AnsiString; 

begin 
    AnsiName:= Name; 
    info.RecType := $1000; 
    info.Name := PAnsiChar(AnsiName); 
    info.ThreadID := $FFFFFFFF; 
    info.Flags := 0; 
    try 
     RaiseException($406D1388, 0, 
     SizeOf(info) div SizeOf(LongWord), PDWord(@info)); 
    except 
    end; 
end; 

procedure TTestThread.Execute; 
begin 
    SetThreadName_delphi('Wow!'); 
    while not Terminated do 
    Sleep(1000); 
end; 

end. 

Answer 2

File > New > Other > Thread Objectウィザードには、デバッガで新しいスレッドの名前を付けるオプションがあります。ウィザードは、Execute()メソッドの先頭に必要なRaiseException()実装を持つスタブTThread子孫クラスを生成します。

これは、まだスレッドの命名をサポートしていなかったDelphi 6では役に立ちませんでした。