- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
procedure SetCurrentThreadName(const AName: String);
type
TThreadNameInfo = record
RecType: LongWord;
Name: PChar;
ThreadID: LongWord;
Flags: LongWord;
end;
var
LThreadNameInfo: TThreadNameInfo;
begin
with LThreadNameInfo do
begin
RecType := $1000;
Name := PChar(AName);
ThreadID := $FFFFFFFF; // -1 - текущий поток; также сюда можно вставить ID другого потока
Flags := 0;
end;
try
RaiseException($406D1388, 0, SizeOf(LThreadNameInfo) div SizeOf(LongWord),
PDWord(@LThreadNameInfo));
except
end;
end;
Попытка создать именованный поток.
Не хак. (http://msdn.microsoft.com/en-us/library/xcb2z8hs%28VS.71%29.aspx)
WGH 22.04.2014 13:58 # +2
Я немного погуглил, получается, это такое хитрое сообщение отладчику.
guest 22.04.2014 14:21 # 0
WGH 22.04.2014 14:42 # +2
Lure Of Chaos 22.04.2014 15:03 # +2
guest 22.04.2014 15:24 # 0
guest 03.05.2014 09:51 # 0