Привет вам, дельфяне!

Объявление от GoldFAQ.ru :

Экстренное сообщение для всех дельфийцев

Так как на данный момент большая часть посетителей этого сайта относится к любителям Delphi, то мы хотим их сказочно обрадовать! Так как недавно один очень хороший человек дал нам архив всяких статей, всего их где-то... ну около 2500 :0 Конечно мы не сможем выложить всё это чудо за один день, но в период с 16 по 27 февраля 2004 года мы постараемся выкласть их все! Так что оставайтесь с нами, не пожалеете...

В этом выпуске:

1)Простой способ организации системы сообщений о событиях...-->
2)Ответы-->
3)Вопросы-->

Вопрос #31 от Dsmitriy Smirnoff

Привет всем!!!
У меня такая проблема: нужно чтобы программа при запуске определяла БУКВУ
ДИСКА (т.е. если программа запущена с CD-ROM'а, то она, например, выводила
на форму букву CD-привода)на котором она находится. Желательно в String.
Заранее спасибо.
Дмитрий "Упырь" Смирнов

Отвечает Sergey K

//ParamStr(0) - выводит путь и имя файла запущеного приложения (String).
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
begin
S:=ParamStr(0);
button1.Caption:=S[1];
end;
 

Отвечает Alexey

Можно попробовать так, по крайней мере у меня получилось:

Function GetDiskToChar:string; //ну лучше названия не придумал :) :)
var
str,disk:string;
begin
str:=ExtractFilePath(ParamStr(0));//кстати здесь ещё можно сделать так:
{
str:=ExtractFilePath(Application.ExeName);
потому что где-то читал, что paramStr(0) иногда передаёт нето, что нужно,
но у меня всё ок.
}
disk:=Copy(str,1,1);
{
если хочешь не только одну букву, но и с точками и косой чертой, то копирую больше символов, скажем три вот тогда и будет F:\
************ disk:=Copy(str,1,3); ******************
}
result:=disk;
end;
вот вроде и всё!!!

Отвечает santi@tut.by

s := ParamStr(0);
Edit1.Text := s[1];

Отвечает Золотарёв Сергей

Короче Дмитрий вот тебе такой код:

procedure TFrom1.OnCreate(Sender: TObject);
var BUKVA: String;
begin
BUKVA:=Application.ExeName[1]; //Делай теперь с ней что хочешь!
end;

Вот и всё. Теперь у тебя в переменной BUKVA внутри этой процедуры храниться буква диска, с которого запущена программа.

Отвечает Edward

Вот пример. При запуске выводит в Label букву диска
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:=copy(GetCurrentDir,1,2);
end;

end.

Отвечает Alexandr Belayev

Используй функцию:

function ExtractFileDrive(const FileName: string): string;

Description

ExtractFileDrive returns a string containing the drive portion
of a fully qualified path name for the file passed in the
FileName. For file names with drive letters, the result is in
the form '<drive>'. For file names with a UNC path
the result is in the form '\\<servername>\<sharename>'.
If the given path contains neither style of path prefix, the result is an empty string.

Отвечает p_kolya

Слышь, а ты это... вызывай procedure ExtractFilePath для своего
Application.ExeName а потом отсекай от этого 3 символа сначала( ну или
как там тебе?)... вот так...

Отвечает Sergey Larin

...
Label1.Caption:=Application.ExeName[1];
...

Естественно, модуль, где содержится данный код должен использовать модуль
Forms, а на форме должен присутсвовать TLabel с именем Label1.
 

Отвечает kama

Если нужна просто буква, то делается это легко:

var DriveChar: Char; // или string[1]
begin
DriveChar := ExtractFilePath(ParamStr(0))[1];
end;

А если нужен тип диска, то используй GetDriveType.

Отвечает Александр Козлов

А что, "Application.ExeName" уже не работает?
 

Отвечает Гладков Олег

Посмотри Help по функции ExtractFileDrive.

Отвечает KSTU Webmaster

Function GetDriveChar : char;
var
S : String;
begin
S := ParamStr(0);
Result := S[1];//вот и всё!
end;

Отвечает Алексей Лосев

Все очень просто:
s:=copy(Application.Exename, 1, 3);
В s будет записано 'D:\'.

Отвечает Edward

ExtractFileDrive(application.ExeName)

