/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 774
от 08.04.2007, 13:35

Вопрос № 80.690

Добрый день! Работаю с файлами данных большого размера (от 5М до 1Г). Для чтения файла использую FileMapping. При размере файла <700М все читается нормально, а при размере >700M выскакивает ошибка 8<Недостаточно памяти для выполнении команды> При этом FMap = nil FMap := MapViewOfFile ( FileMapping, FILE_MAP_READ, 0, 0, 0 );// здесь ошибка на больших файлах > 700M Если не трудно, подскажите где собака зарыта? Приложение: unit HsFileMapper; {Класс, обеспечиващий создание файла, проецируемого в память} {$IFDEF VER140} {$WARN SYMBOL_PLATFORM OFF} {$WARN SYMBOL_DEPRECATED OFF} {$ENDIF} interface uses Windows; type THSFileMapper = class private FFileHandle: THandle; FFileSize: Int64; FMap: Pointer; // FMap: PChar; FFileName: string; function GetEndMap: PChar; public constructor Create (const AFileName: string); destructor Destroy; override; property Map: Pointer read FMap; // property Map: pChar read FMap; property EndMap: PChar read GetEndMap; property FileSize: Int64 read FFileSize; property FileName: string read FFileName; end; implementation uses SysUtils; { THSFileMapper } constructor THSFileMapper.Create(const AFileName: string); var SizeHighPart: Int64; FileMapping: THandle; begin FFileName := AFileName; FFileHandle := CreateFile ( PChar(AFileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if FFileHandle = INVALID_HANDLE_VALUE then RaiseLastWin32Error; FFileSize := GetFileSize( FFileHandle, @SizeHighPart); FileMapping := CreateFileMapping( FFileHandle, nil, PAGE_READONLY, 0, 0, nil ); if FileMapping = 0 then RaiseLastWin32Error; FMap := MapViewOfFile ( FileMapping, FILE_MAP_READ, 0, 0, 0 );// здесь ошибка на больших файлах > 700M CloseHandle (FileMapping); if not Assigned(FMap) then RaiseLastWin32Error; end; destructor THSFileMapper.Destroy; begin if Assigned(FMap) then UnmapViewOfFile (FMap); if FFileHandle <> INVALID_HANDLE_VALUE then CloseHandle (FFileHandle); inherited; end; function THSFileMapper.GetEndMap: PChar; begin // Result := FMap + FFileSize; end; end.

