Jump to content

Silver Black

Members
  • Content Count

    109
  • Joined

  • Last visited

Everything posted by Silver Black

  1. Hi, I have a routine that I've been using successfully for a long time to start a process with admin rights elevation. But I've lately noticed that the UAC request is minimized in the task bar, instead I'd like it to appear full-screen as if the user had clicked on the executable himself. I'm using: FillChar(seExecShell, SizeOf(seExecShell), 0); seExecShell.cbSize := SizeOf(seExecShell); seExecShell.Wnd := hndCaller; seExecShell.fMask := SEE_MASK_NOCLOSEPROCESS; seExecShell.lpVerb := PWideChar(RUN_CMD); seExecShell.lpFile := PWideChar(fnFile); seExecShell.lpParameters := PWideChar(strParams); seExecShell.nShow := SW_SHOWNORMAL; Result := ShellExecuteEx(@seExecShell); ShellExecuteEx(@seExecShell); Then to manage the waiting for the the process to terminate: GetExitCodeProcess(seExecShell.hProcess, ExitCode); But even without waiting there is always the issue of the minimized UAC request. Do you think there is a workaround or this is a "by-design" feature of Windows?
  2. Silver Black

    UAC request minimized instead of full-screen

    Also other VM/PC. My app is an installer!
  3. Silver Black

    UAC request minimized instead of full-screen

    Ok, now I get it. But the problem is that I've not disabled it on my machine and the issue occurs.
  4. Silver Black

    UAC request minimized instead of full-screen

    I've to try that with a brand new empty project, but it happens in two different project.
  5. Silver Black

    UAC request minimized instead of full-screen

    Yes, it's already what I do.
  6. Silver Black

    UAC request minimized instead of full-screen

    No. First I don't want to disable it, second I cannot disable it on my users machines!
  7. I have this simple code that writes a record at the end of a binary file (any): type TRecTestData = record strText1: String[100]; strText2: String[100]; i64BigNum: Int64; end; var fDatafile: File; intRecSize: Integer; recTestRec: TRecTestData; strTestFile: String; begin strTestFile := 'FileIOData.exe'; intRecSize := SizeOf(recTestRec); AssignFile(fDataFile, strTestFile); Reset(fDataFile, 1); Seek(fDataFile, FileSize(fDataFile)); BlockWrite(fDatafile, recTestRec, intRecSize); CloseFile(fDataFile); This works perfectly. But in my main project (+120,000 lines of code) it generates a I/O Error 103 at line BlockWrite. I've tried anything, the code is the same.
  8. Silver Black

    I/O Error 103

    Ok, thank you, I'll give a look into that resource stuff. 🙂 Have a nice day!
  9. Silver Black

    I/O Error 103

    The custom-modified executable is not being modified in the field, it's only modified once after it's built by another app. After that it's not modified anymore. Yes, I only do this to MY executable created by MY othe main app, it's not intended to modify any other executable. The attached data are user-related info and the executable is a zip-auto-extractor.
  10. Silver Black

    I/O Error 103

    No, it's not the same executable that makes the changes. It's another application that creates that executables that modifies it at the end of the process.
  11. Silver Black

    I/O Error 103

    In a resource you can add any type of data? Strings, integers, etc.? Why I cannot write on an arbitrary binary file if Delphi has the proper functions to do so (BlockWrite/Read and Streams)? There is a particular reason you say so?
  12. Silver Black

    I/O Error 103

    The exe file is created by me (my program), so I just want to add additional data.
  13. Silver Black

    I/O Error 103

    Same exact code, copy and paste. I then read the record data from the Exe itself. It works in an empty project I made. I also found the solution. I'm missing this: FileMode := fmOpenReadWrite; So now it works everywhere! In the empty project I used it worked even without setting the FileMode, in my main project not because I set the FileMode to read-only previously but I wasn't aware of that.
  14. Silver Black

    Updated Community Edition

    Why a Delphi 10.4.1 CE edition does not exist? The CE is still in 10.3 version...
  15. Silver Black

    Updated Community Edition

    No: the CE is the full RAD Studio, that expires every year! We need a much smaller one with only Delphi main core components and no-expiration license.
  16. Silver Black

    Updated Community Edition

    Good ol' times! IMHO, Delphi should have a restricted FREE environment of its IDE, to make small desktop utilities at least and for the bigger purpose of spreading Delphi knowledge to new generations of devs. If VS has that, why not to copy from it?
  17. Silver Black

    Updated Community Edition

    Anybody remembers when Delphi 6 had the "Personal" edition that was completely FREE? I started from there.
  18. Silver Black

    Updated Community Edition

    I have to reinstall it because the one-year-license is over, so I just looked for the most updated one. By the way, I hate the fact that it's mandatory for you to reinstall the CE after one year. Totally nonsense.
  19. Silver Black

    Common dialogs not correctly skinned

    Using themes with 10.3.3 I noticed that common dialogs like "Open/Save file" are not correctly skinned and they are quite a punch in the eye... Is there a workaround or do I have to rewrite my own common dialogs to have them properly skinned?
  20. Silver Black

    Common dialogs not correctly skinned

    That libraries are great, really thank you!!!
  21. With my main and biggest project, Code Insight doen't work on 10.3.3. I discovered that deleting al .DCU files it starts working again... until next build or run! Then it just stops working. Does this happen to others? Any help would be appreciated. It worked like a charm until Delphi 2010 (I jumped from D2010 to 10.3). If I can't fix this I'm really planning to go back to the 2010 version, because I can't develop without code-insight (auto-completion, etc.), it seems to be back to the 90s... I'm really disappointed, EDIT: update: the issue is when I work on some units only!!! With the most of other project units it works! Very odd.
  22. Thank you, I didn't try to uninstall IDE Fix Pack yet.
  23. Applied this trick, updated verions of IDEFixePack and DDevExtensions, but it doesn't work. Problem is much more complex: the code completion doesn't work on some unit, but in other yes (the most, fortunately). On the units where it works it works even after I rebuild or run the project, in other units it stops working. The oddest thing is that if from a unit where it works I move to a unit where it doesn't work, when I return to the unit where it worked... it doens't work anymore! (I have to delete che DCU file to make it work again). And on other projects it works perfectly on every unit.
  24. In Delphi 2010 I installed a set of components by opening the dproj file, then builind it from the Project Manager and then by clicking on Install from the pop-up menu that appeared right clicking on the project name in the Project Manager. But now with Delphi 10.3.3 the "Install" command is not there, there are just Compile, Build, Clean, Run, etc.. Where is the Install button? Does it depends on the fact that I have the Community Edition? I just wanted to add the TShellControls in Delphi 10.3.3.
  25. Silver Black

    Where is the Install command in the Project Manager of D10.3?

    Ok, solved: I needed to build a completely new bpl starting from the source code provided with 10.3.3, using this guide: https://stackoverflow.com/questions/34905926/where-is-tshelltreeview
×