Procedure btnTest1Click (Sender: TObject) Procedure btnTest10Click (Sender: TObject) Procedure btnTest9Click (Sender: TObject) Procedure btnTest8Click (Sender: TObject) Procedure btnTest7Click (Sender: TObject) Procedure btnTest6Click (Sender: TObject) Procedure btnTest5Click (Sender: TObject) Procedure btnTest4Click (Sender: TObject) Procedure btnTest3Click (Sender: TObject) Procedure btnTest2Click (Sender: TObject) The especial request to try on D7 and D7 + - suddenly this bug there is corrected. Here under spoilers the project code, well and in nesting if who wants to try to launch. As a result easily received the above described system mistake (1158) for objects USER passed through 10000 (without reaching at all to TfrmTestForm10). After restart btnTest1Click - too 1027.Īdded TfrmTestForm2 - simply inherited from TfrmTestForm1. Launched a cycle from 1 to 1000 by the button.Īt start Project1.exe ate 27 objects User. The empty project (he in nesting), in it Form1 - MDIForm, added MDIChild - TfrmTestForm1. And in the program more many similar windows, and everyone as creates such "not scrubbed" objects till the certain moment that as a result and can lead to an error. Does not grow Further, it is dropped, but mines value already ~1300. Does not grow Further, it is dropped, but mines value already ~700.Ħ0 times Create/Close - number of objects USER grow (in the manager of tasks) to ~4000. Originally objects USER in the manager of tasks ~200.Ģ0 times Create/Close - number of objects USER grow (in the manager of tasks) to ~1400. Create (Owner), is deleted - in FormClose Action: = caFree. Launched the test of discovery-closing of this window.
DELPHI XE10 SYSTEM ERROR CODE 1400 WINDOWS
Suddenly from time to time started to send screenshots of the following content:Ĭurrent process used all system resolutions on object management of the manager of windows ". Such code has been written by an example found on open spaces of the Internet. Prompt, please, where exactly spelling errors how correctly to write that is missed and if there is any material on flows - share, please. Question the first: whether the code is correctly written?Īnd at once the second question: apparently, the code is written incorrectly since the program works incorrectly and hangs up. SaveToFile (ExtractFilePath (Application. LoadFromFile (ExtractFilePath (Application. WriteString (' monitoring ', ' user ', ) į.
WriteString (' monitoring ', ' lastrun ', DateTimeToStr (now)) Create (' C:\Temp\load.dat ', fmOpenRead) Procedure TForm1.Button3Click (Sender: TObject) įs: = TFilestream. Procedure TForm1.Button2Click (Sender: TObject) Procedure TForm1.Button1Click (Sender: TObject) Procedure LoadClipboardFormat (reader: TReader) įmt: = RegisterCLipboardFormat (PChar (fmtname)) įor i: = 0 to Clipboard.formatcount - 1 do If 0 = GetClipboardFormatName (fmt, fmtname, SizeOf (fmtname)) then Procedure SaveClipboardFormat (fmt: Word writer: TWriter) Create (' CopyStreamFromClipboard: could not lock global handle ' + Procedure CopyStreamFromClipboard (fmt: Cardinal S: TStream) HMem: = GlobalAlloc (GHND or GMEM_DDESHARE, S.Size) Procedure CopyStreamToClipboard (fmt: Cardinal S: TStream) Procedure Button3Click (Sender: TObject) Procedure Button2Click (Sender: TObject)
Procedure Button1Click (Sender: TObject) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
0 kommentar(er)