Отвечает Шпаковский Алексей

ExtractFileDrive(ParamStr(0))
Возвращает букву диска с двоеточием ('C:', 'c:', 'D:', 'd:',..), причём с разным регистром (при запуске из Delphi -
UpCase, из
TotalCommander - LowCase). Правда, в справке по ExtractFileDrive сказано, что для UNC путей результат приобретает вид
\\<servername>
\<sharename>. Может быть, это не самый лучший вариант, но в крайнем случае и он сойдёт.

Отвечает Misha

Чтобы программа при запуске определяла БУКВУ ДИСКА:

var
PathS: String;
DiskCh: Char; // Буква диска, которая тебе нужна
begin
// Определяем диск, где лежит EXE-шник
PathS:= ParamStr(0);
DiskCh:= PathS[1];
Edit1.Text:= DiskCh;
// Определяем текущий диск
GetDir(0, PathS);
DiskCh:= PathS[1];
Edit2.Text:= DiskCh;
end;

Отвечает старый Иван

юзай это:
ExtractFileDrive(ParamStr(0)); //paramstr(0) - путь к файлу

Вопрос #32 от Аппарат акима Иртышского района

Есть такой вопрос.

Как отловить нажатия мыши на заголовке (фиксированные строки StringGrid-а).
Например для вызова сортировки по определенному столбцу, не используя
сторонних компонентов типа StringGrid.
Кто знает пожалуйста напишите vornik@mail.kz

Отвечает santi@tut.by

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
sss : String;
gd : TGridCoord;
begin
if Button = mbLeft then
begin
gd := StringGrid1.MouseCoord(X, Y);
ShowMessage('X: '+IntToStr(gd.X)+'; Y:'+IntToStr(gd.Y));
//теперь сравнивай, что if gd.X = 0 then .....
end;
end;

Отвечает p_kolya

Знаешь, прописывай нужный тебе код в OnClick нужного компанента,
предварительно проверив координаты... проверяй короче по координатам
этого заголовка... конечно немного тупо ;(

Отвечает Sergey Larin

В обработчике onClick надо определить координаты мыши (с пом. WinAPI), затем
"глобальные" (относительно всего экрана) координаты перевести в "локальные"
(относительно нужного компонента, TStringGrid, например), а затем вычислить
какой ячейке соответсвуют эти координаты и если ячейка фиксированная -
предпринимать нужные действия.

Отвечает kama

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var c, r: integer;
begin
StringGrid1.MouseToCell(X, y, c, r);
if (c = FixedCols-1) and (r = FixedRows-1) then
YourSort();
end;

Отвечает Щеткин А.Г.

Вот те строчка из helpa: Write an OnTitleClick event handler to take specific action when the user clicks in one of the column headers. The Column parameter is the TColumn object that corresponds to the column where the mouse was when the user released the left mouse button.
Я думаю, что дальше ты разберешься....

Вопрос #33 от Alexey

Всем здрасте!!!
Вот неожиданно возник вопрос:
можно ли как-то ставить что-то вроде ловушек на функции!!! из стандартных Windows'ких библиотек (Kernel32.dll,user32.dll ....),
чтобы, например, какая-то программа вызывает функцию SetSecurityObject, ну или любую другую, а моя прога это перехватывает и сначала делает сама что-нибудь :) :) :)
А потом можно и управление передать этой процедуре или не передать.

Отвечает KSTU Webmaster

Можно, только очень сложно.
Нужно будет следующее:
Для Windows NT\2000\XP
1) Иметь права администраторо или
пользователя который имеет право отладки процесса
2) написать резидентный отладчик который
запустит отладку и сделает attach на процесс в котором исполняются
код библиотек вызовы функций из которых нужно контролировать, т.е
работать в одном адресном пространстве с ними.
3) С помощью отладчика запустить отладку
и смотреть что и как вызывается
Для Windows 9х 1-й пункт опускается.

Вопрос #34 от Oleg666

Привет всем! Может быть кто-нибудь знает как работая с компонентом TIdSMTP можно узнать сколько байт вообще идёт на отправку и сколько уже отправлено

А исходники то зачем? Ведь для всех этих компонентов есть исходники в
комплекте с Delphi!

Отвечает Шпаковский Алексей

