Обсуждение программирования на Delphi в конференции ru.delphi

Hello, Igor Dolgov!
You wrote to All on Sun, 10 Jul 2005 22:16:34 +0400:






Что такое 'SND.WAV'

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Пpивет, Yura!

Вcк Июл 10 2005 18:40, Yura Balyuk отписал к Slava Antonov следyющее:







Кстати запросто. Так что зря смеешься.

Удачи тебе, Yura.
* Origin: Каждой тваре по NetWare. (2:5020/2013.20)


Доброго времени суток, Slava!





Конкретизируйте, плз. Куда конкретно?

Страшно? Я и не так умею!!! Всего.
Andrew
* Origin: Да куда он денется... С подводной-то лодки... (2:5055/168.29)







Потому что у сервиса в общем виде нет своего десктопа. Копать в OpenDesktop, SetProcessWindowStation и иже с ними, далее по ссылкам. В MSDN есть статья "Interacting with the User in a Service" вот из нее начало: For a noninteractive service application to interact with the user, it must open the user's window station ("WinSta0") and desktop ("Default"). By default, only the logged-on user and service applications running in the LocalSystem account are granted access to the user's window station and desktop. This means that services running in other accounts must either impersonate the user when opening the interactive window station and desktop, or have access granted to those accounts by the user.

Если не найдешь, пиши aust (тут собака) rin.ru - вышлю.

* Origin: MTU-Intel ISP (2:5020/400)







SND_FILENAME

* Origin: MTU-Intel ISP (2:5020/400)


Пpиветствую, All

1.Как осуществить сабж, зная только его имя?

2.Как pешить такую пpоблему:
Пpоэкт состоит из 2х фоpм и 2х потоков(Thread).
Пpичем потоки создаются и уничтожаются пpактически в случайном поpядке.

Если завеpшить пpогу пpи помощи Application.Terminate, то если ни один поток еще не был создан, то всё в поpядке.

Если завеpшать потоки пpи помощи Thread.Terminate, то пpи завешении пpоги вылетает ошибка:




Если же после обpаботки потока осуществлять Thread.Destroy, то пpи Application.Terminate безо всяких ошибок фоpма закpывается, а пpоцесс остается в памяти на неопpеделенное вpемя.

Всего хоpошего, All.
* Origin: Чем больше воТки, тем лучше (2:5057/19.127)


* Originally in RU.DELPHI
Приятного тебе дня и незабываемой ночи, Anton!

Sunday July 10 2005, Anton Ivlenov writes to All:




можно попытаться положить его в фрейм высотой в 21 пиксел. тогда этот фрейм просто будет обрезать его изображение

Bulat, mailto:bulat_z-AT-mail.ru

* Origin: Пикап - лучший способ познакомиться с удовольствием ; (2:5093/4.126)




Hello Roman Alexeev, you wrote:



Перечислить процессы, выбрать среди них те, имена которых совпадают и завершить их.
Вопрос о перечислении процессов обсуждался многокрастно. Группо-гугль тебе поможет.

--
Всего хорошего, Слава.
slava.fateback.com









Hello Oleg Lazukin, you wrote:




RasConnectionNotification





Вам шашечки, или ехать?

--
Всего хорошего, Слава.
slava.fateback.com









Hello Andrew Cherepanoff, you wrote:

function GetCPUSpeed: Double;
const DelayTime = 500;
var TimerHi : DWORD;
TimerLo : DWORD;
PriorityClass : Integer;
Priority : Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
DW 310Fh // rdtsc
MOV TimerLo, EAX
MOV TimerHi, EDX
end;
Sleep(DelayTime);
asm
DW 310Fh // rdtsc
SUB EAX, TimerLo
SBB EDX, TimerHi
MOV TimerLo, EAX
MOV TimerHi, EDX
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000.0 * DelayTime);
end;

// Usage ...

LabelCPUSpeed.Caption := Format('CPU speed: %f MHz', [GetCPUSpeed]);

Взято с Vingrad.ru forum.vingrad.ru



function GetCPUSpeed: real;

function IsCPUID_Available: Boolean; assembler; register;
asm
PUSHFD { прямой доступ к флагам невозможен, только через стек }
POP EAX { флаги в EAX }
MOV EDX,EAX { сохраняем текущие флаги }
XOR EAX,$200000 { бит ID не нужен }
PUSH EAX { в стек }
POPFD { из стека в флаги, без бита ID }
PUSHFD { возвращаем в стек }
POP EAX { обратно в EAX }
XOR EAX,EDX { проверяем, появился ли бит ID }
JZ [@] exit { нет, CPUID не доступен }
MOV AL,True { Result=True }
[@] exit:
end;

function hasTSC: Boolean;
var
Features: Longword;
begin
asm
MOV Features,0 { Features = 0 }

PUSH EBX
XOR EAX,EAX
DW $A20F
POP EBX

CMP EAX,$01
JL [@] Fail

XOR EAX,EAX
MOV EAX,$01
PUSH EBX
DW $A20F
MOV Features,EDX
POP EBX
[@] Fail:
end;


end;

const
DELAY = 500;
var
TimerHi, TimerLo: Integer;
PriorityClass, Priority: Integer;
begin
Result := 0;
if not (IsCPUID_Available and hasTSC) then Exit;
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,
THREAD_PRIORITY_TIME_CRITICAL);

SleepEx(10, FALSE);

asm
DB $0F { $0F31 op-code for RDTSC Pentium инструкции }
DB $31 { возвращает 64-битное целое (Integer) }
MOV TimerLo,EAX
MOV TimerHi,EDX
end;

SleepEx(DELAY, FALSE);

asm
DB $0F { $0F31 op-code для RDTSC Pentium инструкции }
DB $31 { возвращает 64-битное целое (Integer) }
SUB EAX,TimerLo
SBB EDX,TimerHi
MOV TimerLo,EAX
MOV TimerHi,EDX
end;

SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000 * DELAY);
end;

Взято из forum.sources.ru







const
ID_BIT=$200000; // EFLAGS ID bit

function GetCPUSpeed: Double;
const
DelayTime = 500;
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
try
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriorit(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);

Sleep(10);
asm
dw 310Fh // rdtsc
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw 310Fh // rdtsc
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;

SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);

Result := TimerLo / (1000.0 * DelayTime);
except end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var cpuspeed:string;
begin
cpuspeed:=Format('%f MHz', [GetCPUSpeed]);
edit1.text := cpuspeed;
end;

Взято из forum.sources.ru






function RdTSC : int64; register;
asm
db $0f, $31
end;

function GetCyclesPerSecond : int64;
var
hF, T, et, sc : int64;
begin
QueryPerformanceFrequency(hF); // HiTicks / second
QueryPerformanceCounter(T); // Determine start HiTicks
et := T + hF; // (Cycles are passing, but we can still USE them!)
sc := RdTSC; // Get start cycles
repeat // Use Hi Perf Timer to loop for 1 second
QueryPerformanceCounter(T); // Check ticks NOW

Result := RdTSC - sc; // Get stop cycles and calculate result
end;


--
Всего хорошего, Слава.
slava.fateback.com