Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Программирование в Delphi" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
СообЧА. Программирование на Delphi
|
Предлагаю вам короткие функции, меняющие мир :) Данный код перезагужает винды. 1) ExitWinndowsEx(EWX_FORCE+EWX_REBOOT,0) asm 2) mov al,0F0h
out 64h,al
end;
Данный код меняет заголовки других окон: SetWindowText('Текущий заголовок', 'Желаемый');
а этот закрывает Другое приложение из Вашего PostMessage(FindWindow(Nil, 'window caption'), WM_QUIT, 0, 0); 'window caption' - заголовок окна, которое нужно закрыть. "Клизьма" корзине Есть функция SHEmptyRecycleBin (в shell32.dll)
Автор
:Pixel(
pixel@novgorod.net http://pixelsoft.narod.ru
)
Вот я писал позавчера прогу, запустил ее , а она возьми да и не заработай : This function aviable only in WinNT,. во как. Одним словом хороший был почтовый клиент. Чтобы подобного избежать в дальнейшем я разработал две dll ки для NT и не для NT, а чтобы определить какая нужна сделал такое: const {
operating system constants }
cOsUnknown =
-1;
cOsWin95
= 0;
cOsWin98
= 1;
cOsWin98SE =
2;
cOsWinME
= 3;
cOsWinNT
= 4;
cOsWin2000 =
5;
cOsWhistler =
6;
osVerInfo
: TOSVersionInfo;
majorVer, minorVer
: Integer;
begin result :=
cOsUnknown;
{
set operating system type flag }
osVerInfo.dwOSVersionInfoSize
:= SizeOf(TOSVersionInfo);
if
GetVersionEx(osVerInfo) then
begin
majorVer :=
osVerInfo.dwMajorVersion;
minorVer :=
osVerInfo.dwMinorVersion;
case
osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT
: { Windows NT/2000 }
begin
if majorVer
<= 4 then
result := cOsWinNT
else if (majorVer
= 5) AND (minorVer= 0)
then
result :=
cOsWin2000
else if (majorVer
= 5) AND (minorVer = 1)
then
result :=
cOsWhistler
else
result :=
cOsUnknown;
end;
VER_PLATFORM_WIN32_WINDOWS
: { Windows 9x/ME }
begin
if (majorVer
= 4) AND (minorVer = 0)
then
result := cOsWin95
else if (majorVer
= 4) AND (minorVer = 10)
then
begin
if
osVerInfo.szCSDVersion[1] = 'A'
then
result :=
cOsWin98SE
else
result :=
cOsWin98;
end
else if (majorVer
= 4) AND (minorVer = 90)
then
result := cOsWinME
else
result :=
cOsUnknown;
end;
else
result :=
cOsUnknown;
end;
end
else
result :=
cOsUnknown;
end; ShowMessage(IntToStr(GetOperatingSystem));
end;
Автор
:Pixel(
pixel@novgorod.net http://pixelsoft.narod.ru
)
Ярлычки довольно быстро создаются этим кодом
function
CreateShortcut(const CmdLine, Args, WorkDir, LinkFile: string): var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; WideFile : WideString; begin MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetPath(PChar(CmdLine)); SetArguments(PChar(Args)); SetWorkingDirectory(PChar(WorkDir)); end; WideFile := LinkFile; MyPFile.Save(PWChar(WideFile), False); Result := MyPFile; end;
procedure CreateShortcuts; var Directory, ExecDir: String; MyReg: TRegIniFile; begin MyReg := TRegIniFile.Create( 'Software\MicroSoft\Windows\CurrentVersion\Explorer');
ExecDir := ExtractFilePath(ParamStr(0)); Directory := MyReg.ReadString('Shell Folders', 'Programs', '') + '\' + ProgramMenu; CreateDir(Directory); MyReg.Free;
CreateShortcut(ExecDir + 'Autorun.exe', '', ExecDir, Directory + '\Demonstration.lnk'); CreateShortcut(ExecDir + 'Readme.txt', '', ExecDir, Directory + '\Installation notes.lnk'); CreateShortcut(ExecDir + 'WinSys\ivi_nt95.exe', '', ExecDir, Directory + '\Install Intel Video Interactive.lnk'); end;
Автор :Pixel( pixel@novgorod.net http://pixelsoft.narod.ru ї COOLer
Мне тут часто пишут: "Как использовать свои курсоры" , во я сейчас и расскажу : {$R CURSORS.RES} С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры или заменить зеленое на конкретное имя файла(он должен также поставляться с программой).
|
| Zaluskiy Anton(COOLer) - ведущий проекта "Мир Delphi" |
|
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу | Рейтингуется SpyLog |
| В избранное | ||