У TIdSMTP есть событие OnWork.
Параметры:
AWorkMode: TWorkMode - режим работы (что делает), может быть wmRead (чтение) или wmWrite (запись)
AWorkCount: Integer - количество байт отправлено/получено

Вопрос #35 от wasilla

Народ, здрасте !
Народ, я занимаюсь базами даных, но я еще учюсь, и следовательно мне надо будет сдавать сесию. У кого есть хорошая обучаловка по сабжу, киньте пожалуйста в мыло, или дайте хороший совет с чего начать.
e_mail:
vasil@dubno.dcagro.com

ОТВЕТИТЬ

Вопрос #36 от Гришин Дмитрий

Всем привет.
Хотелось бы найти набор компонент (кнопки, чекбоксы, радиокнопки, гриды и т.п.), которые бы имели вид, полностью аналогичный виду сооветствующих элементов управления и редактирования в Windows XP. Для примера можно взглянуть на интерфейс программы SnagIt 7.0 (www.snagit.com). Устроит также невизуальный компонент, переопределяющий вид элементов, как например, это делает XP Menu (но это не совсем дизайн ОС WinХР, а, скорее, дизайн MS Office XP).
Заранее огромное спасибо!

ОТВЕТИТЬ

Вопрос #37 от Reno

Привет!
У меня вопрос - как засунуть прогу в System Tray ?

ОТВЕТИТЬ

Вопрос #38 от Буланов Сергей

Привет всем!!!
У меня такой вопрос: где в Internet можно найти хорошее описание Delphi?
Заранее спасибо!
Сергей.

ОТВЕТИТЬ

Вопрос #39 от Alex

Здравствуйте,

Я только начал работать с базами данных в Делфи, и у меня появлилсь такие вопросы.
1. Почему DBGrid при растягивании формы (и соответственно, сетки), не меняет своих размеров? Как их можно тоже менять в зависимости от размеров формы, а то получается очень страшная картина (размер полей не поменялся, а таблица растянулась и стало куча свободного места).
2. Если у меня первое поле с названием ID является AutoIncrement, то оно увеличивается на 1 с добавлением каждой записи (это понятно), но вот если у меня текущая запись, скажем, 15, то после ее удаления и добавления новой записи получатеся такая картина в поле ID: ...,12,13,14,16,... Почему новая запись продолжается под номером 16, а не 15? Это можно исправить?
3. Есть ли лучшие средства для работы с БД (локальной), чем Paradox + DBGrid?

ОТВЕТИТЬ

Вопрос #40 от Золотарёв Сергей

Кто знает как узнать имя процесса по его хендлу?
Т.е. есть у меня переменная типа THandle (к примеру H).
Так вот я вызываю GetModuleFileName(H) - а она возвращает имя модуля
моей проги, хотя хендл к примеру указывает на рабочий стол... Как это
лечить???

ОТВЕТИТЬ

Вопрос #41 от Voronin N.A.

Привет ВСЕМ.
Есть такой вопрос.

Как отловить нажатия мыши на заголовке (фиксированные строки StringGrid-а).
Например для вызова сортировки по определенному столбцу (код сортировки мне
в
принципе не нужен), не используя
сторонних компонентов типа StringGrid.
Кто знает пожалуйста напишите vornik@mail.kz

ОТВЕТИТЬ

Вопрос #42 от Рюриковичи мы

Здравствуйте!

ВОПРОС: Как определить размеры файла/папки?
FileSize работает только с уже открытым файлом.
Можно только через него?

Спасибо.

ОТВЕТИТЬ

Вопрос #43 от santa_k

Привет, дельфисты!!!
Помогите. Не могу разобраться в Rave Raports 5 для Delphi7.
Например, как добавить в DataVewDictionary->DataView новую запись
DataView2FieldName и вообще где можно взть толковую литературу по
этому направлению, а также толковые чаты или форумы. Спасибо.

ОТВЕТИТЬ

Вопрос #44 от Voronin N.A.

Всем привет.
Тут опять вопросец имеется.

Необходимо один столбец StringGrid-a заполнить CheckBox-aми и работать с
ними
как с нормальными объектами (компонентами).
Знаю про StringGrid.Objects[i,j], присваиваю ему (предварительно создав)
какой либо CheckBox но потом не могу с ним ничего делать.
Кто знает как по-человечески работать помогите.

ОТВЕТИТЬ