аналог<\/p>\n
\nrmdir \/s \/q
или rm -rf <\/p>\n<\/blockquote>\n function DeleteDirectoryEx(DirectoryName: string): boolean;\n\/\/ адаптирована функция DeleteDirectory из модуля fileutil, спасибо Павлу Дмитруку\nvar\n FileInfo: TSearchRec;\n CurSrcDir: String;\n CurFilename: String;\nbegin\n Result:=false;\n CurSrcDir:=CleanAndExpandDirectory(DirectoryName);\n try\n if FindFirstUTF8(CurSrcDir+GetAllFilesMask,faAnyFile,FileInfo)=0 then\n begin\n repeat\n if (FileInfo.Name<>'.') and (FileInfo.Name<>'..') and (FileInfo.Name<>'') then\n begin\n CurFilename:=CurSrcDir+FileInfo.Name;\n if (FileInfo.Attr and faReadOnly)>0 then\n FileSetAttrUTF8(CurFilename, FileInfo.Attr-faReadOnly);\n if (FileInfo.Attr and faDirectory)>0 then\n begin\n if not DeleteDirectoryEx(CurFilename) then exit;\n end\n else\n begin\n if not DeleteFileUTF8(CurFilename) then exit;\n end;\n end;\n until FindNextUTF8(FileInfo)<>0;\n end;\n FindCloseUTF8(FileInfo);\n if (not RemoveDirUTF8(DirectoryName)) then\n begin\n exit;\n Result:=true;\n end;\n except\n Result:=false;\n end;\nend;<\/code><\/pre>", "date_published": "2019-04-12T09:06:18+03:00", "date_modified": "2019-04-16T14:47:25+03:00", "tags": [ "free pascal", "lazarus" ], "_date_published_rfc2822": "Fri, 12 Apr 2019 09:06:18 +0300", "_rss_guid_is_permalink": "false", "_rss_guid": "10", "_e2_data": { "is_favourite": false, "links_required": [ "highlight\/highlight.js", "highlight\/highlight.css" ], "og_images": [] } }, { "id": "9", "url": "https:\/\/itscience.pro\/all\/zapuskaem-vneshnee-prilozhenie-zhdem-zaversheniya-i-poluchaem-vy\/", "title": "запускаем внешнее приложение, ждем завершения и получаем вывод", "content_html": "запускаем внешнее консольное приложение и ждем окончания его выполнения, после завершения получаем вывод в список<\/p>\n
function RunScript(sCommand: String): TStringList;\nvar\n OurCommand: String;\n OutputLines: TStringList;\n MemStream: TMemoryStream;\n OurProcess: TProcess;\n NumBytes: LongInt;\n BytesRead: LongInt;\nconst\n READ_BYTES = 204800;\nbegin\n MemStream := TMemoryStream.Create;\n BytesRead := 0;\n OurProcess := TProcess.Create(nil);\n OurCommand := sCommand;\n OurProcess.CommandLine := OurCommand;\n OurProcess.ShowWindow:=swoHIDE;\n OurProcess.Options := [poUsePipes, poNoConsole];\n OurProcess.Execute;\n while OurProcess.Running do\n begin\n MemStream.SetSize(BytesRead + READ_BYTES);\n NumBytes := OurProcess.Output.Read((MemStream.Memory + BytesRead)^, READ_BYTES);\n if NumBytes > 0\n then begin\n Inc(BytesRead, NumBytes);\n Sleep(100);\n end\n else begin\n Sleep(100);\n end;\n end;\n Sleep(1000);\n repeat\n MemStream.SetSize(BytesRead + READ_BYTES);\n NumBytes := OurProcess.Output.Read((MemStream.Memory + BytesRead)^, READ_BYTES);\n if NumBytes > 0\n then begin\n Inc(BytesRead, NumBytes);\n end;\n Sleep(100);\n until NumBytes <= 0;\n MemStream.SetSize(BytesRead);\n OutputLines := TStringList.Create;\n OutputLines.LoadFromStream(MemStream);\n result := OutputLines;\n OurProcess.Free;\n MemStream.Free;\nend;<\/code><\/pre>", "date_published": "2019-04-11T19:00:38+03:00", "date_modified": "2019-04-11T18:59:50+03:00", "tags": [ "free pascal", "lazarus" ], "_date_published_rfc2822": "Thu, 11 Apr 2019 19:00:38 +0300", "_rss_guid_is_permalink": "false", "_rss_guid": "9", "_e2_data": { "is_favourite": false, "links_required": [ "highlight\/highlight.js", "highlight\/highlight.css" ], "og_images": [] } }, { "id": "8", "url": "https:\/\/itscience.pro\/all\/poluchaem-soderzhimoe-url-podderzhivaetsya-http-https\/", "title": "получаем содержимое url (поддерживается http, https)", "content_html": "Бывает в приложении для windows нужно по ссылке получить какую нибудь информацию, ниже представлена функция, которая это сделает быстро и без дополнительных библиотек<\/p>\n
function get_from_server(const Url: string): string;\nconst\n UserAgent = 'Mozilla\/5.0 (compatible)';\nvar\n hInet: HINTERNET;\n hURL: HINTERNET;\n Buffer: array[0..1023] of AnsiChar;\n BufferLen: cardinal;\nbegin\n result := '';\n hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);\n if hInet = nil then RaiseLastOSError;\n try\n hURL := InternetOpenUrl(hInet, PChar(URL), nil, 0, 0, 0);\n if hURL = nil then RaiseLastOSError;\n try\n repeat\n if not InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) then\n RaiseLastOSError;\n result := result + UTF8Decode(Copy(Buffer, 1, BufferLen))\n until BufferLen = 0;\n finally\n InternetCloseHandle(hURL);\n end;\n finally\n InternetCloseHandle(hInet);\n end;\nend;<\/code><\/pre>", "date_published": "2019-04-11T18:57:32+03:00", "date_modified": "2019-04-11T18:57:25+03:00", "tags": [ "free pascal", "lazarus" ], "_date_published_rfc2822": "Thu, 11 Apr 2019 18:57:32 +0300", "_rss_guid_is_permalink": "false", "_rss_guid": "8", "_e2_data": { "is_favourite": false, "links_required": [ "highlight\/highlight.js", "highlight\/highlight.css" ], "og_images": [] } }, { "id": "7", "url": "https:\/\/itscience.pro\/all\/poluchaem-namingcontexts-kontrollera-domena\/", "title": "получаем namingContexts контроллера домена", "content_html": "Некоторую информацию можно получить от контроллера домена без авторизации, например, namingContexts.<\/p>\n
function get_ldap_namingContexts(server: string): string;\nvar\n ldap: TLDAPsend;\n attr: TStringList;\nbegin\n ldap:= TLDAPsend.Create;\n attr := TStringList.Create;\n attr.Add('namingContexts');\n try\n ldap.TargetHost := server;\n ldap.TargetPort := '389';\n if ldap.Login then\n begin\n if ldap.Bind then\n begin\n ldap.SearchScope:=SS_BaseObject;\n if ldap.Search('', False, '(objectClass=*)', attr) then\n begin\n result:= ldap.SearchResult.Items[0].Attributes.Get('namingContexts')\n end;\n end;\n ldap.Logout;\n end;\n finally\n ldap.Free;\n attr.Free;\n end;\nend;<\/code><\/pre>результатом работы этой функции будет: DC=domain,DC=loc<\/p>\n