Отправлен: 02.04.2007, 13:09 Вопрос задал: Сазонов Михаил Владимирович (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Уваров Андрей Александрович Здравствуйте, Сазонов Михаил Владимирович! Выдержка из MSDN: Paging file space for the entire view is committed when copy-on-write access is specified, because the thread in the process can write to every single page. Therefore, enough physical storage space must be obtained at the time MapViewOfFile is called. Это значит что на диске должно быть достаточно места для файла. Я так понял файла подкачки? Я просто не работал с этой функции но чувствую что у вас мал файл подкачки.... --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: AvePassion@GMail.Com

Ответ отправил: Уваров Андрей Александрович (статус: Студент) Ответ отправлен: 02.04.2007, 13:41

Отвечает: PGM Здравствуйте, Сазонов Михаил Владимирович! Последний параметр MapViewOfFile - если он равен 0, то пытается загрузить весь файл в память. Правильнее было бы работать "кусками" и маппить только ту область, с которой работаешь (3 и 4 параметры - смещение), а потом освобождать и переходить к другому участку.

Ответ отправил: PGM (статус: 3-ий класс) Ответ отправлен: 03.04.2007, 10:31

Вопрос № 80.718

Как можно работать над одним проектом одновременно с нескольких компьютеров в локальной сети !? Заранее спасибо !

Отправлен: 02.04.2007, 15:03 Вопрос задал: Sniffer (статус: Студент) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Базанов Иван Александрович Здравствуйте, Sniffer! В Delphi для этого нужно поставить StarTeam Server --------- Disassemble your life and get the key

Ответ отправил: Базанов Иван Александрович (статус: 5-ый класс) Ответ отправлен: 02.04.2007, 15:08

Отвечает: Архангельский Андрей Германович Здравствуйте, Sniffer! Есть приложение StarTeam (входит в Delphi 2006 или можно приобрести отдельно), но не все проекты могут быть поддержаны (указано в документации) --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 02.04.2007, 15:08 Оценка за ответ: 5 Комментарий оценки: Спасибо, но я работаю под Delphi 7 можно ли ее использовать ?

Отвечает: Pavel Maltsev Здравствуйте, Sniffer! Используйте системы для управления исходными кодами (типа Source Safe, CVS, StarTeam). Мы у себя в конторе используем SVN. Она хранит версии исходников, разграничивает права доступа различных программистов к разным исходникам, и т.д. и т.п... - а главное позволяет сливать исходники, если например два программера правили один и тот же файл (система сама анализирует какие процедуры/функции были изменены). Ну а по-простецки - можно расшарить директорию (открыть общий доступ), ну и каждый может смапировать (Tools -> Map networkd disk в "Мой компьютер")... И в перед, но тогда будут проблемы, если программисты будут править один и тот же файл... Удачи!

Ответ отправил: Pavel Maltsev (статус: 3-ий класс) Ответ отправлен: 02.04.2007, 15:13

Вопрос № 80.760

Здравствуйте! Посоветуйте, пожалуйста, компонент или просто набор функций, которые узнают всю системную информацию о компе. Тип CPU, памяти, видео, настройки операционки и так далее... Заранее спасибо!

Отправлен: 02.04.2007, 19:10 Вопрос задал: Red Spirit (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Red Spirit! Смотрите ответы на вопрос №80197 --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 02.04.2007, 19:22

Отвечает: Gh0stik Здравствуйте, Red Spirit! Рекомендую такие ресурсы с портала DelphiWorld # Извлечь информацию о процессоре # Как определить тип процессора # Получение типа процессора # Delphi и системная информация о ресурсах компьютера # Вывести информацию о системе # Как получить информацию о локальных настройках системы Помимо этих статей Вы сможете найти еще кучу подобных... А также прилагаю проект с подобными возможностями. Good Luck!!! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 02.04.2007, 19:53 Оценка за ответ: 5 Комментарий оценки: Спасибо, хорошие примеры!

Отвечает: василий1 Здравствуйте, Red Spirit! видео адаптер procedure TForm1.button1click(Sender: TObject); var lpDisplayDevice: TDisplayDevice; dwFlags: DWORD; cc: DWORD; begin form2.memo1.Clear; lpDisplayDevice.cb := sizeof(lpDisplayDevice); dwFlags := 0; cc := 0; while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do begin Inc(cc); form2.memo1.lines.add(lpDisplayDevice.DeviceString); {Так же мы увидим дополнительную информацию в lpDisplayDevice} form2.show; end; end; ниже код программы которая определяет определенные параметры из нужных вам type TfmMain = class(TForm) ... procedure FormCreate(Sender: TObject); procedure Change(Sender: TObject); private { Private declarations } public { Public declarations } KeyboardDelay, KeyboardSpeed, ScreenSaveTimeOut : integer; procedure ParametersInfo; procedure ShowSomeInfo; procedure BIOSInfo(OS : string); procedure HardwareInfo; procedure MemoryInfo; procedure VideoInfo; procedure OSInfo; end; var fmMain: TfmMain; implementation uses Registry; {$R *.DFM} // Информация о компьютере. procedure TfmMain.HardwareInfo; var Size : cardinal; PRes : PChar; BRes : boolean; lpSystemInfo : TSystemInfo; begin // Имя компьютера Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetComputerName(PRes, Size); if BRes then laCompName_.Caption := StrPas(PRes); // Имя пользователя Size := MAX_COMPUTERNAME_LENGTH + 1; PRes := StrAlloc(Size); BRes := GetUserName(PRes, Size); if BRes then laUserName_.Caption := StrPas(PRes); // Процессор GetSystemInfo(lpSystemInfo); laCPU_.Caption := 'класса x' + IntToStr (lpSystemInfo.dwProcessorType); end; Приложение: // Информация о видеосистеме. procedure TfmMain.VideoInfo; var DC : hDC; c : string; begin // Разрешение экрана laWidth_.Caption := IntToStr(Screen.Height); laHeight_.Caption := IntToStr(Screen.Width); // Информация о глубине цвета. DC := CreateDC('DISPLAY',nil,nil,nil); laBitsPerPixel_.Caption := IntToStr(GetDeviceCaps(DC,BITSPIXEL)); laPlanes_.Caption := IntToStr(GetDeviceCaps(DC,PLANES)); case GetDeviceCaps(DC,BITSPIXEL) of 8 : c := '256 цветов'; 15 : c := 'Hi-Color / 32768 цветов'; 16 : c := 'Hi-Color / 65536 цветов'; 24 : c := 'True-Color / 16 млн цветов'; 32 : c := 'True-Color / 32 бит'; end; laColors_.Caption := c; DeleteDC(DC); end; // Информация о памяти. procedure TfmMain.MemoryInfo; var lpMemoryStatus : TMemoryStatus; begin lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus); GlobalMemoryStatus(lpMemoryStatus); with lpMemoryStatus do begin laFreeMemory.Caption := laFreeMemory.Caption + IntToStr(dwMemoryLoad) + '%'; laRAM_.Caption := Format('%0.0f Мбайт', [dwTotalPhys div 1024 / 1024]); laFreeRAM_.Caption := Format('%0.3f Мбайт', [dwAvailPhys div 1024 / 1024]); laPF_.Caption := Format('%0.0f Мбайт', [dwTotalPageFile div 1024 / 1024]); laPFFree_.Caption := Format('%0.0f Мбайт', [dwAvailPageFile div 1024 / 1024]); end; end; // Информация о Windows. procedure TfmMain.OSInfo; var PRes : PChar; Res : word; BRes : boolean; lpVersionInformation : TOSVersionInfo; c : string; begin // Каталог, где установлена Windows PRes := StrAlloc(255); Res := GetWindowsDirectory(PRes, 255); if Res > 0 then laWinDir_.Caption := StrPas(PRes); // Системный каталог Windows Res := GetSystemDirectory(PRes, 255); if Res > 0 then laSysDir_.Caption := StrPas(PRes); // Имя ОС lpVersionInformation.dwOSVersionInfoSize := SizeOf(TOSVersionInfo); BRes := GetVersionEx(lpVersionInformation); if BRes then with lpVersionInformation do case dwPlatformId of VER_PLATFORM_WIN32_WINDOWS : if dwMinorVersion=0 then c := 'Windows 95' else c := 'Windows 98'; VER_PLATFORM_WIN32_NT : c := 'Windows NT'; VER_PLATFORM_WIN32s : c := 'Win 3.1 with Win32s' end; laVersion_.Caption := c; // Дата создания BIOS-а if c='Windows NT' then BIOSInfo('NT') else BIOSInfo('95'); end; // Информация о дате создания BIOS-а. procedure TfmMain.BIOSInfo(OS : string); var p : pointer; s : string[255]; begin if OS='NT' then begin with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; if OpenKeyReadOnly ('HARDWAREDESCRIPTIONSystem') then laBIOSDate_.Caption := ReadString('SystemBiosDate') finally Free; end; end else try s[0] := #8; p := Pointer($0FFFF5); Move(p^,s[1],8); laBIOSDate_.Caption := copy(s,1,2) + '/' + copy(s,4,2) + '/' +copy (s,7,2); except laBIOSDate_.Caption := 'XX.XX.XXXX'; end; end; // Информация о параметрах procedure TfmMain.ParametersInfo; var Bl : boolean; begin // Разрешен ли PC Speaker SystemParametersInfo(SPI_GETBEEP,0,@Bl,0); cbSpeaker.Checked := Bl; // Активен ли хранитель экрана SystemParametersInfo (SPI_GETSCREENSAVEACTIVE,0,@Bl,0); cbScreenSaverActive.Checked := Bl; // Интервал вызова хранителя экрана SystemParametersInfo (SPI_GETSCREENSAVETIMEOUT,0, ScreenSaveTimeOut,0); // Настройки клавиатуры SystemParametersInfo (SPI_GETKEYBOARDDELAY,0, KeyboardDelay,0); SystemParametersInfo (SPI_GETKEYBOARDSPEED,0, KeyboardSpeed,0); end; // Отображение настроек procedure TfmMain.ShowSomeInfo; begin tbKeyboardDelay.Position := 3 - KeyboardDelay; tbKeyboardSpeed.Position := KeyboardSpeed; edSStimeOut.EditMask := IntToStr (ScreenSaveTimeOut div 60); end; // Сохранение изменений параметров системы procedure TfmMain.Change(Sender: TObject); var Sen : TComponent; begin Sen := Sender as TComponent; // Вкл/Выкл PC Speaker-а. if (Sen.Name='cbSpeaker') and cbSpeaker.Checked then SystemParametersInfo (SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE) else SystemParametersInfo (SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE); // Вкл/Выкл активности хранителя экрана. if (Sen.Name='cbScreenSaver') and cbScreenSaverActive.Checked then SystemParametersInfo (SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_UPDATEINIFILE) else SystemParametersInfo (SPI_SETSCREENSAVEACTIVE,0,nil,SPIF_UPDATEINIFILE); // Изменение значения задержки перед повтором с клавиатуры if (Sen.Name='tbKeyboardDelay') then SystemParametersInfo( SPI_SETKEYBOARDDELAY,3-tbKeyboardDelay.Position,nil, SPIF_SENDWININICHANGE); // Изменение значения скорости ввода с клавиатуры if (Sen.Name='tbKeyboardSpeed') then SystemParametersInfo( SPI_SETKEYBOARDSPEED,tbKeyboardSpeed.Position,nil, SPIF_SENDWININICHANGE); // Изменение интервала запуска хранителя экрана if (Sen.Name='edSSTimeOut') then SystemParametersInfo( SPI_SETSCREENSAVETIMEOUT,StrToInt(edSSTimeOut.Text) *60,nil,SPIF_UPDATEINIFILE); end; // Вызов информационных процедур при создании формы. procedure TfmMain.FormCreate(Sender: TObject); begin HardwareInfo; MemoryInfo; VideoInfo; ParametersInfo; ShowSomeInfo; OSInfo; end;

Ответ отправил: василий1 (статус: 2-ой класс) Ответ отправлен: 03.04.2007, 03:23 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Вопрос № 80.767

Здравствуйте. Помогите написать генератор пароля по такому принципу. На форме есть следующие компоненты: CheckBox1 (генерировать цифры), CheckBox2 (генерировать кирилические маленькие буквы), CheckBox3 (генерировать латинские маленькие буквы), Edit1 (для установки длинны пароля) и приделанный к нему UpDown1 (для увеличения или уменьшения длинны пароля). При нажатии на клавишу Button1, программа проверяет, какие CheckBox выбранны и генерирует из них в перемешку и получившийся пароль выводит в поле MaskEdit1. Помогите пожалуйста

Отправлен: 02.04.2007, 20:14 Вопрос задал: SashaFAN (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik Здравствуйте, SashaFAN! Я вместо CheckBox-ов воспользовался обычным CheckListBox-ом, на мой взгляд более компактно и рационально. В него я разместил такие строки в таком порядке: Цифры Кириллица маленькие Латиница маленькие Так же как Вы и говорили разместил Edit1 (для установки длинны пароля) и приделанный к нему UpDown1, а вот результат - пароль - вывожу тоже в обычный Edit2, заменить его на MaskEdit1 не составит большого труда. Содержание процедуры которая происходит по нажатию кнопки смотрите в приложении, если возникнут вопросы - задавайте. При создании пароля я использовал псевдослучайный генератор чисел и с его помощью вычислял очередной символ пароля, конечно же если выполняются соответствующие установки в CheckListBox. Good Luck!!! Приложение: procedure TForm1.Button7Click(Sender: TObject); const latin=['a'..'z']; kiril=['а'..'я']; digit=['0'..'9']; var c:char; mn:set of char; ps:string; i:integer; begin Randomize; ps:=''; with CheckListBox1 do begin if Checked[0] then mn:=digit; if Checked[1] then mn:=kiril; if Checked[2] then mn:=latin; if Checked[0] and Checked[1] then mn:=kiril+digit; if Checked[0] and Checked[2] then mn:=latin+digit; if Checked[1] and Checked[2] then mn:=latin+kiril; if Checked[0] and Checked[1] and Checked[2] then mn:=latin+kiril+digit; end; for i:=1 to UpDown1.Position do begin repeat c:=chr(random(1000) mod 255); until c in mn; ps:=ps+c; end; Edit2.Text:=ps; end; --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 02.04.2007, 21:18

Отвечает: W@NDeReR Здравствуйте, SashaFAN! В приложении написан весь код программы Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Mask; type TForm1 = class(TForm) Edit1: TEdit; UpDown1: TUpDown; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; Button1: TButton; MaskEdit1: TMaskEdit; procedure UpDown1Click(Sender: TObject; Button: TUDBtnType); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i: integer; implementation {$R *.dfm} procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType); begin i:=Updown1.Position; Edit1.Text:=IntTOstr(i); end; procedure TForm1.Button1Click(Sender: TObject); const en='qwertyuiopasdfghjklzxcvbnm'; zifri='1234567890'; ru='йцукеёнгшщзхъфывапролджэячсмитьбю'; var i,h, w : Integer; S,e: String; begin if (CheckBox1.Checked=false)and (CheckBox2.Checked=false) and (CheckBox3.Checked=false) then exit; if Edit1.Text='' then exit; if CheckBox1.Checked= true then e:=e+ zifri; if CheckBox2.Checked=true then e:=e+ru; if CheckBox3.Checked=true then e:=e+ en; h:=length(e); i:=StrToInt(Edit1.Text); w:=0; for w :=0 to i-1 do s:=s+(e[random(h)+1]); if s='' then exit; MaskEdit1.Text:=s; end; end.

Ответ отправил: W@NDeReR (статус: 2-ой класс) Ответ отправлен: 03.04.2007, 10:49

Вопрос № 80.773

Здравствуйте, уважаемые эксперты! 1. Подскажите несколько способов сделать так, чтобы приложение могло удалить само себя (ведь во время работы к нему нет доступа, с помощью BATника что ли?) 2. Если кто-нибудь работал с AlphaSkins, то как сделать, чтобы бы в sOpenDialog были видны скрытые и системные файлы и папки? В обычном OpenDialog' е они отображаются по умолчанию. Хотя я полностью сделал такие же свойства в Object Inspector у sOpendialog как и у Opendialog, но результата не дало...

Отправлен: 02.04.2007, 21:03 Вопрос задал: Win2k (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: василий1 Здравствуйте, Win2k! с помощью батника uses Windows, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin { создаём бат-файл в директории приложения } BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat'; { открываем и записываем в файл } AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile, ':try'); Writeln(BatchFile, 'del "' + ParamStr(0) + '"'); Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try'); Writeln(BatchFile, 'del "' + BatchFileName + '"'); CloseFile(BatchFile); FillChar(StartUpInfo, SizeOf(StartUpInfo), $00); StartUpInfo.dwFlags := STARTF_USESHOWWINDOW; StartUpInfo.wShowWindow := SW_HIDE; if CreateProcess(nil, PChar(BatchFileName), nil, nil, False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo) then begin CloseHandle(ProcessInfo.hThread); CloseHandle(ProcessInfo.hProcess); end; end; А вот тот же способ, но немного модифицированный: program delete2; uses SysUtils, windows; var BatchFile: TextFile; BatchFileName: string; TM: Cardinal; TempMem: PChar; begin BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat'; AssignFile(BatchFile, BatchFileName); Rewrite(BatchFile); Writeln(BatchFile,':try'); Writeln(BatchFile,'del "' + ParamStr(0) + '"'); Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try'); Writeln(BatchFile,'del "' + BatchFileName + '"'); CloseFile(BatchFile); TM:=70; GetMem (TempMem,TM); GetShortPathName (pchar(BatchFileName), TempMem, TM); BatchFileName:=TempMem; FreeMem(TempMem); winexec(Pchar(BatchFileName),sw_hide); halt; end. // с помощью ассемблера procedure DeleteSelf; var module: HModule; buf: array [0..MAX_PATH - 1] of char; p: ULong; hKrnl32: HModule; pExitProcess, pDeleteFile, pFreeLibrary: pointer; begin module := GetModuleHandle(nil); GetModuleFileName(module, buf, SizeOf(buf)); CloseHandle(THandle(4)); p := ULONG(module) + 1; hKrnl32 := GetModuleHandle('kernel32'); pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess'); pDeleteFile := GetProcAddress(hKrnl32, 'DeleteFileA'); pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary'); asm lea eax, buf push 0 push 0 push eax push pExitProcess push p push pDeleteFile push pFreeLibrary ret end; end;

Ответ отправил: василий1 (статус: 2-ой класс) Ответ отправлен: 03.04.2007, 03:33 Оценка за ответ: 4 Комментарий оценки: Все хорошо, но только не хочет работать алгоритм с ассемблером, который меня очень заинтересовал. Как только сами в нем разберетесь и убедитесь в его работоспособности, напишите, пожалуйста, мне в личку.

Отвечает: PGM Здравствуйте, Win2k! 1. Да классики рекомендуют именно с помощью BAТника. Я делал вот так procedure SelfDelete; var CleanupBatchFileName : String; BatchLines : TStringList; ws : array[0..MAX_PATH] of Char; begin // Need delete all files in this directory CleanupBatchFileName := MakeTempFileName(False); CleanupBatchFileName := ChangeFileExt(CleanupBatchFileName,'.bat'); BatchLines := TStringList.Create; try ANSIToOem(PChar(ParamStr(0)), ws); BatchLines.Add(Format('ERASE "%s"', [ws])); BatchLines.Add(Format('ERASE %s', [CleanupBatchFileName])); BatchLines.SaveToFile(CleanupBatchFileName); WinExec(PChar(CleanupBatchFileName),SW_HIDE); finally BatchLines.Free; end; end;

Ответ отправил: PGM (статус: 3-ий класс) Ответ отправлен: 03.04.2007, 10:40 Оценка за ответ: 5 Комментарий оценки: Круто! Даже работает. Правда MakeTempFileName(False); неизвестный идентификатор (видно не подключен какой-то Unit), но все же спасибо!

Вопрос № 80.819

Здравствуйте уважаемые эксперты. Не подскажите ответ на следующие вопросы. 1. Как определить какие принтеры стоят в сети (наименование и IP), и если они привязаны к какому то ПК то выдать к какому ПК (его IP) они привязаны. 2. Определить какие внешние устройства (модем, факс, CD/DVD Rom, внешние диски, колонки и т.д. стоят у ПК Буду особенно благодарен за исходные тексты

Отправлен: 03.04.2007, 06:59 Вопрос задал: Zlm1 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Zlm1! С каких это пор CD/DVD-ROM стал внешним устройством? Их как и любые дисковые накопители, и внешние, и внутренние; но только тем, которым назначенна буква, можно определить с помощью функций: GetLogicalDrives; GetDriveType(Pchar); Вот пример использования этих функций. Определить наличие колонок можно, только если это поддерживает звуковая карта. И все это делают по-разному. И все равно нечетко потому, что ничего, кроме сопротивления подключенного к аудиовыходу устройства, померить звуковая карта не может. Как определять мышь и клавиатуру, не знаю. Но они обычно есть всегда. А полагаться на нестандартные возможности (Media-кнопки и прочее подобное) не стоит. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Специалист) Ответ отправлен: 03.04.2007, 13:13 Оценка за ответ: 5 Комментарий оценки: Спасибо за оперативность

Вопрос № 80.849

подскажите как можно считать параметры CMOS

Отправлен: 03.04.2007, 11:22 Вопрос задал: Jek (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PGM Здравствуйте, Jek! Это низкоуровневая информация - поэтому придется найти/написать драйвер, который считает CMOS и передаст приложению данные. Приложение может подгрузить этот драйвер динамически (через Service Control Manager) и запросить через DevciceIOControl нужную информацию. Аналогично можно изменять CMOS. P.S. У меня по такой схеме работает программирование таймера включения компьютера (правда приходится затачиваться под конкретную материнку - смещения у всех разные)

Ответ отправил: PGM (статус: 3-ий класс) Ответ отправлен: 03.04.2007, 18:21

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.47 от 06.04.2007