Jump to content

Anders Melander

Members
  • Content Count

    2450
  • Joined

  • Last visited

  • Days Won

    124

Everything posted by Anders Melander

  1. Anders Melander

    Drag Drop via Ole

    Bite me
  2. Anders Melander

    Drag Drop via Ole

    No; It works with all drop targets. And if you look at the WM_DROPFILES example there's also an example of working around the UAC restrictions mentioned by Remy: https://github.com/andersmelander/Drag-and-Drop-Component-Suite/blob/de46eb2b804c33921809504d086285da11d4e3e5/Source/DropTarget.pas#L298
  3. Anders Melander

    Old Window border style on Delphi MDI child form

    Any authoritative sources for this? I've seen people make the same claim many times about both COM (claimed to be superseded by .NET) and GDI (claimed to be superseded by GDI+). Both ridiculous claims. Just because MDI windows doesn't support the same features as SDI windows doesn't mean that they're deprecated. The documentation certainly doesn't give any indication that it is so: https://learn.microsoft.com/en-us/windows/win32/winmsg/multiple-document-interface
  4. Anders Melander

    TShellExecuteInfoA/W incorrectly translated?

    No. In Delphi the variant part has to be the last in the record and, if you think about it, the hProcess field would have the same offset even if it was possible to declare it after the variant part. https://docwiki.embarcadero.com/RADStudio/Athens/en/Structured_Types_(Delphi)#Variant_Parts_in_Records
  5. Anders Melander

    Drag Drop via Ole

    Is there are reason why don't just use one of these? https://github.com/landrix/The-Drag-and-Drop-Component-Suite-for-Delphi https://github.com/andersmelander/Drag-and-Drop-Component-Suite If you don't want to use a ready-made library then I suggest you at least use the DragTargetAnalyzer example application in the above library to diagnose your target.
  6. Anders Melander

    Windows versions supported by older Delphis

    Good thing we can invent new problems when we run out of actual ones to solve.
  7. Anders Melander

    Windows versions supported by older Delphis

    It does but the Win32 API is declared delay-load and the RTL resolves it dynamically with fallback to GetTickCount if it isn't available. I also believe Indy uses it but with a similar dynamic fallback. Winapi.Windows.pas function GetTickCount64; external kernel32 name 'GetTickCount64' delayed; // 6.0 System.Classes.pas function InitGetTickCount64: UInt64; stdcall; begin if TOSVersion.Major >= 6 then begin var kernelLib: THandle := LoadLibrary(kernel32); GetTickCount64Func := GetProcAddress(kernelLib, 'GetTickCount64'); FreeLibrary(kernelLib); end else GetTickCount64Func := @Winapi.Windows.GetTickCount; Result := GetTickCount64Func; end;
  8. Anders Melander

    Windows versions supported by older Delphis

    The required Windows version really depends on the the VCL features you use. If you're using something that is only available in Windows 10 then naturally your application will use Windows 10 specific APIs. Otherwise it will not.
  9. Anders Melander

    Windows versions supported by older Delphis

    You seem to be confusing "target" and "run on". In theory, all 32-bit compilers can target any 32-bit version of Windows and all 64-bit compilers can target any 64-bit version of Windows. That page just document the IDE requirements and it doesn't really reflect the reality; Before I upgraded to Windows 10 I had been running Delphi 10, 11 and 12 on Windows 7 with no issues. The installer complains but it ran just fine.
  10. Anders Melander

    Code signing in a remotely working team?

    No, I can't see it from the sigmycode site either. I'm positive that I read somewhere on the digicert site that you had to use 2-factor-authentication using a USB token but I could very well have misunderstood the context.
  11. Anders Melander

    Code signing in a remotely working team?

    TMI; People tend to ignore walls of text. Log operations on the server instead so they can be examined by those who care.
  12. Anders Melander

    Code signing in a remotely working team?

    Looks good - and I like the name. Sufficiently distinct to be googleable.
  13. Anders Melander

    Code signing in a remotely working team?

    Oh, nice. I didn't know you could do that. It's a real PITA that we have to jump through all these hoops with the physical tokens and the fact that a solution like yours, which is basically a work around, is even possible proves that it was all in vain. But I guess somebody made a lot of money selling the tokens.
  14. Anders Melander

    Code signing in a remotely working team?

    Let me guess: The client transmits the file to be signed to the server, and the server (which has the physical token) then signs the file and transmits it back to the client.
  15. Anders Melander

    Code signing in a remotely working team?

    ...once they have signed in with an USB token. I don't think you can get around the requirement for the signer to have some kind of physical identification device.
  16. Anders Melander

    Code signing in a remotely working team?

    Hmm. Okay. I obviously don't know how your build server setup was, or what build system you used, but it should have been possible to completely isolate the different projects. Independent projects, with different developers, tools, etc. on the same build server is nothing out of the ordinary. Anyway, if you are working on different projects, and don't want a centralized solution, then why not just use different certificates?
  17. Anders Melander

    Code signing in a remotely working team?

    There's your problem. You should use a single central build server instead of delegating the build task to individual developers. If you don't have a central server which can function as a build server, at least designate one of the developers as the "build master".
  18. Anders Melander

    delete key is ignored

    Thanks. I just meant this: procedure TReptTextEditor.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_F1: if Shift=[] then Application.HelpCommand(HELP_CONTEXT,HelpContext); VK_F10: if (ssAlt in Shift) then PopupMenu1.Popup(Left+100,Top+100); end; end; ...and that looks okay.
  19. Use TJPEGImage.LoadFromStream to load from the stream Copy the TJPEGImage to a TBitmap using TBitmap.Assign Add the TBitmap to the TImageList using the usual methods
  20. Anders Melander

    Only 2 GB available despite IMAGE_FILE_LARGE_ADDRESS_AWARE

    Full working set does not mean out of memory; We have virtual memory. Can you explain why increasing the working set solved your problem? https://aviationhumor.net/russians-we-paid-whole-runway-we-use-whole-runway/
  21. Anders Melander

    Only 2 GB available despite IMAGE_FILE_LARGE_ADDRESS_AWARE

    <Also known as throwing sh*t at a wall>
  22. Anders Melander

    TTaskDialogs not working with Delphi Styles

    I think Cristian is on 11.3 If someone else, other than me (where it works), could check with 12.2 it would be great.
  23. Anders Melander

    TTaskDialogs not working with Delphi Styles

    Strange. Works for me. Also with 150% What I am seeing though (with 11.3 only), is that if I drop the list by clicking on the left half of the dropdown arrow, and then close the list with another click, then the open dialog is invoked. Dropping the list with a click on the right half works as expected.
  24. Anders Melander

    TTaskDialogs not working with Delphi Styles

    I just tried with 11.3 and it works exactly the same. Maybe I'm just not understanding what problem your are experiencing. I'm on Windows 10, BTW.
×