FreePascal.ru

ОС: Windows.
Есть строка (string), значение которой представляет собой путь к объекту на диске.
Как определить что представляет собой объект: папка или файл или объект вообще не существует?

Всё началось с того, что я обратил внимание на то, что стандартная процедура Val в случае ошибки перевода "портит" предыдущее значение результата.
Ладно, думаю, напишу свою процедуру, которая не занимается бессовестной порчей данных . Но тут возник вопрос: в оригинальной процедуре тип результата ...

Ура! У меня получилось!!!
Огромное спасибо В. А. Соковикову за перевод документации: http://www.vsokovikov.narod.ru/New_MSDN_API/Console/ogl_con.htm
Благодаря ей, я написал процедуру, которая прекрасно заменяет собой crt'шные readkey и keypressed, ещё и мышь опрашивает:

uses ...

SSerge писал(а):Если вывод производите средствами консоли, то перед вводом необходимо поставить паузу.

Уфф. Пробовал - не получилось.

SSerge писал(а):Или использовать для вывода не-консольные средства.

А вот тут, пожалуйста, поподробнее...

uses windows;

Уважаемый Vadim, слепил я из Вашего кода вот такую функцию:
function GetConsoleHwnd:HWND;
var h: HWND;
function EnumWndProc(h:HWND; l:LPARAM): BOOL; stdcall;
begin
if GetWindowThreadProcessId(h, NIL) = GetCurrentThreadId() then
EnumWndProc:=FALSE;
else
EnumWndProc&#58 ...

Vadim писал(а):Текущего, в котором работает сама программа?

Да.

Как получить дескриптор (HWND) консольного окна средствами Free Pascal ?
Нашёл несколько примеров на C++ :
http://www.cyberguru.ru/cpp-sources/ui-windows/kak-poluchit-deskriptor-konsolnogo-okna-hwnd.html
http://www.rsdn.ru/article/qna/ui/conhandl.xml
Помогите ...

FPC 2.7.1 x32 и x64
Windows 7 x64 оба варианта работают. С оговоркой. Но тут уж как написали, так оно и действует.
То есть, если кратковременно ткнуть в кнопку - то как повезёт. Если кнопку держать долго - срабатывает.
Хотите, чтобы срабатывало с первого раза, уберите это безобразие:

write(chr ...

Не пойму, что здесь не так.
Не работают совместно клавиатура и мышь:
нажатие кнопок мыши цикл прерывает, а на клавиатуру программа не реагирует (кроме Ctrl-Break)
FPC 2.6.0 , Windows-7 x64


program KeybMous;

uses crt,mouse;

var
me : TMouseEvent;
ch : char;

begin
InitMouse;

repeat ...